Codici ASCII

[cent]

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

ho fatto una funzione per modificare tutti i caratteri speciali sul Web.

		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????

[cent]

Se nel form scrivo:
volerà

lui mi scrive volerà....... ma dovrebbe scrivere volerà

Help

[Roby_72]

La Server.HTMLEncode() non ti bastava?

Roby

[cent]

non l'ho mai usata.....

[Roby_72]

Prova no?

ROby

[cent]

provata.....
non funziona.....

nel DB mi dovrebbe inserire
"voler &agrav.e;"
Ma non lo fa

[Roby_72]

Perché vuoi pasticciare il db?
nel db i dati dovrebbero essere lasciati integri, poi se nel corpo della pagina li vuoi ripulire utilizzi le funzioni per formattarlo.

Roby

[cent]

il problema sussiste anche in visualizzazione.....
posso anche inserire una parola "accentata", Firefox me la visualizzerà sempre male.....
Ecco perchè cercavo un modo per inserire direttamente nel DB il codice ASCII.....

La butto li.....

Il charset non c'entra nulla??????

[Roby_72]

Se recuperi il dato dal db e faio così cosa ottieni?

campo = rs("campo")
campo = server.HTMLEncode(campo)
response.write(campo)

Roby

[cent]

nel messaggio scrivo "passerà"
sMessaggio = Request.Form("text_messaggio")
Response.Write Server.HTMLEncode(sMessaggio)

mi risponde "passerà" e non "passer&agrav.e;"