oversæt dansk til asp

Prøv med:
If Request.Cookies("arj") Then
    Response.Cookies("arj")("besog") = Request.Cookies("arj")("besoeg") + 1
Else
    Response.Cookies("arj")("besog") = 1
End If

Response.Write "Du har været her" & Response.Cookies("arj")("besog") & "gange"

"hvis kagen er der så
hent Besog fra kage"

Hehe..

løste det selv

Hvis du har behov for at få det "oversat" fra dansk til ASP, er det bemærkelsesværdigt, at du pludselig godt kan, efter der er kommet svar......

det svar virkede over hovedet ikke.... det lignede mit eget første udkast på en prig, dog havde min endda færre fejl ;)

Så lad os da se dit eget svar, som åbenbart virker!

Men jeg ved godt, hvorfor svaret ikke virker.
Der er ikke defineret en levetid for cookien, hvorfor den udløber, når du lukker din browser.
Den skal se sådan ud:

If Request.Cookies("arj") Then
    Response.Cookies("arj")("besog") = Request.Cookies("arj")("besoeg") + 1
Else
    Response.Cookies("arj")("besog") = 1
End If
Response.Cookies("arj").Expires = Date+365

oasen der er allerede fejl i første linie af den du viser!!

If Request.Cookies("arj") <> "" Then

werd :> kan man komme til at se hvordan du gør det? jeg kunne godt bruge en sådanne tæller.

jo, selvfølgelig...

jeg står for at skulle til grøn koncert om et par timer og der skal jo også drikkes lidt inden. Så det bliver først i morgen en gang!!

OK, God koncert

If Request.Cookies("arj")("besog") <> "" Then
    Response.Cookies("arj")("besog") = Request.Cookies("arj")("besoeg") + 1
Else
    Response.Cookies("arj")("besog") = 1
End If
Response.Cookies("arj").Expires = Date+365

oasen og hells >>
tester i ikke jeres forslag inden i poster dem? - det er ihvertfald ikke mit indtryk... anyway, here goes

<%
If Request.Cookies("arj")("besog") <> "" Then
Function PlusEn(t)
  t = t + 1
  PlusEn = t
End Function

intTal = Request.Cookies("arj")("besog")

Response.Cookies("arj")("besog") = PlusEn(intTal)

Else
    Response.Cookies("arj")("besog") = 1
    Response.Cookies("arj").Expires = Date+365
End If

Response.Write Request.Cookies("arj")("besog")
%>


den er dog ikke reload-sikker!!!!

Dit eget gør præcis det samme som mit - du har bare en masse overflødig kode til en funktion, du sikkert kun får brug for én gang alligevel.

Giv mig en god grund til, jeg skulle teste det, når du alligevel har taget alle points selv!

din kode virker jo ikke!!!!

werd:> måske er det mig der er skør, men din kode virker fint indtil at man åbner en ny browser, så starter den forfra? er det mig der misser noget?

Men denne redigerede virker:

<%
If Request.Cookies("arj")("besog") <> "" Then
Function PlusEn(t)
  t = t + 1
  PlusEn = t
End Function

intTal = Request.Cookies("arj")("besog")

Response.Cookies("arj")("besog") = PlusEn(intTal)
Response.Cookies("arj").Expires = Date+365
Else
    Response.Cookies("arj")("besog") = 1
    Response.Cookies("arj").Expires = Date+365
End If

Response.Write Request.Cookies("arj")("besog")
%>

Takker
Gizom:>

og hvis man prøver at gøre den reloadsikker kan det gøres sådan: (der skal nu gå 2 timer før man får plusset besog!) - Der er dog en fejl nede ved den if-sætning der spørger om kagen er 2 timer gammel!

<%
'Sætter variabler
Tid = Now
myTime = Hour(Tid)
myMinut = Minute(Tid)
strKaget = Request.Cookies("testarj")("time") + 2
strKagem = Request.Cookies("testarj")("minut")

'Tjekker om kagen eksisterer
If Request.Cookies("testarj")("besog") = "" Then
'Hvis den ikke gør det skal der laves kage
  Response.Cookies("testarj")("besog") = 1
  Response.Cookies("testarj")("time") = myTime
  Response.Cookies("testarj")("minut") = myMinut
  Response.Cookies("testarj").Expires = Date+365
  Response.Write "Kagen er der ikke"

Else
  Response.Write "kagen er der<br />"
'Hvis kagen er der, skal der tjekkes om den er 2 timer gammel
  if strKaget =< myHour then
  'Hvis den er det skal kagen opdateres
    Response.Write "kagen er 2 timer mindre end timen nu"
    intTal = Request.Cookies("testarj")("besog") + 1
    Response.Cookies("testarj")("besog") = intTal
    Response.Cookies("testarj")("time") = myTime
    Response.Cookies("testarj")("minut") = myMinut
    Response.Cookies("testarj").Expires = Date+365

  else
  Response.Write "det virkede ikke"

  end if
End If
'Response.Write Request.Cookies("testarj")("besog")
%>