che errore è?
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/visite.asp, line 11
l'applicazione è un conatore di visite (su db):
codice:
<%
Dim Connection, RS, Page, Counts
Page=Request.ServerVariables("SCRIPT_NAME")
Set Connection=Server.Createobject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb-database/loretotrasporti.mdb")
'nel caso si usi frontpage, lasciare creare la cartella fpdb e togliere l'apice iniziale nella riga sotto ricordandosi di metterlo nella riga sopra
'Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/contatore.mdb")
If Len(Session(Page)) = 0 Then
Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
If RS.EOF = TRUE Then
Connection.Execute("INSERT INTO TabContatore (pagina, visite) VALUES ('"&Page&"', 0)")
End If
Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
Counts=RS("visite")+1
Set RS = Connection.Execute("UPDATE TabContatore SET visite = " & Counts & " WHERE pagina = '" & Page & "'")
Session(Page) = "something"
Connection.Close
Else
Set RS = Connection.Execute("SELECT * FROM TabContatore WHERE pagina = '" & Page & "'")
Counts=RS("visite")
End If
Response.Write Counts
%>