Используя набор записей в классическом ASP

Question

Я пытаюсь получить данные из базы данных, используя набор записей со следующим кодом в классическом ASP . Я использую 32-битную ОС Windows 7:

<%
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
%>

ошибка:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/New folder/recordset.asp, line 7

Answer 1

Слово "rs" не зарезервировано в VBScript, вы должны создать набор записей самостоятельно.

Измените строку:

rs.Open "select * from student",con

На это вместо этого:

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

Вы также перебираете только первую запись, чтобы перебрать все записи, измените код на:

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