<%
'on error resume next
'dim dbpath,connstr,conn

dbpath=datasetup

Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
conn.Open connstr

function endconn
conn.close
set conn=nothing
end function
%>
<!-- #include file="inc/dataupdate.asp" -->