Log IP
Har nedstående kode ..Hvordan gør jeg sådan, at folk som allerede har tilmeldt fra den pågældende IP adresse, ikke kan igen ?
<%
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
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
%>
