<% Dim DbConn, RsControlloIP, da_quanto, nomedelsito, vota_sito, n_id1, n_id,ultimoSlash n_id1 = Request("id") ultimoSlash = InStrRev(n_id1,"/") if ultimoSlash > 0 Then n_id = Mid(n_id1,1, ultimoSlash- 1) else n_id = n_id1 end if 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, 1, 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 'yyyy - Anno 'q – Quattro mesi 'm - Mese y – Giorno di un anno 'd - Giorno 'w – Giorno della settimana 'ww – Giorno dell'anno 'h - Ora 'n - Minuto 's - Secondo vDBDate = CDate(rsControlloIP("data")) vNWDate = CDate(Now()) da_quanto = CInt(DateDiff("n", vDBDate, vNWDate)) Session("da_quanto") = da_quanto If da_quanto < 60 Then ' Non sono ancora passate 24 ore. ' Non registrare il click unico. ClickNONunico rsControlloIP.Close Set rsControlloIP = Nothing DbConn.Close Set DbConn = Nothing Response.redirect "../hai-gia-votato-il-sito.asp" 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 DbConn.Close Set DbConn = Nothing Response.redirect "../top100link.asp" Sub Click() Set Rs = CreateObject("ADODB.RecordSet") Rs.Open "SELECT * FROM Risultati WHERE ID = " & Request("id"), DbConn, 1, 3 If Not Rs.EOF Then Rs.Fields("ClickTot") = Rs("ClickTot") + 1 Rs.Fields("Clickout") = Rs("Clickout") + 1 Rs.Update End if Rs.Close Set Rs = Nothing End Sub Sub ClickNONunico() Set Rs = CreateObject("ADODB.RecordSet") Rs.Open "SELECT * FROM Risultati WHERE ID = " & Request("id"), DbConn, 1, 3 If Not Rs.EOF Then Rs.Fields("ClickTot") = Rs("ClickTot") + 1 Rs.Update nomedelsito = rs("NomeSito") Session("nomedelsito") = nomedelsito vota_sito = "L" Session("vota_sito") = vota_sito End if Rs.Close Set Rs = Nothing End Sub %>