23 messaggi dal 05 gennaio 2002
ho utilizzato lo script presente sul libro e funziona tranne per il fatto che mi viene sempre scritto sulla pagina di conferma che non è stato possibile aggiornare il record, questo anche se lo ha aggiornato. L'unica differenza con lo script originale è che ho necessità di modificare solo un campo... ecco il listato:
<%

Function FixQuotes (strTxt)
FixQuotes = Replace(strTxt, "'", "''")
End Function

if len(Request.Form) > 0 then

dim conn, strConn, blnDone

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("fpdb/users.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

'on error resume next


If len ( Request.Form("nuovapassword") ) > 0 then
SQL = "UPDATE CLIENTI SET [Password] = '"
SQL = SQL & FixQuotes( Request.Form("nuovapassword") )
SQL = SQL & "' WHERE Username = '"
SQL = SQL & FixQuotes( Request.Form("username") ) & "'"

Conn.Execute (SQL)

If err.Number=0 then blnDone = False


If blnDone<>False then
End if

Response.write "<H2>Aggiornamento effettuato con successo</H2>"
Else
Response.write "<H2>Aggiornamento non effettuato:" & "impossibile trovare il valore da modificare</H2>"
End if

' libero risorse

conn.Close
set conn = Nothing


End if




%>
come posso fare, stò cercando d'imparare ma è difffficile!

Devi modificare le linee di codice che controllano gli eventuali errori in questo modo:

<code>
If err.Number=0 then blnDone = False

If blnDone=False then
Response.write "&lt;H2&gt;Aggiornamento effettuato con successo&lt;/H2&gt;"
Else
Response.write "&lt;H2&gt;Aggiornamento non effettuato:" & "impossibile trovare il valore da modificare&lt;/H2&gt;"
End if
</code>

ciao

Andrea Palmatè
<b>Community Manager di </b> http://www.aspitalia.com

--
Andrea Palmatè

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.