Recordset Loops

[adamcox]

Hi everyone,
Below is a piece of ASP code that I have written, however, whenever I execute it, I get errors saying :
"Object doesn't support this property or method: 'EOF' "
And I can't figure out whats wrong!
Does anyone have any ideas?

Dim strDivConn, divConnString, divRecordset
Set strDivConn = Server.CreateObject("ADODB.Connection")
divConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ 
    "DBQ=" & Session("prjLocation") & "\db\data.mdb" & ";"
strDivConn.Open(divConnString)
divRecordset = strDivConn.Execute ("SELECT * FROM tbl_Divisions;")
do until divRecordSet.EOF
	response.write ("<p><input type=radio value='" & divRecordset("divID") & "' name=divID>")
	response.write (divRecordset("divName") & vbCrLf)
	divRecordset.MoveNext
loop

Adam

P.S. If I remove the DO...LOOP and MoveNext, the code prints the first record fine, it just seems that it cannot run the loop properly!

[Danial]

Not sure if this is the problem
but try creating the Recordset object explicitly

eg.

set divRecordset = Server.CreateObject("ADODB.Connection")

[VBKNIGHT]

try this,

Dim strDivConn, divConnstring, divRecordset

Set strDivConn = Server.CreateObject("ADODB.Connection")

divConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Session("prjLocation") & "\db\data.mdb" & ";"

strDivConn.Open(divConnString)

set divRecordset = Server.CreateObject("ADODB.Recordset")

set divRecordset = strDivConn.Execute ("SELECT * FROM tbl_Divisions;")

do while not divRecordSet.EOF
response.write ("<p><input type=radio value='" & divRecordset("divID") & "' name=divID>")
response.write (divRecordset("divName") & vbCrLf)
divRecordset.MoveNext
loop

[monte96]

You don't need:

set divRecordset = Server.CreateObject("ADODB.Recordset")

If you are creating the rs from the return of a .execute method. Be aware however, that you are creating a read only, forward only recordset when you create it in this way.