<%
   dim conn,strconn,rs

   Set conn = Server.CreateObject("ADODB.Connection")
   set rs=server.CreateObject("ADODB.Recordset")
   'Strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&("f:\database\gjdgjd.asp")
   Strconn="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data\db.mdb")
   conn.Open Strconn
%>