Ho scopiazzato questo script per contare le volte che visitano le pagine del sito, ma non funziona... Mi da questo errore: ADODB.Recordset (0x800A0E79)
L'operazione non è consentita se l'oggetto è aperto.
Il codice è qui sotto... QUALCUNO PUO' AIUTARMI. GRAZIE!
<%
' ----------------------------------------------
' CONTATORE VISITE PAGINE
' ----------------------------------------------
' Imposto il formato della data in gg/mm/aa
Session.LCID=2057
Dim Pathcount 'Variabile percorso del database
Pathcount="../mdb-database/"
Dim CountConn ' Variabile per oggetto Connection
Dim CountRS ' Variabile per oggetto Recordset
Dim CountSQL ' Variabile per query SQL
Dim CountPagina ' Variabile per indirizzo URL pagina
Dim CountData ' Variabile per la data di accesso
Dim CountID ' Variabile per ID
Dim CountNumVisite ' Variabile per numero visite
' Recupero l'indirizzo della pagina rimuovendo eventuali spazi aggiuntivi e trattando il nome solo in minuscolo
CountPagina = Trim(LCase(Request.ServerVariables("URL")))
' Recupero la data attuale
CountData = Date()
' Istanzio l'oggetto Connection
Set CountConn = Server.CreateObject("ADODB.Connection")
' Istanzio l'oggetto Recordset
Set CountRS = Server.CreateObject("ADODB.Recordset")
' Effettuo la query per verificare se nella data odierna, la pagina che ha richiamato il contatore è già stata visitata
CountSQL = "SELECT Contatore_PAID, Numero_Visite FROM TBL_Contatore WHERE " & "(Data_Accesso = '" & CountData & "') AND " & "(Pagina = '" & CountPagina & "')"
' Apro la connessione
CountConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(Pathcount&"contatore.mdb")
' Apro il recordset effettuando la query
CountRS.Open CountSQL, CountConn
If CountRS.EOF and CountRS.BOF then ' Non ci sono dati
' Imposto a zero la variabile CountID e CountNumVisite
CountID = 0
CountNumVisite = 0
Else
' Recupero il valore del campo Contatore_PAID ed il numero di visite
' effettuate per la pagina
CountID = CountRS.Fields("Contatore_PAID")
CountNumVisite = CDbl(CountRS.Fields("Numero_Visite"))
End If
' Imposto la query per aggiornare il Database
If CountID = 0 then ' Prima visita della pagina = Aggiunge il record
CountSQL = "SELECT * FROM TBL_Contatore WHERE 1 = 0"
Else ' Pagina già visitata = Recupera i dati
CountSQL = "SELECT * FROM TBL_Contatore WHERE Contatore_PAID = " & CountID
End If
' Apre il recordset
CountRS.Open CountSQL, CountConn, 1, 3
' Verifica se modificare o aggiungere il record
If CountID = 0 then ' Aggiunge record
CountRS.AddNew
CountRS.Fields("Data_Accesso") = CountData
CountRS.Fields("Pagina") = CountPagina
End If
' Incremento di un'unità il numero di visite
CountNumVisite = CountNumVisite + 1
CountRS.Fields("Numero_Visite") = CountNumVisite
' Confermo la modifica e/o aggiunta
CountRS.Update
' Chiudo il recordset
CountRS.Close
' Chiudo la connessione
CountConn.Close
' Distruggo le istanze attive
Set CountRS = Nothing
Set CountConn = Nothing
%>
Rispondi quotando
