Problema Campo MEMo

[City_hunter]

Scusate AMICI del FORUM...

So che quasta discussione e stata ripresa molte volte, anche perchè ho letto tutti i post ma non ho risolto ora vi chiedo se potete aiutarmi, vi posto il codice:

"
Dim objConn, strConn, objRS, comm
Dim submitted, message
Dim nome, email, sito
dim commenti

strConn = Application("dbconn")

Set comm = Server.CreateObject("ADODB.Command")
Set objRs = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.CommandTimeout = 40
objConn.CursorLocation = 1
objConn.ConnectionString = strConn
objConn.Open

comm.ActiveConnection = objConn
comm.CommandType = 1

on Error Resume Next
comm.CommandText = "SELECT nome, email, sito, commenti, data_e_ora FROM guestbook ORDER BY Data_e_ora DESC"

objRs.Open comm,,1,1

If objRs.eof then
Response.write("Nessun messaggio nel Guestbook")
else
do while not objRs.eof
nome = objRs("Nome")
email = objRs("Email")
sito = objRs("sito")
commenti = objRs("commenti")
data_e_ora= objRs("data_e_ora")
%>
<font size="2" color="#000000"><%=FormatStr(commenti)%></font>
<%
objRs.MoveNext
loop

objRs.close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
set comm = nothing
end if

Function FromatStr(String)
on Error resume next
String = Replace(String, CHR(13),"")
String = Replace(String, CHR(10) & CHR(10),"</p>

")
String = Replace(String, CHR(10),"
")
FromatStr = String
End Function

Ovviamente come avete visto il campo commenti e un campo MEMO
non capisco perchè non si visualizza nella pagina...

se dal database cambio il campo da MEMO in TEXT allora funziona tutto..

Ho letto che è un BUG di ADO e di scrivere
una variabile...

commenti = objRs("commenti")
<%=FormatStr(commenti)%>

ma anche cosi non và, qualcuno ha suggerimenti?

Un saluto a tutti

[santino83]

ma se nella funzione o in generale togli gli "on error resume next" da qualche errore?

[City_hunter]

scusami hai pienamente raggione...

Tipo di errore:
Provider(0x80040e21)
Si sono verificati errori in un'operazione OLE DB composta da
più passaggi. Controllare i singoli valori di stato OLE DB, se disponibili. Nessuna Operazione Eseguita.

Line 74

commenti = objRS("Commenti")

Ecco scusami non mi ricordavo del On ERROR...