Ciao per chi ha letto il mio precedente post vi infoirmo che riguarda sempre lo stesso argomento.
Per chi invece non lo avesse letto ecco qui.
Ho creato questo script allo scopo di far creare un cookies sul quale scrive varie informazioni .
Alla prima esecuzione dello script Memorizza un cookies sul pc del client e i dati su di un database nella seconda esecuzione invece incremanta il numero delle visite nel db
.
Il problema è proprio qui ,alla chiusura della window e alla riapertura di un altra il server memorizza un altra voce nel db senza incrementare quella precedente .
Io penso che sia il settaggio della scdenza del cookies ma ho fatto vari tentativi ecco a voi lo script

+-----------------------------------------+<%@ Language="VBScript"%>
<%response.buffer = true%>
<%
' +-------------------------------------+
' |MODULO DI REGISTRAZIONE CREATO DA |
' |CISCOSKI . |
' |IL PRESENTE SCRIPT VERIFICA SU DI UN |
' |COOKIES "registrazione" SE L'UTENTE |
' |CHE VISITA IL SITO SIA GIA REGISTRATO|
' |IN CASO AFFERMATIVO AUMENTA DI UNA |
' |UNITà IL NUMERO DI VISITE DEL SURFER |
' |E ANNOTA SU DI UN DATABASE L'ORA LA |
' |DATA E L'IP .IN CAASO CONTRARIO CREA |
' |UN COOKIES NEL QUALE RIPORTI I DATI |
' |STANDARD E IL "reg_av" E DOPO |
' |REGISTRA I DATI SUL DATABASE |
' +-------------------------------------+

dim reg_avv
dim con
dim rs
dim id_db
dim ID
dim num_vis
dim num_vis_db
dim ip
dim ora
dim data

' differenza tra estremo sup e inf
Function genera(Max, Min, MaxChar)
Dim controllo, cifra, intRange
intRange = Max - Min
For i = 1 To MaxChar
codice = 58
Randomize()
Do While (codice > 57 And codice < 65)
codice = Int((intRange * Rnd()) + Min)
Loop
cifra = cifra & Chr(codice)
Next
genera = cifra
End Function


ip = Request.ServerVariables( "REMOTE_ADDR" )
ora = (FormatDateTime(Now(),3) & " " )
data = (FormatDateTime(Now(),2) & " " )

Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../../mdb-database/dball.mdb")
rs.Open "Access_tab",con,,3,&H0002

reg_avv = request.Cookies("registrazione")("Reg_av")
if reg_avv = "true" then
ID = request.Cookies("registrazione")("ID")
do while not rs.EOF
id_db = rs.fields("id")
if ID = id_db then
num_vis_db= rs.Fields("Num_vis").value
num_vis = num_vis_db + 1
'rs.edit
rs.fields("data_ult") = data
rs.fields("ora_ult") = ora
rs.fields("num_vis") = num_vis
rs.fields("ip_ult") = ip
rs.update
response.write("<p><font color='#FFFFFF'>Incrementato</font></p>")
exit do
end if
rs.movenext
loop

else
Response.Cookies("registarzione").Expires= #01/01/2010#
Response.Cookies("registrazione").Path="/"
Response.Cookies("registrazione").Secure=FALSE


ID = genera(91, 48, 4)
Response.Cookies("registrazione")("Reg_av") = "true"
Response.Cookies("registrazione")("ID") = ID
Response.Cookies("registrazione")("IP") = ip
rs.addnew
rs.fields("ID") = ID
rs.fields("ip_ult") = ip
rs.fields("data_ult") = data
rs.fields("ora_ult") = ora
rs.fields("num_vis") = 1
rs.update
response.write("<p><font color='#FFFFFF'>Aggiunto DB</font></p>")
end if

rs.close
set rs = Nothing
con.close
set con = Nothing

%>

+-----------------------------------------+
Buona fortuna

[Ciscoski.com]
[digitalbrothers.it]

<b>rome ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
Ciao vedo che lo script non funziona ancora !! :-((

Rileggendolo ho notato una stranezza:

reg_avv = request.Cookies("registrazione")("Reg_av")
if reg_avv = "true" then


Come fà reg_avv ad essere true se non viene dichiarato tale ???


<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>

Non ho capito cosa vuoi dire non ho capito ?????????????
PerFavore rispondi

<b>pierfe ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>

Response.Cookies("nome")=valore non memorizza affatto il cookie sul computer ma in memoria. Quando chiudi una sessione del browser ovvero tutte le finestre associate a quella sessione il cookie viene automaticamente dimenticato.
Per memorizzare il cookie sul computer affinchè sia valido per tutte le sessioni devi usare un javascript che imposti document.cookie.
Tale cookie è accessibile client-side e se vuoi passare il suo valore al server lo devi passare via URL o con il POST di un form.

Tieni presente che Netscape e IE gestiscono diversamente i cookies in memoria.

Ciao
Gabriele


Grazie Gabriele mi sapresti dire un link o uno script per fare quello che tu hai detto

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>