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 %>
Rispondi quotando
