Multiple-step OLE DB

[Gio&Ste]

Stavo inserendo dei dati in un form, ho soltato uno dei campi (può anche essere vuoto) ed ho ricevuto questo msg di errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

admin.asp, line 72

La linea 72 è questa:

	RecSet("Sottotitolo") = Sottotitolo

[kluster]

Prova con

RecSet("Sottotitolo") = Trim(Sottotitolo) & ""

[EDIT]
prova prima
RecSet("Sottotitolo") = Sottotitolo & ""
[/EDIT]

senno cambiando cursore

[Gio&Ste]

In locale funziona, ma quando lo sposto in remoto, l'errore c'è ancora.

[Gio&Ste]

Questo è lo script, in locale funziona, in remoto mi da l'errore che ho segnalato.

   
<% 
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/db.mdb")

	Articolo = Request.Form("Articolo")
	Titolo = Request.Form("Titolo")
	Sottotitolo = Request.Form("Sottotitolo")
	Autore = Request.Form("Autore")
	Data_inserimento = Request.Form("Data_inserimento")
	Inserita_da = Request.Form("Inserita_da")
	Tipo = Request.Form("Tipo")
	keys = Request.Form("keys")
	Fonte = Request.Form("Fonte")
	email = Request.Form("email")
	

	if Titolo ="" then

	Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='755'><tr>"
	Response.Write "<td><hr size='1' color='#4B96D3'></td></tr><tr><td bgcolor='#EDF8FE'>"
	Response.Write "<p align='center'>"
	Response.Write "<font color='#4B96D3' size='4' face='Arial'>Devi inserire il Titolo</font></td>"
	Response.Write "</tr><tr><td>"
	Response.Write "<hr size='1' color='#4B96D3'></td></tr></table>"
	Response.Write "</font><font size='2' face='Arial'><p align='center'>Torna indietro</p></font>"
	Response.End
	End if

	if Articolo ="" then

	Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='755'><tr>"
	Response.Write "<td><hr size='1' color='#4B96D3'></td></tr><tr><td bgcolor='#EDF8FE'>"
	Response.Write "<p align='center'>"
	Response.Write "<font color='#4B96D3' size='4' face='Arial'>Inserisci il testo della Notizia</font></td>
"
	Response.Write "</tr><tr><td>"
	Response.Write "<hr size='1' color='#4B96D3'></td></tr></table>"
	Response.Write "</font><font size='2' face='Arial'><p align='center'>Torna indietro</p></font>"
	Response.End
	End if

	Autore = Replace(Request.Form("Autore"), "'", "'")
	Titolo= Replace(Request.Form("Titolo"), "'", "'")
	
	strMessage = request.Form("Articolo")
	strMessage = Replace(strMessage, "<", "&lt;", 1, -1, 1)
	strMessage = Replace(strMessage, ">", "&gt;", 1, -1, 1)
	strMessage = Replace(strMessage, "£", "&pound;", 1, -1, 1)
	strMessage = Replace(strMessage, "¢", "&cent;", 1, -1, 1)
	strMessage = Replace(strMessage, "       ", "", 1, -1, 1)
	strMessage = Replace(strMessage, "      ", "", 1, -1, 1)
	strMessage = Replace(strMessage, "     ", "", 1, -1, 1)
	strMessage = Replace(strMessage, "    ", "", 1, -1, 1)
	strMessage = Replace(strMessage, "   ", "", 1, -1, 1)
	strMessage = Replace(strMessage, vbTab, "", 1, -1, 1)
	strMessage = Replace(strMessage, vbCrLf, "
" & vbCrLf, 1, -1, 1)
	strMessage = strMessage
%>

<%	
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQL= "SELECT * FROM comunica"
	RecSet.Open SQL, objConn, adOpenDynamic, adLockOptimistic
 
 	RecSet.AddNew
	 
	RecSet("Titolo") = Titolo
	RecSet("Sottotitolo") = Trim(Sottotitolo) & "" 
	RecSet("Articolo") = strMessage
	RecSet("Autore") = Trim(Autore) & ""
	RecSet("Data_inserimento") = Data_inserimento
	RecSet("Inserita_da") = Inserita_da
	RecSet("email") = email
	RecSet("Tipo") = Tipo
	RecSet("keys") = Keys
	RecSet("Fonte") = Fonte

	RecSet.Update
	RecSet.Close
	set RecSet = Nothing
	objConn.Close
	set objConn = Nothing
%>