Ciao a tutti
Come mai ho questa pagina asp che ho inserito in ogni pagina del mio sito tramite

Ora la domanda č questa: Come mai non registra nulla nella tabella?


Contenuto pagina controllo.asp
codice:
<%
' PERCORSO DEL DATABASE 
url_DB01 = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/database.mdb")

Set Conn01 = Server.CreateObject("ADODB.Connection") 
conn01.Open url_DB01

Set RecSet01 = Server.CreateObject("ADODB.Recordset")

' PRELEVA L'URL PASSATO DALLA QUERYSTRING "URL"

Url01 = Replace(Request.QueryString("url") , "'", "''")

' SE E' STATO PASSATO REALMENTE UN URL:

IF Url01 <> "" then

SQL01 = "SELECT * FROM CLICK WHERE URL = '" & URL &"'"
RecSet01.Open SQL01, Conn01, adOpenStatic, adLockOptimistic


' CONTROLLA SE L'URL E' PRESENTE
If RecSet01.Eof = False Then

' L'URL E' PRESENTE
' DEVE QUINDI AGGIORNARE SOLO I CLICK

click_attuali = RecSet01("clicks")

' AGGIORNA I CLICK NEL DB
RecSet01("clicks") = click_attuali + 1

Else

' URL NON PRESENTE, LO AGGIUNGE E AGGIUNGE PURE IL CLICK

RecSet01.Addnew
RecSet01("url") = url
RecSet01("clicks") = 1
Recset01("ip") = Request.ServerVariables("REMOTE_ADDR") 
Recset01("ip1") = Request.ServerVariables("REMOTE_HOST") 

End IF

' AGGIORNA IL DB E CHIUDE LA CONNESSIONE
RecSet01.Update
RecSet01.Close
End IF

Conn01.Close

IF url01 <> "" then

' PORTA L'UTENTE NEL SITO O NELLA PAGINA DELL'URL
Response.Redirect Url01

End IF
%>