Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ADODB.Recordset error 1

Status
Not open for further replies.

vias

Programmer
Apr 25, 2000
54
GB
Hi,

I have a program called 'search-eventx.asp' and i call a function "getDropdownCity()". I'm getting the following error :

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/search-eventx.asp, line 73

------------------------------------------------------------

function getDropdownCity()
Dim description, rs, strSQL
Set rs = Server.CreateObject("ADODB.Recordset")
if isobject(rs) then
strSQL = "SELECT Location from locations;"
=> line 73 rs.Open strsql, Conn
do until rs1.eof
description = description & &quot;<OPTION value='&quot; & rs(&quot;Location&quot;) & &quot;'&quot; & &quot;>&quot; & rs(&quot;Location&quot;) & &quot;</opt&quot; & &quot;ion>&quot;
rs.moveNext
loop
end if
getDropdownCity = description
end function
%>
------------------------------------------------------------

Could you please feedback me the possible causes.

Thanks.
 
why rs1?????

rs.Open strsql, Conn
do until rs1.eof


Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook
 
Sorry, in the code it is 'rs' and not 'rs1'.
I had edited the text for this forum and
forgot to change it.

So, the problem remains.

Any other feedback.
 
Is your connection open?

Try this method...

set rs = conn.execute(strSQL)

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top