cosa c'è che non va (è un file di inclusione )



<%
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
ip = Request.ServerVariables( "REMOTE_ADDR" )
ora = Response.Write(FormatDateTime(Now(),3) & " " )
data = (FormatDateTime(Now(),2) & " " )
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
reg_avv = request.Cookies("registrazione").Reg_av
if reg_avv = "true" then
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../mdb_database/all.mdb")
rs.Open "Accessi",con,,3,&H0002
ID = request.Cookies("registrazione").ID
do while not rs.EOF
id_db = rs.fields("id")
if ID = id_db then
rs.Fields("Num_vis").value = num_vis_db
num_vis = num_vis_db 1
rs.fields("data_ult") = data
rs.fields("ora_ult") = ora
rs.fields("num_vis") = num_vis
rs.fields("ip_ult") = ip
exit do
end if
rs.movenext
loop
else
Response.Cookies("registrazione").Domain = "digitalbrothers.it"
Response.Cookies("registrazione").Expires = #12/30/2002#
response.Cookies("registrazione").Path = "\"
Response.Cookies("registrazione").Reg_av = "true"
Function genera(Max, Min, MaxChar)
Dim controllo, cifra, intRange
' differenza tra estremo sup e inf
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
ID = genera(91, 48, 4)
Response.Cookies("registrazione").ID = ID
Response.Cookies("registrazione").IP = ip
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../mdb_database/all.mdb")
rs.Open "Accessi",con,,3,&H0002
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.close
set rs = Nothing
con.close
set con = Nothing
end if
%>

17.35.30
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Request.Cookies(...).Reg_av'

/prova/includes/accessi.inc, line 31

Mi dispiace ma non funziona
Faccio una cosa migliore come faccio vedere se un cookies esiste

Ciao Cisco,
Cosa sarebbe secondo te questo reg_av? Non essendo un metodo o proprietà del cookie, non ti funzionerà mai.
Forse è una sottochiave di "Registrazione"?Allora scrivilo come le altre sottochiavi.