Ipadresse
Har nedstående kode.. Jeg vil gerne gøre sådan, at når en IP har tilmeldt sig en gang, og vil tilmelde sig igen, kan man ikke fra den IP .. Hvordan gør jeg det ? Altså, der skal kun kunne stemmes én gang pr. IP<%
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyldt
if ((UCASE(Request.Form("Nick")) = UCASE(Request.Form("Fyre"))) or (UCASE(Request.Form ("Nick")) = UCASE(Request.Form("Piger")))) then
Response.write ("<b><font color='red' size='2'> Hov "& Request.Form("Nick"))
response.write (". Du må jo ikke stemme på dig selv. <br>Stem du hellere på en anden i stedet for!")
response.write ("</b></font>")
Else if (Request.Form("Nick") <> "") then
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from Maj where Nick = '" & Request("Nick") & "'"
rs.Open strsql, conn, 1, 3
'Tjecker om brugernavnet er optaget
if rs.eof or rs.BOF then
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("Piger") = Request("Piger")
rs("Fyre") = Request("Fyre")
rs("Nick") = Request("Nick")
rs("Ip") = Request.ServerVariables("REMOTE_ADDR")
rs("Maskine") = Request.ServerVariables("REMOTE_HOST")
rs("Dato") = Now()
rs("Tid") = Time()
rs.update
Response.Redirect("stem.asp?mode=Tak")
else
'Skriver at brugernavnet er optaget
Response.Write("<b><font color='red' size='2'>Hov! Du har jo allerede stemt! <br>Du må kun stemme én gang!</font></b><br>")
end if
rs.Close
set rs = nothing
else
Response.Write("<b><font color='red' size='2'>Du skal skrive dit chatnavn!</font></b><br>")
end if
end if
end if
%>
