Start Free TrialLog in
Avatar of Aleks
AleksFlag for United States of America

asked on 

Problem with recordset

I am using DW CC2014 to create a recordset. Yet, I am getting an error. When I run the query in MS SQL Manager it returns the correct values.

-- error displayed --

ADODB.Command error '800a0d5d'

Application uses a value of the wrong type for the current operation.

/bluedot/includes/bdot/recordsets.asp, line 294

-- recordset code --


<%
Dim rs_qnrgroupcount__MMColParam
rs_qnrgroupcount__MMColParam = "0"
If (Session("FirmId")  <> "") Then
  rs_qnrgroupcount__MMColParam = Session("FirmId")
End If
%>
<%
Dim rs_qnrgroupcount__MMColParam2
rs_qnrgroupcount__MMColParam2 = "0"
If (rs_qnrgroup("GuestIds") <> "") Then
  rs_qnrgroupcount__MMColParam2 = rs_qnrgroup("GuestIds")
End If
%>

<%
Dim rs_qnrgroupcount
Dim rs_qnrgroupcount_cmd
Dim rs_qnrgroupcount_numRows

Set rs_qnrgroupcount_cmd = Server.CreateObject ("ADODB.Command")
rs_qnrgroupcount_cmd.ActiveConnection = MM_bluedot_STRING
rs_qnrgroupcount_cmd.CommandText = "SELECT COUNT (a.Id) AS total FROM QnrsMailed a inner join users as b on a.sentby = b.userid WHERE a.Firmid = ? and a.Originatedby IN (?) AND a.IsAccepted = 2"
rs_qnrgroupcount_cmd.Prepared = true
rs_qnrgroupcount_cmd.Parameters.Append rs_qnrgroupcount_cmd.CreateParameter("param1", 5, 1, -1, rs_qnrgroupcount__MMColParam) ' adDouble
rs_qnrgroupcount_cmd.Parameters.Append rs_qnrgroupcount_cmd.CreateParameter("param2", 5, 1, -1, rs_qnrgroupcount__MMColParam2) ' adDouble

Set rs_qnrgroupcount = rs_qnrgroupcount_cmd.Execute
rs_qnrgroupcount_numRows = 0
%>

---

the values are replaced with the following:

MMColParam  = 2
MMColParam2 = 1713
rs_qnrgroup("GuestIds")  = 30324, 1713, 5001, 22278, 30351

-- the query when ran replacing values to test on SQL Manager goes like --

SELECT COUNT (a.Id) AS total
FROM QnrsMailed a  INNER JOIN users as b on a.sentby = b.userid
WHERE a.Firmid = 2 and a.Originatedby IN (30324, 1713, 5001, 22278, 30351) AND a.IsAccepted = 2

-- the returned value is:  1

So it works well there. So .. there is something wrong with my ASP code.

Help is appreciated !  I am stuck !

A
Web DevelopmentASPSQL
Avatar of undefined
Last Comment
Aleks
Avatar of Surone1
Surone1
Flag of Suriname image
what is on line 294 of the asp script?
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

rs_qnrgroupcount_cmd.Parameters.Append rs_qnrgroupcount_cmd.CreateParameter("param2", 5, 1, -1, rs_qnrgroupcount__MMColParam2) ' adDouble
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

The second parameter is the one giving the error. I want to select count (a.id) ... when 1713 IN (30324, 1713, 5001, 22278, 30351)
ASKER CERTIFIED SOLUTION
Avatar of Big Monty
Big Monty
Flag of United States of America image
Blurred text
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

Thank you !
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

Great !
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

You are right BigMonty.  I tried this:

<!--#Inbox group-->

<%
Dim rs_inboxgroup__MMColParam
rs_inboxgroup__MMColParam = "0"
If (Session("firmid") <> "") Then
  rs_inboxgroup__MMColParam = Session("firmid")
End If
%>
<%
Dim rs_inboxgroup__MMColParam2
rs_inboxgroup__MMColParam2 = "0"
If (rs_qnrgroup("GuestIds") <> "") Then
  rs_inboxgroup__MMColParam2 = rs_qnrgroup("GuestIds")
End If
%>
<%
Dim rs_inboxgroup
Dim rs_inboxgroup_cmd
Dim rs_inboxgroup_numRows

Set rs_inboxgroup_cmd = Server.CreateObject ("ADODB.Command")
rs_inboxgroup_cmd.ActiveConnection = MM_bluedot_STRING
rs_inboxgroup_cmd.CommandText = "SELECT a.Id ,         a.QnreId ,         a.FirmId ,         a.Subj ,         a.BodyText ,         a.SentBy ,         a.SentTo ,         a.SentOn ,         a.QnreData ,         a.IsAccepted ,         a.AcceptedOn ,         a.SenderEmail ,         b.UserId ,         b.LastNm ,         b.FirstNm ,         b.Archivedcont ,         b.ContactStatus FROM QnrsMailed a         INNER JOIN Users AS b ON a.SentBy = b.UserId WHERE a.FirmId = ?       and a.Originatedby IN (" & rs_qnrgroup__MMColParam2 & " )        AND a.IsAccepted = 2 ORDER BY a.SentOn DESC;"
rs_inboxgroup_cmd.Prepared = true
rs_inboxgroup_cmd.Prepared = true
rs_inboxgroup_cmd.Parameters.Append rs_inboxgroup_cmd.CreateParameter("param1", 5, 1, -1, rs_inboxgroup__MMColParam) ' adDouble

Set rs_inboxgroup = rs_inboxgroup_cmd.Execute
rs_inboxgroup_numRows = 0
%>

and it seems to work. Do you see anything wrong in this code ?
Avatar of Big Monty
Big Monty
Flag of United States of America image
as long as your variable rs_qnrgroup__MMColParam2  has some kind of value defined, it'll work. if there are scenarios where it will have NO value, it'll throw a sql syntax error
Avatar of Aleks
Aleks
Flag of United States of America image

ASKER

ok .. thanks. Ill test that.
ASP
ASP

Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.

82K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
Ask the experts

  • "Invaluable tool for our organization"

    Josh Regalski

  • "Your help has saved me hundreds of hours of internet surfing."

    @fblack61

  • "Just a dang good service!"

    @golferski

  • "Worth every penny."

    Steve Hougom

  • "It’s been a life saver."

    Maria Halt

  • "Best support site I’ve seen!"

    Bob Schneider

  • "I would be lost without them."

    @fblack61

  • "Saved my job multiple times."

    Walt Forbes

  • "I love this site."

    Maria Duwe

  • "Friendly respectful help."

    Andrew Kowtalo

  • "Such top-notch experts."

    @magento

  • "The best money I have ever spent."

    @rwheeler23

  • "Beyond any comprehensible value"

    George Morris

  • "Invaluable tool for our organization"

    Josh Regalski

Read over 600 more reviews

TRUSTED BY

IBM logoIntel logoMicrosoft logoUbisoft logoSAP logo
Qualcomm logoCitrix Systems logoWorkday logoErnst & Young logo
High performer badgeUsers love us badge
LinkedIn logoFacebook logoX logoInstagram logoTikTok logoYouTube logo
© 1996-2023 Experts Exchange, LLC. All rights reserved. Covered by US Patent