<% language="VBScript"%>
<%


DIM counter1


 set mycon=Server.CreateObject("ADODB.Connection")
 
 mycon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\fpdb\db4.mdb"))

 set rs= mycon.execute("select * from ctr")


 counter1 = rs("ctr1") + 1
 mycon.execute("Update ctr  set ctr1="&counter1&"")
 mycon.close()
%>