<% @LANGUAGE=VBSCRIPT %> <% 'Connexion à la base de données set Conn = server.createObject ("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("BD4_Angouweb.mdb") sql="SELECT * FROM url" Set CB=conn.execute(sql) Id=request.querystring("doc") varSQL = "SELECT id, visites, url FROM url WHERE ID = " & id set rsclick=Conn.execute(varSQL) url = rsclick("url") clicks = rsclick("visites") rsclick.close Set rsclick=nothing sqlu="UPDATE url SET visites='" & clicks + 1 & "' WHERE ID = " & id set rsupdate=Conn.execute(sqlu) CB.close Set CB=Nothing response.Redirect url %>