<%
On Error Resume Next
Dim rs,sql,Conn,Connstr,Db,StartTime
StartTime=timer()
Db="../data/data.MDB"
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'Connstr="Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
Conn.Open Connstr
If Err Then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2>WWW.I263.NET DATA UPDATE...</font></center>"
response.write "</td></tr></table></center>"
Response.End
End If
Function CloseDatabase
Conn.close
Set Conn = NOTHING
End Function
%>