<% dim conn, strsql, rsuser, strMDBPath set conn = server.createobject("ADODB.Connection") set rsuser = server.createobject("ADODB.Recordset") strMDBpath = Server.MapPath("..\private\northwind.mdb") conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath strsql = "select top 10 (city) from customers" rsuser.open strsql,conn,1,2 Do while not rsuser.eof response.write rsuser("City") & "
" rsuser.movenext Loop rsuser.close conn.close set rsuser = nothing set conn = nothing %>