using recordset in classic asp

Question

I am trying to fetch data from database using recordset with following code in classic ASP .I am using windows 7 32 bit OS:

<%
dim con,rs
set con=Server.Createobject("ADODB.Connection")
con.Provider="Microsoft.Jet.OLEDB.4.0"
con.Open "c:\inetpub\wwwroot\New folder\123.mdb"
rs.Open "select * from student",con
for each x in rs.fields
response.write(x.name)
response.write("=")
response.write(x.value)
next
rs.Close
con.Close
%>

error is:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/New folder/recordset.asp, line 7

Answer 1

The word "rs" is not reserved in VBScript, you must create a recordset yourself.

Change the line:

rs.Open "select * from student",con

To this instead:

Set rs = con.Execute("select * from student")

You also iterate only the first record, to iterate all records change the code to:

Do Until rs.EOF
    for each x in rs.fields
        response.write(x.name)
        response.write("=")
        response.write(x.value)
        response.write(", ")
    next
    response.write("<br />")
    rs.MoveNext
Loop