<%
dim conn   
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("../shtudb/shtu.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr 
set rs=server.CreateObject("adodb.recordset")
%>