Drivers error '80004005' improvviso

[maresca]

allora o sono scemo io o c'è qualcosa che no va...
il classico script delle news che utilizzo per il mio sito ora quando cerco di aggiungere un indirizzo al database tramite l'interfaccia in asp mi da questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/list/mailing_list/mailing_list.asp, line 160

la line 160 e la rs.update!! ma cmq non è questo il punto poichè ripeto fino a pochi secondi fa funzionava alla grande

il bello è che fino a cinque secondi fa stava funzionando!!!
che diavolo gli è preso!!!
tra l'altro se prova a cancellarne qualcuno lo cancella!!!
Che diavolo succede??

[fraude]

l'errore indica che hai il dbase in una cartella nella quale non hai attivi i permessi di scrittura...

[maresca]

infatti!
ma e assurdo! perchè primo il database è i mnuna cartella con i permessi e secondo perchè di cancellare lo cancella!

[S.t.e.f.040774]

Sto provando a mettere un guestbook sul mio sito, giusto per sfizio (tra l'altro copiando il codice da uno dei tutorial freeasp).

Mi da lo stesso problema.

Sono su un server aruba. Tu a chi ti appoggi?.

Sto facendo delle prove. Se scopro qualcosa... ti faccio sapere.

Ciao, stefano

[S.t.e.f.040774]

Intanto premetto che se sto provando amettere un guestbook sul sito, e' per fare delle prove, e perchè conosco molto poco di asp.

Quindi se dico qualche eresia... non mandarmi al rogo!...

Comunque... Su un altro sito(sempre su aruba) ho MWOpen (ecommerce opengl) perfettamente funzionante (non so se lo conosci).
I diritti sulle cartelle sono gli stessi.

Ho visto pero' che non usa il recordset.update()

Fermo restando che per me il codice che allego di seguito è troppo complesso... spero che a te dica qualcosa.
Ti allego la pagina di update utente (magari lo conoscevi gia'....)

Semmai fammi sapere.


-----------------------------------------
<%
'VERSIONE FILE 1.4.0

Option Explicit
%>







<%
'---Dichiarazione variabili
Dim MailBody, Nome, Cognome, Via, Civico, CAP, Citta, Provincia, Stato, Telefono, CodFiscale, PIva, EMail, EMail_Originale, UserID, Password, Password2, Rivenditore, Note, SQL_Password, Errore, Confermato, SQL, RS

'---Recupero e gestisco i nuovi dati dal form
Nome = Trim(Replace(Request.Form("Nome"), "'", "''"))
Cognome = Trim(Replace(Request.Form("Cognome"), "'", "''"))
Via = Trim(Replace(Request.Form("Via"), "'", "''"))
Civico = Trim(Replace(Request.Form("Civico"), "'", "''"))
CAP = Trim(Replace(Request.Form("CAP"), "'", "''"))
Citta = Trim(Replace(Request.Form("Citta"), "'", "''"))
Provincia = Trim(Replace(Request.Form("Provincia"), "'", "''"))
Stato = Trim(Replace(Request.Form("Stato"), "'", "''"))
Telefono = Trim(Replace(Request.Form("Telefono"), "'", "''"))
CodFiscale = Trim(Replace(Request.Form("CodFiscale"), "'", "''"))
PIva = Trim(Replace(Request.Form("PIva"), "'", "''"))
EMail = Trim(Replace(Request.Form("EMail"), "'", "''"))
EMail_Originale = Trim(Replace(Request.Form("EMail_Originale"), "'", "''"))
UserID = Trim(Replace(Request.Form("UserId"), "'", "''"))
Password = Replace(Request.Form("Password"), "'", "''")
Password2 = Replace(Request.Form("Password2"), "'", "''")
Rivenditore = Request.Form("Rivenditore")
If lcase(Rivenditore) <> "true" Then
Rivenditore = "False"
End If
Note = Trim(Replace(Request.Form("Note"), "'", "''"))


'---Controllo che non ci siano altri utenti con lo stesso UserID o con la stessa EMail
If Email <> Email_Originale Then
SQL = " SELECT Mail FROM Utenti WHERE Mail = '" & EMail & "' "
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
If Email = RS("Mail") Then
Errore = Errore & "102,"
End If
End If
End If

If EMail="" Then
Errore = Errore & "109,"
End If
If Password <> Password2 Then
Errore = Errore & "104,"
Else
If Password <> "" Then
SQL_Password = ", Password = '"&Password&"'"
Else
SQL_Password = ""
End if
End If
If (Via = "") OR (Civico = "") OR (Len(cap) < 1) OR (Citta = "") OR (Provincia = "") OR (Stato = "") Then
Errore = Errore & "110,"
End If
If (CodFiscale = "") AND (PIva = "") Then
Errore = Errore & "112,"
End If
If Telefono = "" Then
Errore = Errore & "111,"
End If
If (Len(CodFiscale) < 16) AND (CodFiscale <> "") AND (CodFiscale <> "-") Then
Errore = Errore & "113,"
End If
If CodFiscale = "" Then
CodFiscale = "-"
End If
If PIva = "" Then
PIva = "-"
End If
If ConfermaMail Then
If UCase(EMail_Originale) <> UCase(EMail) Then
Confermato = "False"
Else
confermato = "True"
End If
Else
Confermato = "True"
End If

If Errore = "" Then
'---Aggiorno il database
SQL = " UPDATE Utenti SET Via = '"&Via&"', Civico = '"&Civico&"', CAP = '"&CAP&"', Citta = '"&Citta&"', Provincia = '"&Provincia&"', Stato = '"&Stato&"', Telefono = '"&Telefono&"', CodiceFiscale = '"&CodFiscale&"', PartitaIva = '"&PIva&"', Mail = '"&EMail&"'"&sql_Password&", Confermato = "&confermato&" WHERE UserId = '"&UserId&"' "
Set RS = Conn.Execute(SQL)

If LCase(Rivenditore) = "true" Then
'SQL = "SELECT Nome, Cognome
MailBody = BodyRichiestaRivenditore
MailBody = Replace(MailBody, "[UserID]", UserID, 1, -1, 1)
MailBody = Replace(MailBody, "[firma]", FirmaEMail, 1, -1, 1)
MailBody = Replace(MailBody, "[nome]", Nome, 1, -1, 1)
MailBody = Replace(MailBody, "[cognome]", Cognome, 1, -1, 1)
MailBody = Replace(MailBody, "[indirizzo]", Via, 1, -1, 1)
MailBody = Replace(MailBody, "[civico]", Civico, 1, -1, 1)
MailBody = Replace(MailBody, "[cap]", Cap, 1, -1, 1)
MailBody = Replace(MailBody, "[citta]", Citta, 1, -1, 1)
MailBody = Replace(MailBody, "[provincia]", Provincia, 1, -1, 1)
MailBody = Replace(MailBody, "[stato]", Stato, 1, -1, 1)
MailBody = Replace(MailBody, "[telefono]", Telefono, 1, -1, 1)
MailBody = Replace(MailBody, "[codfiscale]", CodFiscale, 1, -1, 1)
MailBody = Replace(MailBody, "[piva]", PIva, 1, -1, 1)
MailBody = Replace(MailBody, "[mail]", EMail, 1, -1, 1)
MailBody = Replace(MailBody, "[note]", Note, 1, -1, 1)
MailBody = Replace(MailBody,"
", VbCrLf, 1, -1, 1)
InvioMail MailServer, EMail, MailAdmin, SubjectRichiestaRivenditore, MailBody
End if
If ConfermaMail AND Confermato = "False" Then
InvioMail MailServer, MailAdmin, EMail, SubjectConfermaCambioMail, Replace(Replace(BodyConfermaCambioMail, "[link]", UrlEcom & "conferma.asp?"&UserIDEncode(UserID & "{~}" & EMail)), "
", vbCrLf, 1, -1, 1)
Response.Redirect "utente_modificato.asp?confirmEMail=true"
Else
Response.Redirect "utente_modificato.asp"
End If
Else
Response.Redirect "errore.asp?cod=" & Mid(errore,1,len(errore)-1)
End If
%>