%@ LANGUAGE="VBSCRIPT" %> <% set conn = server.createobject("adodb.connection") strconn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("fia.mdb") & ";" strconn = strconn & "uid=fia;pwd=fiadb;" conn.open strconn strq="select * from table1 where id = 1" set objrs=server.createobject ("adodb.recordset") objrs.CursorLocation = aduseclient objrs.CursorType = adopenstatic objrs.open strq, conn, , , adcmdtext %>