Set
conn
=
Server.CreateObject(
"
ADODB.Connection
"
)
connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath( " Database.mdb " )
conn.Open connstr
set rs = server.createobject( " adodb.recordset " )
Sqlstr = " select * from UserData order by id desc "
rs.open Sqlstr,conn, 1 , 1
if rs.eof then
response.write( " NO records by find! " )
else
do while not rs.eof
for i = 0 to rs.fields.count - 1
response.write(rs(i).name & " = " & rs(i) & " | " )
next
response.write " <br> "
rs.movenext
loop
end if
rs.close
Set rs = nothing
connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath( " Database.mdb " )
conn.Open connstr
set rs = server.createobject( " adodb.recordset " )
Sqlstr = " select * from UserData order by id desc "
rs.open Sqlstr,conn, 1 , 1
if rs.eof then
response.write( " NO records by find! " )
else
do while not rs.eof
for i = 0 to rs.fields.count - 1
response.write(rs(i).name & " = " & rs(i) & " | " )
next
response.write " <br> "
rs.movenext
loop
end if
rs.close
Set rs = nothing