<%
dim dsnstrcount,dsnstr,rs
dim db
db="/count/count1.mdb"
Set dsnstr = Server.CreateObject("ADODB.Connection")
dsnstrcount="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
dsnstr.Open dsnstrcount
%>