Har set mig blind på det her....tror jeg

prøv at skrive indeholdet af cookien ud, så kan det være vi kan se hvor det går galt.

så vidt jeg kan se vurde det virke

Har jeg prøvet indholdet af cookien counter og key´en dato er = 06-11-2000 som jo er dags dato ??

Du glemmer at sætte expires på din cookie, så hvis du lukker browseren og starter igen, så kører den en gang til

har du sat en udløbsdato på cookien?

ÆHBÆ erikjacobsen 43 sek ;o)

Hilsen Lars D

Lars: alderen sætter sine spor. Men jeg kan da ramme tastaturet de fleste gange ;-)

Ja det var jo en god ide, men det var ikke det..

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"hbmx.mdb\")
if request.cookies(\"counter\")(\"dato\") <> date then
\'-------Dette burde ikke blive kørt andan gang man ser siden på samme dag---------
Conn.Execute (\"UPDATE counter SET total = total + 1 WHERE id = 1;\")
response.cookies(\"counter\").Expires = \"31/12/2022\"
if request.cookies(\"counter\")(\"visit\") = \"1\" then
Conn.Execute (\"UPDATE counter SET igen = igen + 1 WHERE id = 1;\")
else
Conn.Execute (\"UPDATE counter SET ny = ny + 1 WHERE id = 1;\")
response.cookies(\"counter\")(\"visit\") = \"1\"
end if

response.cookies(\"counter\")(\"dato\") = date
\'----------------------------------------------------------------------------------
end if
set rs = Conn.Execute(\"SELECT * FROM counter where id = 1\")
response.write \"<FONT SIZE=\'2\' FACE=\'Verdana\'><B>COUNTER</B></FONT><BR>\"
response.write \"<FONT SIZE=\'1\' FACE=\'Verdana\'>Totale Hits: \" & rs(\"total\") & \"</FONT><BR>\"
response.write \"<FONT SIZE=\'1\' FACE=\'Verdana\'>Nye Bes&oslash;gende: \" & rs(\"ny\") & \"</FONT><BR>\"
response.write \"<FONT SIZE=\'1\' FACE=\'Verdana\'>Tidligere Bes&oslash;gende: \" & rs(\"igen\") & \"</FONT><BR>\"
set rs = nothing
conn.Close
Set conn = nothing
%>

Dette:

Response.Cookies(\"counter\").Expires = MonthName(Month(Now))&\" \"&Day(Now)+1&\", \"&Year(Now)

skulle give en \"holdbarhed\" på en dag.

Det der med to-dimensionelle cookies kender jeg ikke rigtig, så hvis der er problemer med det, så ..

Men gør den det den skal hvis du ikke lukker browseren, så skulle det være i orden.

For langsom igen, Lars, Formater er *vistnok* som Lars sige:
  Response.Cookies(\"Type\").Expires = \"July 31, 1997\"

Det gør jo ingen forskel om jeg bruger din linie eller min..... to-dimensioneller cookies ved jeg ikke rigtig hvad du mener med....jeg har bare to \"keys\" i en cookie....

Selvom jeg ikke lukker browseren ned eksekveres det stadig....

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"hbmx.mdb\")
if request.cookies(\"counter\")(\"dato\") <> date then
\'-------Dette burde ikke blive kørt andan gang man ser siden på samme dag---------
Conn.Execute (\"UPDATE counter SET total = total + 1 WHERE id = 1;\")
\'response.cookies(\"counter\").Expires = \"31/12/2022\"
\'Response.Cookies(\"counter\").Expires = MonthName(Month(Now))&\" \"&Day(Now)+1&\", \"&Year(Now)
Response.Cookies(\"counter\").Expires = \"December 31, 2022\"
if request.cookies(\"counter\")(\"visit\") = \"1\" then
Conn.Execute (\"UPDATE counter SET igen = igen + 1 WHERE id = 1;\")
else
Conn.Execute (\"UPDATE counter SET ny = ny + 1 WHERE id = 1;\")
response.cookies(\"counter\")(\"visit\") = \"1\"
end if

response.cookies(\"counter\")(\"dato\") = date
\'----------------------------------------------------------------------------------
end if
set rs = Conn.Execute(\"SELECT * FROM counter where id = 1\")
response.write \"<FONT SIZE=\'2\' FACE=\'Verdana\'><B>COUNTER</B></FONT><BR>\"
response.write \"<FONT SIZE=\'1\' FACE=\'Verdana\'>Totale Hits: \" & rs(\"total\") & \"</FONT><BR>\"
response.write \"<FONT SIZE=\'1\' FACE=\'Verdana\'>Nye Bes&oslash;gende: \" & rs(\"ny\") & \"</FONT><BR>\"
response.write \"<FONT SIZE=\'1\' FACE=\'Verdana\'>Tidligere Bes&oslash;gende: \" & rs(\"igen\") & \"</FONT><BR>\"
set rs = nothing
conn.Close
Set conn = nothing
%>


Ja erikjacobsen....det holder ikke....det er ikke det....

Ok Carsten. Kan du finde din cookie i C:\\windows\\cookies  eller C:\\windows\\profiles\\**bruger**\\cookies.
Jeg prøver at sætte et eksempel op!

Jep cookien er der...

Hvor får du date fra? Skal det ikke vare date()

if request.cookies(\"counter\")(\"dato\") <> date() then

Eller måske Cstr(date()), Jeg er ikke sikker på at du kan sammenligne en dato med en streng umiddelbart.

Har ingen server her, så jeg kan ikke teste

Date og Date() er det samme...

Er det ?!?

Jep...har også lige prøvet med date() men det gør absolut igen forskel..

Jeg kan se på mine eksperimenter, at en caching af siden et eller andet sted undervejs
giver problemer - naturligvis - men nu *skal* jeg altså have noget andet færdigt!

Dette svarer \"yes\" på min server (som jeg nu har startet)

Response.Cookies(\"dato\") = date
if date <> Request.Cookies(\"dato\") then Response.Write(\"yes\")

Det er fordi min windows og derfor min browser kører med dansk datoformat, mens min server kører med engelsk, så min browser gemmer 6-11-2000 i cookien, og serveren sammenligner det med 11/6/2000.

Brug fx. dette:
Response.Cookies(\"dato\") = Day(now)+1&Month(now)&Year(now)
if Response.Cookies(\"dato\") <> Day(now)&Month(now)&Year(now)

Eller et andet datoformat du er sikker på. Jeg er snart ikke sikker på nogetsomhelse, når det handler om datoer

ldanielsen >> Er ked af at sige det, men det er ikke fordi at du har dansk system og engelsk server at den svarer yes. Det er serveren der bestemmer hvad der skal bruges som dato, også i cookien.
Men din ide med at lægge en til dags dato også bruge den som gyldighed på cookien.

Undrer mig stadig over hvorfor at man ikke kan sammenligne en dato i en cookie, med det som serveren retunerer.

En lille fejl fra min side:

Du skal lægge en dag til date inden du trækker tekststrengene ud:

myDate = DateAdd(\"d\",1,date)

Altså:

Response.Write (date) giver \"11/7/2000\"

Response.Cookies(\"dato\") = date
Response.Write(Request.Cookies(\"dato\") giver \"7-11-2000\"

Så det er ikke det samme!

Men tak for point\'ene :o)

Det er det samme....!!
<% Response.Write date() & \"<BR>\"
Response.Cookies(\"datosdf\") = date()
Response.Write Request.Cookies(\"datosdf\") %>

Begge returnerer 07-11-2000, så det er det samme og det ER serveren der bestemmer, det har ikke noget med client side at gøre.

Kan du så forklare hvorfor min server gør sådan?

Du har helt ret i at det hele foregår server-side, tilsyneladende. Du skriver jo cookien med server-side script.

Men cookien bliver nu alligevel gemt på klienten, og det må være der det sker, eller rettere når klienten bliver bedt om at oplyse værdien senere.

Du kan ikke gemme en dato i en cookie, og derfor kan værdien af en cookie ikke blive lig med en dato, medmindre det sprog du bruger anvender en automatisk konvertering når du prøver at sammenligne.

En dato er jo ikke en streng, og du kan kun gemme strenge i en cookie.

Derfor kan du ikke sammenligne en cookie med en dato

if request.cookies(\"counter\")(\"dato\") <> Cstr(date) then ...

Det virker her.

Jeg siger tak :)