Recordset Loops

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?

Code:

---

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!

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

eg.

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

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

You don't need:

Code:

---

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.