Ciao a tutti ragazzi,
Il problema per cui da giorni sto diventando matto è questo:
- ho creato una pagina di modifica dati con Dreamweaver
- ho creato la pagina di conferma dati inseriti
Mi collego, su aruba, ad un database strutturato con il record, che contiene i dati, come campo MEMO (proprio perchè mi serve inserire tutto ciò che voglio, senza avere limiti di caratteri!)

La stringa di connessione utilizzata: MM_prezzi_STRING ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/prezzi.mdb")
Se invece uso la classia dns-less: MM_prezzi_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/prezzi.mdb") mi da errore: ODBC Microsoft Access Driver]Invalid precision value.

Il problema è che la prima modifica me la fa fare, ma se ne devo fare un'altra immediatamente successiva, non la prende. E' come se fosse in stand-by il database... come se fosse addormentato. Perchè la prima la prende e quella fatta 10 secondi dopo no?

Fornisco i codici che uso nella pagina di modifica:
--------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" &
Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_prezzi_STRING
MM_editCmd.CommandText = "UPDATE prezzi SET prezzi = ? WHERE prezzi = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 203,
1, 1073741823, Request.Form("prezzi")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 200,
1, 1073741823, Request.Form("MM_recordId")) ' adVarChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "ok_price.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim rs_prezzi
Dim rs_prezzi_cmd
Dim rs_prezzi_numRows

Set rs_prezzi_cmd = Server.CreateObject ("ADODB.Command")
rs_prezzi_cmd.ActiveConnection = MM_prezzi_STRING
rs_prezzi_cmd.CommandText = "SELECT prezzi FROM prezzi"
rs_prezzi_cmd.Prepared = true

Set rs_prezzi = rs_prezzi_cmd.Execute
rs_prezzi_numRows = 0
%>
<html>
<head></head>
<body>
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
<table align="center">
<tr>
<td nowrap="nowrap" align="right" valign="top"></td>
<td valign="baseline"><textarea name="prezzi" cols="50"
rows="5"><%=(rs_prezzi.Fields.Item("prezzi").Value )%></textarea>
</td>
</tr>
<tr valign="baseline">
<td nowrap="nowrap" align="right"></td>
<td><input type="submit" value="Aggiorna record" />
</td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1" />
<input type="hidden" name="MM_recordId" value="<%=
rs_prezzi.Fields.Item("prezzi").Value %>" />
</form>

</body></html>
<%
rs_prezzi.Close()
Set rs_prezzi = Nothing
%>

Qualcuno può darmi una mano?? Sto diventando matto....
Grazie in anticipo a chi mi vorrà dare una mano....!