<% Dim DbConn, RsControlloIP Set DbConn = Server.CreateObject("ADODB.Connection") sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Database) DbConn.Open sConnect vIP = Request.ServerVariables("REMOTE_ADDR") Set rsControlloIP = CreateObject("ADODB.RecordSet") rsControlloIP.Open "SELECT * FROM controlloclick WHERE ((IP = '" & vIP & "') AND (IDCAMPAGNA = " & Request("id") & "));", DbConn, 3, 3 If rsControlloIP.EOF Then Click rsControlloIP.AddNew rsControlloIP("idcampagna") = Request("id") rsControlloIP("ip") = vIP rsControlloIP("data") = Now() rsControlloIP("urlclick") = Request.ServerVariables("HTTP_referer") rsControlloIP.Update else ' l'ip è già in archivio, vediamo da quanto vDBDate = CDate(rsControlloIP("data")) vNWDate = CDate(Now()) If CInt(DateDiff("h", vDBDate, vNWDate)) < 24 Then ' Non sono ancora passate 24 ore. ' Non registrare il click unico. ClickNONunico else ' Sono passate più di 24 ore, conta il ' click unico e aggiorna il Database Click rsControlloIP.Update "data", Now() rsControlloIP.Update "urlclick", Request.ServerVariables("HTTP_referer") End if End if rsControlloIP.Close Set rsControlloIP = Nothing ' Carica l'url Vai DbConn.Close Set DbConn = Nothing Sub Click() Set Rs = CreateObject("ADODB.RecordSet") Rs.Open "SELECT * FROM contaclick WHERE ID = " & Request("id"), DbConn, 1, 3 If Not Rs.EOF Then Rs.Fields("clickunici") = Rs("clickunici") + 1 Rs.Fields("clicks") = Rs("clicks") + 1 Rs.Update End if Rs.Close Set Rs = Nothing End Sub Sub ClickNONunico() Set Rs = CreateObject("ADODB.RecordSet") Rs.Open "SELECT * FROM contaclick WHERE ID = " & Request("id"), DbConn, 1, 3 If Not Rs.EOF Then Rs.Fields("clicks") = Rs("clicks") + 1 Rs.Update End if Rs.Close Set Rs = Nothing End Sub Sub Vai() Set Rs = CreateObject("ADODB.RecordSet") Rs.Open "SELECT * FROM contaclick WHERE ID = " & Request("id"), DbConn, 1, 3 If Not Rs.EOF Then url = Rs("url") Response.Redirect(url) End if Rs.Close Set Rs = Nothing End Sub %>