Ho realizzato una sorta di sondaggio on line che dovrebbe controlare che uno non voti + di una vota al giorno con lo stesso IP
Ho inserito il seguente script che non funziona, o meglio se metto solo il controllo sull'IP funziona, se lo metto solo sulla data non funziona, quindi il problema è la data.
Qualcuno sa aiutarmi?
GRAZIE
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
MM_dupKeyRedirect="err_sondaggio_telecamere.asp"
MM_rsKeyConnection=MM_savianet_STRING
MM_dupKeyUsernameValue = CStr(Request.Form("ip"))
MM_dupKeyUsernameValue2 = Request.Form("data")
MM_dupKeySQL="SELECT ip, data FROM sondaggio_telecamere WHERE ip='" & MM_dupKeyUsernameValue & "' and data=#" & MM_dupKeyUsernameValue2 & "#"
MM_adodbRecordset="ADODB.Recordset"
set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
MM_rsKey.ActiveConnection=MM_rsKeyConnection
MM_rsKey.Source=MM_dupKeySQL
MM_rsKey.CursorType=0
MM_rsKey.CursorLocation=2
MM_rsKey.LockType=3
MM_rsKey.Open
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
' the username was found - can not add the requested username
MM_qsChar = "?"
If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue & MM_dupKeyUsernameValue2
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
Rispondi quotando
