<%
DB="data.asp"
Response.Buffer=True
session.timeout=30
on error resume next
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
conn.Open connstr
%>