codice:
strMessage = Uploader.Form("descrizione")
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, " ", "", 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
RS("descrizione") = strMessage