<% Dim DbConn, sSQL, Rs, sUrlRedirect Set DbConn=Server.CreateObject("ADODB.Connection") DbConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("link.mdb") 'vedo dove devo indirizzare l'utente al click sSQL="SELECT DOC_URL FROM NUOVI WHERE DOC_ID=" & request.querystring("Cod") Set Rs=DbConn.execute(sSQL) 'memorizzo l'Url sUrlRedirect=Rs("Doc_URL") Rs.Close Set Rs=Nothing 'aggiorno i click al codice relativo sSQL="UPDATE NUOVI SET CLICK=CLICK+1 WHERE DOC_ID=" & request.querystring("Cod") DbConn.execute(sSQL) DbConn.close Set DbConn=Nothing 'reinvio l'utente all'url indicata 'response.redirect(sUrlRedirect) %> Stai entrando nel sito consigliato da cucinagiocattolo.eu

 

 




Se non si carica la pagina entro pochi secondi,
clicca qui per accedere al sito.