IP check

her er scriptet in.asp

<%

urlhome = Request.QueryString("id")

    dim strDSN, Conn
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("toplist.mdb")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open strDSN

Set RS = conn.Execute("select * from toplist where id =" & urlhome)

if cdate(request.cookies("ind")(cstr(urlhome))) < DateAdd("d",-6,now()) then
    ind=cInt(rs("ind"))+1
    Set RS2 = conn.Execute("UPDATE toplist SET ind = " & ind & " Where id =" & urlhome)
    response.cookies("ind").expires=DateAdd("m",1,now())
    response.cookies("ind").domain = "www.url.dk"
    response.cookies("ind")(cstr(urlhome))= now()
End If

jwredir = RS("urlhome")

RS.Close
set rs= nothing
conn.Close
set conn = nothing

Response.Redirect (jwredir)
%>

Hvordan ser din database ud??
Du kan tilføje en kolonne IP til en stemme og tjekke på om den findes for det pågælde spørgsmål.


strIP = Request.Servervariables("REMOTE_ADDR")
'Du kan evt tilføte spørgsmål ID på WHERE delen hvis du har flere forskellige spørgmål:
sql = "SELECT * FROM svar WHERE IP = '" & strIP & "'"
set rs = Conn.execute(sql)
if rs.EOF then
  'OK at stemme
  sql = "INSERT INTO svar (spmID, svarMulighed, IP) VALUES ("&spmID&", "&svar&", '" & strIP & "');
  conn.execute (sql)
else
  Response.write "Du har svaret en gang før!"
end if

Følg fastpoint's eksempel, da den bruger cookies i stedet for IP'en. De fleste brugers IP skifter ofte, så der er ingen grund til at checke på dette.

sn0wflake>> LOL har du set hvem som er spørger :)

jeg ville gerne tjecke om det virker men kan ikke da ASP som sagt ikke lige fungere på serveren:(

Jeg er droppet mit det med toplisten her... har for meget andet på hjernen...