<%
dim conn,rs
set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("lydata/guest.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath
set rs=Server.CreateObject("ADODB.Recordset")
%>