HTMLEncode e caratteri accentati

[MousyHead]

Ciao a tutti
ho un problema ke mi sta facendo impazzire da stamattina...
devo inserire in un db access delle news ma sembra ignorare le lettere accentate, inserisce tutto tranne quelle.
Ho gia fatto decine di ricerche e ho trovato il metodo HTMLEncode che mi sembrava la soluzione giusta ma niente
ho provato ad inserire nei 2 modi che conosco
vi posto il codice e spero mi possiate aiutare

metodo1

		rs_add.open "SELECT * FROM news",conn_add,3,3
		rs_add.addnew
		rs_add("titolo")=server.HTMLEncode(Request.form("titolo"))
		rs_add("testo")=replace(Request.form("testo"),"'","''")
		rs_add("anteprima")=server.HTMLEncode(Request.form("anteprima"))
		rs_add("data")=Request.form("data")
		rs_add.update

Metodo2

rs_add.open "INSERT INTO news (titolo,testo,anteprima,data) Values('"&server.HTMLEncode(Request.form("titolo)&"','"&replace(Request.form("testo"),"'","''")&"','"&server.HTMLEncode(Request.form("anteprima"))&"','"&Request.form("data")&"');",conn_add,0,1

Il modulo da cui invio i dati è questo:

		<form method=post>
		<input type=hidden name=hid value=si>
		<input type=hidden name=data value="&date()&">
		Titolo:
<textarea name="&chr(34)&"titolo"&chr(34)&" rows=2 cols=72></textarea>


		Anteprima:
<textarea name="&chr(34)&"anteprima"&chr(34)&" rows=5 cols=72></textarea>

News completa:

		Dim oFCKeditor2
		Set oFCKeditor2 = New FCKeditor
		oFCKeditor2.width	= "600"
		oFCKeditor2.height	= "400"
		oFCKeditor2.BasePath	= "/FCKeditor/"
		oFCKeditor2.Value	= "

</p>"
		oFCKeditor2.Create "testo"
		
<input type=submit value=inserisci>


		</form>

[MousyHead]

Nessuno ha mai avuto lo stesso problema???

[floberto]

fatti una function di questo genere:

Function accento(stringa)

accento = replace(stringa, "à", "à")
accento = replace(stringa, "á", "á")
accento = replace(accento, "è", "è")
accento = replace(accento, "é", "é")
accento = replace(accento, "ò", "ò")
accento = replace(accento, "ì", "í")
accento = replace(accento, "ù", "ù")
accento = replace(accento, "'", "''")
accento = replace(accento, "+", "+")
accento = replace(accento, "Á", "Á")
accento = replace(accento, "À", "À")
accento = replace(accento, "É", "É")
accento = replace(accento, "È", "È")


End function


testo_corretto= accento(testo)
rs_add.open "INSERT INTO news (titolo,testo,anteprima,data) Values('"&server.HTMLEncode(Request.form("titolo)& "','"&replace(Request.form("testo_corretto"),"'"," ''")&"','"&server.HTMLEncode(Request.form("antepri ma"))&"','"&Request.form("data")&"');",conn_add,0, 1


in pratica sostituisci le lettere accentate con la relativa codifica html

ciao

[MousyHead]

Ciao floberto,
avevo già provato a fare il replace ma ancora niente, i caratteri accentati vengono ignorati nell'inserimento!

Non riesco proprio a capire il perche...
I campi in access sono di tipo memo e ho provato anche ad impostare la compressione unicode su no...
Grazie cmq
povero me

[floberto]

scusami, ma non mi ero accorto che postando il codice il sistema interpretava.
le stringhe delle function devono essere di questo tipo (nella seconda condizione ho inserito gli spazi per evitare che venisse di nuovo interpretato)

accento = replace(stringa, "à", "& a g r a v e ;")

ciao

[MousyHead]

Si
avevo capito che il forum ha interpretato come à
Ancora niente...

[MousyHead]

Finalmente ho trovato dov era il problema grazie a questo post di Roby_72
http://forum.html.it/forum/showthrea...hlight=charset

In pratica è l' include di FCKeditor a dare problemi nell'interpretazione dei caratteri accentati.
Ho provato a togliere l'editor e funziona correttamente, però mi serve formattare il testo...

Nel thread si dice che gli include vanno usati solo al momento dell'inserimento dati.
Ma non so come fare...
Se non lo uso in cima alla pagina non funge...

<%@LANGUAGE="VBSCRIPT"%>

Roby, come hai risolto tu?

[MousyHead]

Se provo ad inserire l'include subito prima di

Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.width	= "600"
oFCKeditor.height	= "400"
oFCKeditor.BasePath	= "/FCKeditor/"
oFCKeditor.Value	= rs("testo")
oFCKeditor.Create "testo"

Ottengo l'errore:

Errore di compilazione di Microsoft VBScript error '800a03ea' 

Errore di sintassi 

/FCKeditor/fckeditor.asp, line 23 

Class FCKeditor
^

[MousyHead]

Azzzzzzzzzzz.....

ci sono impazzito 4 giorni e l'errore era davvero una cavolata....

bastava indicare nella pagina il charset utf-8

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

Spero sia di aiuto