Collegamento ad un DB

[tom69]

Ciao a tutti...
Volevo chiedervi un'informazione, non riesco ad inserire dei dati in un database... L'errore me lo da sulla seguente riga di codice:

Rs.Update

mah...
trovo questo errore molto strano perchè in quel punto chiudo la connessione...

Qualche idea???

[gold]

Originariamente inviato da tom69
Ciao a tutti...
Volevo chiedervi un'informazione, non riesco ad inserire dei dati in un database... L'errore me lo da sulla seguente riga di codice:

Rs.Update

mah...
trovo questo errore molto strano perchè in quel punto chiudo la connessione...

Qualche idea???

MySql ?

[tom69]

MySql??? Devo settare delle impostazioni da dove???

[gold]

la mia era una domanda "atrofizzata"


su alcuni db non funziona il recordset (o meglio da dei problemi)

posta il cod.

[tom69]

ok il codice è

<%
Dim ACTION
ACTION = request.form("act")

if ACTION = "" then
%>
<form method="POST" action="scrivi.asp">
<input type="hidden" name="act" value="salva">
Tutti i campi sono obbligatori.



Autore:

<input type="text" name="autore" size="40" maxlength="255">



E-Mail:

<input type="text" name="email" size="40" maxlength="255">



Messaggio:

<textarea name="msg" rows="6" cols="60"></textarea>



<input type="submit" value="AGGIUNGI MESSAGGIO">

</form>

<%
elseif ACTION = "salva" Then

if (Request.form("autore") = "") or (Request.form("email") = "") or (Request.form("msg") = "") then
Response.write "Hai lasciato dei campi vuoti! Torna indietro!"
Response.end
else

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("guestbook.mdb") 

Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.Open "MESSAGGI", conn, 1, 3
Rs.AddNew()
Rs("autore") = Request.form("autore")
Rs("email") = Request.form("email") 
Rs("msg") = Request.form("msg")
Rs("ip") = Request.ServerVariables("REMOTE_ADDR")
Rs("data") = Date()
Rs.Update

Rs.Close
set Rs = Nothing

Conn.Close
set Conn = Nothing
%>

<center>
Il messaggio è stato aggiunto!

Cicca qui per leggere il Guestbook</font>
</center>

<%
End if
End if
%>

[gold]

<%
Dim ACTION
ACTION = request.form("act")

if ACTION = "" then
%>
<form method="POST" action="scrivi.asp">
<input type="hidden" name="act" value="salva">
Tutti i campi sono obbligatori.



Autore:

<input type="text" name="autore" size="40" maxlength="255">



E-Mail:

<input type="text" name="email" size="40" maxlength="255">



Messaggio:

<textarea name="msg" rows="6" cols="60"></textarea>



<input type="submit" value="AGGIUNGI MESSAGGIO">

</form>

<%
elseif ACTION = "salva" Then

if (Request.form("autore") = "") or (Request.form("email") = "") or (Request.form("msg") = "") then
Response.write "Hai lasciato dei campi vuoti! Torna indietro!"
Response.end
else

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("guestbook.mdb") 

Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.Open "MESSAGGI", conn, 3, 3
Rs.AddNew()
Rs("autore") = Request.form("autore")
Rs("email") = Request.form("email") 
Rs("msg") = Request.form("msg")
Rs("ip") = Request.ServerVariables("REMOTE_ADDR")
Rs("data") = Date()
Rs.Update

Rs.Close
set Rs = Nothing

Conn.Close
set Conn = Nothing
%>

<center>
Il messaggio è stato aggiunto!

Cicca qui per leggere il Guestbook</font>
</center>

<%
End if
End if
%>

prova un po

[tom69]

No, continua a non funzionare...

[gold]

Originariamente inviato da tom69
No, continua a non funzionare...

da su non fare cosi...


posta la descrizione dell'errore...

[tom69]

L'errore è questo

Impossibile visualizzare la pagina 
Si è verificato un problema a livello della pagina che si desidera visualizzare che ne impedisce la visualizzazione. 

--------------------------------------------------------------------------------

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la localhost home page e cercare i collegamenti alle informazioni desiderate. 
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Impossibile aggiornare. Database o oggetto di sola lettura.
/guestbook/scrivi.asp, line 49


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 1.0.3705) 

Pagina:
POST 50 bytes to /guestbook/scrivi.asp

POST Data:
act=salva&autore=aaa&email=aaaa&msg=aaaaaaaaaaaaaa 

Ora:
martedì 26 ottobre 2004, 21.06.47 


Informazioni aggiuntive:
Supporto Microsoft

Una cosa della quale sono sicuro è che il database non è di sola lettura!!! :master: :master: :master:

[gold]

a) la cartella non ha i permessi di scrittura
b) l'utente non ha i permessi di scrittura
c) altro



dalla consolle di iis :
click col dx sulla cartella che contiene il db --->
proprietà---->
directory--->
spuntare casellina scrittura.