<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("MyDB.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select * from myTable Where ID=" & Request.QueryString("ID"), conn
do until rs.EOF
for each x in rs.Fields
Response.Write(x.Name & " = " & x.Value & "<br />")
next
Response.Write("<br />")
rs.MoveNext
loop
rs.close
conn.close
%>
rs.Open "Select * from myTable Where ID=" & Request.QueryString("ID"), conn