<%@ Language=VBScript %> <%Response.Buffer=true%> <% Dim conn,s,s1,s2,rs2,rs3 Set conn = Server.CreateObject("ADODB.Connection") set rs2 = server.CreateObject("ADODB.Recordset") set rs3 = server.CreateObject("ADODB.Recordset") 'DSN less connection conn.Provider = "Microsoft.Jet.OLEDB.4.0" conn.ConnectionString = "Data Source=" & Server.MapPath("dhesi.mdb") conn.Open ConnectionString s="Select hitcounter from hitcount where id=1" set rs2=conn.execute(s) s1=rs2("hitcounter") s1=s1+1 s2="Update hitcount set hitcounter='"& s1 & "' where id=1" set rs3=conn.execute(s2) set conn=nothing %>