Ciao io ho creato questo script . in poche parole funziona tutto bene fino a qundo però non si va a visitare la pagina da un altra finestra .Sono praticamente sicuro (98%) che dipenda dalla memorizzazione del cookies ecco il codice

+-----------------------------------------+<%@ 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

%>

+------------------------------------------+
Grazie
[CISCOSKI.com]

Forse tu non sai qual'è il vero scopo di un forum .
Bye Bye
[ciscoski.com]

da quando ho cambiato

response.cookies("registrazione")("Reg_avv") = "1"

in

response.cookies("registrazione")("Reg") = "1"

Funziona tutto bene