Problema codice asp

[peppe606]

Salve a tutti, ho piccolo problema!
Ho inserito questo codice asp x contare le visite sul mio sito,
ma non vorrei che non mi contesse il refresh di pagina, vorrei che contasse tutto, anche il refresh. Ho provato a rimuovere la stringa relativa, ma non conta nulla così!!! Grazie 1000.

peppe

Ecco il codice:


<%
' Tramite le variabile del server recupera i dati di chi sta visitando la pagina
' e li scrive nella tabella accessi del database sito

Dim IP, NOME_SERVER, BROWSER, SESSIONE, PAGINA

IP = Request.ServerVariables("REMOTE_ADDR")
NOME_SERVER = Request.ServerVariables("HTTP_USER_PROVIDER")
BROWSER = Request.ServerVariables("HTTP_USER_AGENT")
SESSIONE = Session.SessionID
PAGINA = "Home"
DATA = Date
ORA = Time

if NOME_SERVER=""then
NOME_SERVER="Sconosciuto"
End if

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Sito"

' controlla che non sia la stessa sessione (refresh della pagina)

sql = "SELECT * FROM ACCESSI WHERE SESSIONE='" & SESSIONE _
& "' AND SERVER='" & NOME_SERVER _
& "' AND IP='" & IP _
& "' AND PAGINA='" & PAGINA & "' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
If rs.eof Then
rs.Close

sql1 = "INSERT INTO ACCESSI (IP, SERVER, BROWSER, SESSIONE, PAGINA, DATA, ORA)" _
& " VALUES ('" & IP & "', '" & NOME_SERVER & "', '" & BROWSER & "', '" _
& SESSIONE & "', '" & PAGINA & "', '" & data & "', '" & ORA & "')"
rs.Open sql1, conn

End If
%>


<%
'rs.Close
Set rs = nothing
'conn.Close
Set conn = nothing
%>

[santino83]

<%
' Tramite le variabile del server recupera i dati di chi sta visitando la pagina
' e li scrive nella tabella accessi del database sito

Dim IP, NOME_SERVER, BROWSER, SESSIONE, PAGINA

IP = Request.ServerVariables("REMOTE_ADDR")
NOME_SERVER = Request.ServerVariables("HTTP_USER_PROVIDER")
BROWSER = Request.ServerVariables("HTTP_USER_AGENT")
SESSIONE = Session.SessionID
PAGINA = "Home"
DATA = Date
ORA = Time

if NOME_SERVER=""then
NOME_SERVER="Sconosciuto"
End if

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Sito"

sql1 = "INSERT INTO ACCESSI (IP, SERVER, BROWSER, SESSIONE, PAGINA, DATA, ORA)" _
& " VALUES ('" & IP & "', '" & NOME_SERVER & "', '" & BROWSER & "', '" _
& SESSIONE & "', '" & PAGINA & "', '" & data & "', '" & ORA & "')"
rs.Open sql1, conn


%>


<%
'rs.Close
Set rs = nothing
'conn.Close
Set conn = nothing
%>

prova così

[peppe606]

Grazie, ho provato e mi dà questo errore:

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/sito/civetta.asp, line 27


AiutooooOO!!!1

[santino83]

<%
' Tramite le variabile del server recupera i dati di chi sta visitando la pagina
' e li scrive nella tabella accessi del database sito

Dim IP, NOME_SERVER, BROWSER, SESSIONE, PAGINA

IP = Request.ServerVariables("REMOTE_ADDR")
NOME_SERVER = Request.ServerVariables("HTTP_USER_PROVIDER")
BROWSER = Request.ServerVariables("HTTP_USER_AGENT")
SESSIONE = Session.SessionID
PAGINA = "Home"
DATA = Date
ORA = Time

if NOME_SERVER=""then
NOME_SERVER="Sconosciuto"
End if

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Sito"
 Set rs = Server.CreateObject("ADODB.Recordset") 
sql1 = "INSERT INTO ACCESSI (IP, SERVER, BROWSER, SESSIONE, PAGINA, DATA, ORA)" _
& " VALUES ('" & IP & "', '" & NOME_SERVER & "', '" & BROWSER & "', '" _
& SESSIONE & "', '" & PAGINA & "', '" & data & "', '" & ORA & "')"
rs.Open sql1, conn


%>


<%
'rs.Close
Set rs = nothing
'conn.Close
Set conn = nothing
%>

[peppe606]

Grazie 1000!!!!! Funzionaaaa!!!!

grazie ancora!

[santino83]

e di che....

cmq secondo me era meglio tenere l'anti-refresh

ciaoz