if rs("vecka") = datepart(ww,date()) then
' röstat gör nått
else
' inte röstat - gör nått
end if
RED. Lade till kod-taggar.
OveRRidE
moderator
7 svar · 192 visningar · startad av DiDjo
Hej igen! Hur kollar jag om ngn redan har röstat? jag har ip logg + vilken vecka det var när dom röstade senast!
Det jag vill är att den ska kolla om man har röstat denna vecka lr inte! Tabelen heter "rostat", kolumnerna heter "ip" och "vecka"
if rs("vecka") = datepart(ww,date()) then
' röstat gör nått
else
' inte röstat - gör nått
end if
RED. Lade till kod-taggar.
OveRRidE
moderator
Allt ligger innanför en do... dessutom måste man kolla ip adressen! Så har har jag gjort och det fungerar ej!
If Request.Querystring("do") = "rosta" Then
If rs("ip") = Request.ServerVariables("remote_host") then
if rs("vecka") = datepart("ww",now()) then
Response.Redirect sidan
End If
Else
Response.Redirect "main.asp?do=spara&id=" & Request.Querystring("id") & "&val=" & Request.QueryString("val")
End If
End If
Felet blir:
error '80020009'
Exception occurred.
/poll/poll.asp, line 119
Är måååånga fel i den koden...
If Request.Querystring("do") = "rosta" Then
strSQL = "select * from rostat where ip = '"&request.servervariables("REMOTE_ADDR")&"' and vecka = " & datepart("ww",date())
set rs = connect.execute(strSQL)
if rs.eof then
Response.Redirect sidan 'Antar att [i]sidan[/i] är en variabel?
else
Response.Redirect "main.asp?do=spara&id=" & Request.Querystring("id") & "&val=" & Request.QueryString("val")
end if
r/ skrev till "" på ett ställe.
Nu får jag detta fel :( :
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'DatePart'
/poll/poll.asp, line 119
Prova koden igen. Har ändrat datepart(ww,date()) till datepart("ww",date()).
Samma fel...
jaja jag avänder karkor istället!