Ik heb het probleem dat mijn If-statement het niet goed doet. Het lijkt erop dat hij moeite heeft met vergelijken m.b.v. variabelen want hij zal altijd de tweede if-statement uitvoeren en nooit de eerste.
Heeft iemand enig idee???
Source:
<%
Dim rsPoll
Dim rsPoll_numRows
Dim PollID
Set rsPoll = Server.CreateObject("ADODB.Recordset")
rsPoll.ActiveConnection = MM_connPoll_STRING
rsPoll.Source = "SELECT * FROM tblPollVraag WHERE Tonen = true ORDER BY pollID desc"
rsPoll.CursorType = 0
rsPoll.CursorLocation = 2
rsPoll.LockType = 1
rsPoll.Open()
rsPoll_numRows = 0
PollID = rsPoll.Fields.Item("PollID").Value
Dim cookie
cookie = Request.Cookies("Poll")("PollID")
If Request.Cookies("Poll") = "" then
response.Write("geen cookie, wordt aangemaakt")
Response.Cookies("Poll")("PollID") = PollID
Response.Cookies("Poll").Expires = Date + 3
else if Request.Cookies("Poll")("PollID") <> rsPoll.Fields.Item("PollID").Value then
response.Write("cookie bestaat maar heeft een andere waarde")
Response.Cookies("Poll")("PollID") = PollID
Response.Cookies("Poll").Expires = Date + 3
else
response.Write(" gelukt ")
end if
end if
%>
Heeft iemand enig idee???
Source:
<%
Dim rsPoll
Dim rsPoll_numRows
Dim PollID
Set rsPoll = Server.CreateObject("ADODB.Recordset")
rsPoll.ActiveConnection = MM_connPoll_STRING
rsPoll.Source = "SELECT * FROM tblPollVraag WHERE Tonen = true ORDER BY pollID desc"
rsPoll.CursorType = 0
rsPoll.CursorLocation = 2
rsPoll.LockType = 1
rsPoll.Open()
rsPoll_numRows = 0
PollID = rsPoll.Fields.Item("PollID").Value
Dim cookie
cookie = Request.Cookies("Poll")("PollID")
If Request.Cookies("Poll") = "" then
response.Write("geen cookie, wordt aangemaakt")
Response.Cookies("Poll")("PollID") = PollID
Response.Cookies("Poll").Expires = Date + 3
else if Request.Cookies("Poll")("PollID") <> rsPoll.Fields.Item("PollID").Value then
response.Write("cookie bestaat maar heeft een andere waarde")
Response.Cookies("Poll")("PollID") = PollID
Response.Cookies("Poll").Expires = Date + 3
else
response.Write(" gelukt ")
end if
end if
%>