<% '-- DarkAngel Jan-2002 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath ("da_counter.mdb") conn.Execute("Update Hits set hit=hit+1;") set hit=conn.Execute("Select hit from Hits;") Response.Write hit ("hit") hit.close conn.Close %>