<% dim counter Set db = Server.CreateObject("ADODB.Connection") db.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("counter.mdb") set rs=db.execute("Select * from Table1") counter=rs.fields(0) rs.close if session.Contents("counter")="" then set rs=db.execute("update Table1 set counter=" & counter+1) session.Contents("counter")=counter + 1 end if%>

 

 

header
TEAM IETE
 
 
<