Formattazione testo

[daniele48]

Avrei un problema con una funzione per la formattazione testo di una textarea: mi spiego meglio

Ho un form con una textarea per inviare degli articoli, note o quant'altro.

Chiaramente quando do invio, il testo non va a capo e, allora, per la visualizzazione corretta del testo con gli A CAPO giusti ho questa funzione:

Function reformat(text)
  var1 = text
  var2 = Replace(var1, "<", "&" & "lt;")
  var3 = Replace(var2, ">", "&" & "gt;")
  var4 = var3 & " "
  varText = Replace(var4, vbCrLf, "
")
  reformat = varText
End Function

poi, per la visualizzazione faccio:

<%=reformat(vedinews.Fields.Item("articolo").Value)%>

e mi funziona regolarmente fin tanto che il campo è pieno. In un db dove in quel campo ho la possibilità di inserire delle note e quindi queste ultime potrebbero esserci e non esserci, se non ci sono, mi da questo errore:

Errore di run-time di Microsoft VBScript error '800a005e' 

Utilizzo non valido di Null: 'replace' 

/utility/funzioni.asp, line 32

Come risolvere??

Grazie e Bye

[Roby_72]

Per i ritorni a capo è sufficient e questo:

<%
if len(nomecampo) > 0 then
response.write(replace(nomecampo, VbCrLf, "
")
end if
%>

Roby