webForumDet fria alternativet

Fattar KAKA

ASP

3 svar · 198 visningar · startad av Bj

Medlem sedan sep. 2000314 inlägg
Frågan#1

Jag försöker göra en cookie där besökarna inte kan skicka mer än ett svar per dag. Men som det ser ut nu så går det inte att skicka något svar alls utan man hamnar direkt på "twotimes.asp". (Jag har rensat cookiecashen)
Är det någon som kan hjälpa mig med detta problem.

<%
response.cookies("jul") = "heVoted"
Response.Cookies("jul").Expires = Date + 1
if Request.cookies("jul") = "heVoted" then
Response.Redirect "twotimes.asp"
else

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = request.form("email")
myMail.To = "mail@adress.com"
myMail.Subject = "Tävlingssvar!"
myMail.Body = request.form("svar") + chr(10) + request.form("dittnamn")
myMail.Send
Set myMail = Nothing
end if
%>

<%
response.cookies("jul") = "heVoted"
Response.Cookies("jul").Expires = Date + 1
if Request.cookies("jul") = "heVoted" then
Response.Redirect "twotimes.asp"
else

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = request.form("email")
myMail.To = "mail@adress.com"
myMail.Subject = "Tävlingssvar!"
myMail.Body = request.form("svar") + chr(10) + request.form("dittnamn")
myMail.Send
Set myMail = Nothing
end if
%>

<html>
<head>
<title></title>
</head>
<body>
<font face="verdana"><center><p><b>Tack för Ditt Svar!</center></font></b></p>
</body>
</html>

Medlem sedan juni 200032 967 inlägg
#2

inte så konstigt när du först sätter kakan till röstad, och sedan kollar om den är satt till röstad.

eller :q

response.cookies("jul") = "heVoted"
Response.Cookies("jul").Expires = Date + 1
if Request.cookies("jul") = "heVoted" then
Response.Redirect "twotimes.asp"

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
that's what brian boitano would do!</A>

Medlem sedan sep. 2000314 inlägg
#3

Men hur skall det vara?

Medlem sedan sep. 2000314 inlägg
#4

Kan det vara så här det skall vara? Det verkade funka men jag är tacksam om ngn ville kolla så det är rätt så besökare verkligen kan svara nästa dag.

<%
if Request.cookies("jul") = "" then
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = request.form("email")
myMail.To = "mail@adress.com"
myMail.Subject = "Tävlingssvar!"
myMail.Body = request.form("svar") + chr(10) + request.form("dittnamn")
myMail.Send
Set myMail = Nothing
Else
Response.Redirect "twotimes.asp"
end if
response.cookies("jul") = "heVoted"
Response.Cookies("jul").Expires = Date + 1
%>

259 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
130 ms — ändringar (db)