<% set conn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.LockType = 3 conn.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("BD_Web/cs.MDB")) strconn = "SELECT * FROM visites" rs.open strconn,conn rs("num_visites")=rs("num_visites")+1 rs.update rs.close set rs=nothing conn.close set conn=nothing%>