Un contatore accessi con cookie da correggere

[DarioMarco]

Salve a tutti, ho improvvisato uno script dove dovrebbe contarmi i visitatori unici in una pagina usando i cookies, in modo tale che ad ogni refresh della pagina il contatore non incrementa il numero dei visitatori.
Purtroppo questo non succede, ed oltre ad incrementare, lo fa in modo anomalo, a volte incrementa di un punto, a volte di 8 punti.
Questo il codice:

set rs2 = Server.CreateObject("ADODB.Recordset")
set rs2 = conn.Execute("Select hits from dati where id = "&id)

If Request.Cookies("contatore") = "" Then
incr = rs2("hits") + 1
conn.Execute("Update dati set hits = "&incr&" where id = "&id)
else
incr = rs2("hits")
End If

rs2.Close
set rs2 = nothing

Response.Write("Visite: "&incr)

Dove sbaglio?
grazie, ciao.

[Roby_72]

Ma il cookie quando lo valorizzi?
Lo dovresti fare SOLO quando incrementi il contatore.

Roby

[DarioMarco]

Grazie per la tua risposta roby, ma siamo sempre li:

set rs2 = Server.CreateObject("ADODB.Recordset")
set rs2 = conn.Execute("Select hits from dati where id = "&id)

If Request.Cookies("contatore") = "" Then
incr = rs2("hits") + 1
conn.Execute("Update dati set hits = "&incr&" where id = "&id)

Response.Cookies("contatore") = "ok"

else
incr = rs2("hits")
End If

rs2.Close
set rs2 = nothing

Response.Write("Visite: "&incr)

[Roby_72]

Fallo in due pagine.
Mi spiego. In un pagina fai l'UPDATE se serve.
In un'altra leggi le visite.


Roby

[DarioMarco]

mmmm, in una pagina non si può fare proprio?
ho visto parecchi script e tutorial, e lo fanno tutti in una pagina, ma provandoli non funziona nemmeno

e se dovessi farlo in due pagine devo includere la pagina di update in quella dove leggo le visite?

[Grambo]

ma il cookie te lo salva?
passa per variabili di comodo

[DarioMarco]

ho messo un response.cookie("contatore") sia all'inizio dello script che alla fine e quando faccio il refresh mi stampa ok, ma il valore incrementa ugualmente

[Grambo]

se io fossi in te farei

set rs2 = Server.CreateObject("ADODB.Recordset")
set rs2 = conn.Execute("Select hits from dati where id = "&id)

If Request.Cookies("contatore") = "ok" Then
incr = rs2("hits")

else

incr = rs2("hits") + 1
conn.Execute("Update dati set hits = "&incr&" where id = "&id)

Response.Cookies("contatore") = "ok"
End If

rs2.Close
set rs2 = nothing

Response.Write("Visite: "&incr)

e meglio ancora userei variabili di comodo

[DarioMarco]

e se io fossi in te sarei un genio!
un applauso funziona!!!!
grazie di cuore, anche se non ho capito cosa sono le variabili di comodo, scusa la mia ignoranza

[Grambo]

Originariamente inviato da DarioMarco
variabili di comodo

esempio:

test=Request.Cookies("contatore")

if test="ok" then
..

test è una variabile di comodo XD