*Lad en alert kun komme en gang...

Du kan evt. gemme en cookie på clientens computer og lade den \"Expire\" efter \"Date + 1\". Når så brugeren besøger siden spørger du bare efter denne cookie, er den der ikke vises alert\'en ellers gør den ikke.

<%

If Request.Cookie(\"dinside\")(\"værether\") <> \"1\" Then

\' så kommer alert boksen

Response.Cookies(\"dinside\")(\"værether\") = 1
Response.Cookies(\"dinside\").Expires = Date + 1000

End if

%>

Gider du at lave smide en source op.
Du får jo ikke 100 point for 2½ linie ;o)

Beskrivelse af mit eksempel:

Hvis brugeren har en cookie liggende på computeren, som hedder \"dinside\" og værdien \"værether\" er alt andet end 1, eller hvis den slet ikke findes, så skal den komme med boksen - herefter oprettes/opdateres der en cookie på computeren, hvor værdien værether = 1 og den er sat til at udløbe om 1000 år :)

Selve alertboksen kan laves sådan her :


<script language=\"JavaScript\">
alert(\"Du har været her før!\");
</script>

Kan du lave en samlet source med alt det du snakker om?

Jo og boksen SKAL komme hver dag

Hvis du ønsker at der kun skal komme en alert for hver dag skal du bare sætte din cookie til at udløbe efter en dag:


<%
If Request.Cookie(\"velkommen\") <> 1 Then
   
    \'Set Cookie
    Response.Cookies(\"velkommen\") = 1
    Response.Cookies(\"velkommen\").Expires = Date + 1

    \'Javascript start
    Response.Write \"<script language=\"\"JavaScript\"\">\" &vbcrlf
    Response.Write \"alert(\"\"Velkommen til mit site\"\");\" &vbcrlf
    Response.Write \"</script>\" &vbcrlf

End if
%>

Det virker ikke. Jeg får denne fejl meddelelse:
Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'Cookie\'

/1.asp, line 12

Hvad betyder det?

Prøv at skrive din kode ud her!

Her er koden:

<%
If Request.Cookie(\"velkommen\") <> 1 Then
   
    \'Set Cookie
    Response.Cookies(\"velkommen\") = 1
    Response.Cookies(\"velkommen\").Expires = Date + 1

    \'Javascript start
    Response.Write \"<script language=\"\"JavaScript\"\">\" &vbcrlf
    Response.Write \"alert(\"\"Velkommen til mit site\"\");\" &vbcrlf
    Response.Write \"</script>\" &vbcrlf

End if
%>

<%
Response.Buffer = True

If Request.Cookies(\"dinside\")(\"værether\") <> \"1\" Then

%>
<script language=\"JavaScript\">
alert(\"Du har været her før!\");
</script>
<%

Response.Cookies(\"dinside\")(\"værether\") = \"1\"
Response.Cookies(\"dinside\").Expires = Date + 1000

End if

%>

Første gang, du kører den, kommer den med en Alert - næste gang INGEN :)

Kunne ikke rigtig få det til at virke.
Derfor spurgte jeg en jeg chatter med og han viste svaret. Og så virkede det ?

                                                                          Dette spørgsmål er lukket.

Du er simpelthen SÅ FALSK!!!!! Jeg kender dig og dine \"jeg fandt en anden jeg\" løsninger ... det er at røvrende folk!

Dengang er det en fejl !

Jeg satte 25 point til hver !
Hvis du ikke tror på mig opretter jeg bare et nut spørgsmål ! Jeg trykkede på avanceret og skrev 25 point til hver.
Hvis i er interreseret siger i bare til og jeg opretter et nyt spørgsmål :-(

Undskyld jeg mente 50 point ;-)

Nå okay - det kan jeg jo ikke vide .... sorry!

I siger til og jeg opretter spørgsmålet !