<% URL = Request.QueryString("URL") 'apertura database Set conn = Server.CreateObject("ADODB.Connection") dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; " dsnpath = dsnpath & "DBQ=" & Server.MapPath("mdb-database/contaclick.mdb") conn.open dsnpath 'aggiornamento database Conn.Execute "UPDATE Contaclick SET click = click + 1 WHERE URL='" & URL & "'" Conn.Close Set Conn= Nothing Response.redirect URL %>