%@ Language=VBScript %> <%Response.Buffer=true%>
<%
dim con,rs,i,count
set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
strDSNPath = "PROVIDER=MSDASQL;"
strDSNPath = strDSNPath & "DRIVER={Microsoft Access Driver (*.mdb)};"
strDSNPath = strDSNPath & "DBQ=" & Server.MapPath("online.mdb") & ";"
con.open strDSNPath
%>
|