Buon giorno a tutti....
Un piccolo quesito:

ho fatto una funzione per modificare tutti i caratteri speciali sul Web.
codice:
		sCommandText = " " &_
			" INSERT INTO guestbook" &_
			" (nome, cognome, messaggio) " &_
			" VALUES " &_
			" ( " &_
			" '"& ToHTML(Request.Form("nome")) &"', " &_
			" '"& ToHTML(Request.Form("cognome")) &"', " &_
			" '"& ToHTML(Request.Form("text_messaggio"))&"' " &_
			" ) "



Function ToHTML(str_ToHTML)
		'On Error Resume Next

		Dim intChr
		ToHTML = str_ToHTML & ""

	'E commerciale
		ToHTML = Replace(ToHTML, Chr(38), "&")

	'ToHTML
		'ASCII Standard
		ToHTML = Replace(ToHTML, Chr(34), """)	'"
		ToHTML = Replace(ToHTML, Chr(39), Chr(96))	''
		ToHTML = Replace(ToHTML, Chr(60), "&lt;")	'<
		ToHTML = Replace(ToHTML, Chr(200), "&Egrave;")	'È
		ToHTML = Replace(ToHTML, Chr(232), "&egrave;")	'è
		ToHTML = Replace(ToHTML, Chr(224), "&agrave;")	'à

.................... ecc
Non mi funziona.......
Nel senso che non me li riconosce....
C'è qualcosa che mi sono perso????