Cokkie som tæller besøg

skriv bare besøgstæller så går det nok :)
HAHAHA

<%
Dim taeller
taeller = Request.Cookies(\"taeller\")

If taeller = \"\" then

  Response.Write(\"<script language=\"\"javascript\"\">\")
  Response.Write(\"alert(\'det er første gang du er her!\')\")
  Response.Write(\"</script>\")
  Response.Cookies(\"taeller\")=\"1\"
  Response.Cookies(\"taeller\").expires = date + 365

elseif taeller = \"20\" then
  taeller = taeller + 1
  Response.Write(\"<script language=\"\"javascript\"\">\")
  Response.Write(\"alert(\'Du har været her 20 gange!\')\")
  Response.Write(\"</script>\")
  Response.Cookies(\"taeller\")=taeller

else
  taeller = taeller + 1
  response.write(\"velkommen, du har vaeret her: \" & taeller & \" gange!\")
  Response.Cookies(\"taeller\")=taeller
End If
%>

- ColdRay

du skal bare lave nogle flere af de der elseif.. mht. 40..60..o.s.v

ps. den virker :)

tak tak :-)

hmmmm...nej, jeg gav vidst dig de point for hurtigt.....
hos mig får jeg følgende fejl

Response-objekt fejl \'ASP 0156 : 80004005\'

Headerfejl

/Default.asp, linje 10

HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.

skriv:

<%
Response.Buffer = True
%>

i toppen af dokumentet..men strange..den virkede hos mig...

- ColdRay

nej, jeg har selv fundet kilden til fejlen.

scriptet virker ikke i PWS (hos mig) men når jeg kører win2000 med IIS virker det fint.
og mit webhotel kører selvfølgelig ikke PWS :-D

PS: du behøver ikke oprette et nyt spm for at få min opmærksomhed.
folk som ikke har fuppet med deres e-mail får jo tilsendt en ny mail hver gang det er et nyt svar eller kommentar :-D