ancora replace

[sermanuel]

Roby, ho fatto come mi hai consigliato per andare a capo in automatico è ho messo il replace nella pagina di visualizzazione e funziona bene, però nella visualizzazione ora non mi riconosce le vocali accentate, ho provato a creare una funzione che mi sostituisca i caratteri speciali e anche le vocali accentate, che ho messo sempre nella pagina di visualizzazione, ma non va, dammi un'altra dritta ti prego..

[optime]

spiegati

[sermanuel]

il mio problema adesso è creare una funzione che applicata ad un testo che ha caratteri speciali non mi vada in errore
inizialmente ho risolto il problema dell'andare a capo in automatico con il seguente replace:

<%response.write(replace(rs("testo"),VbCrLf,"
"))%>

poi volevo creare una funzione che oltre a consentirmi di andare a capo in automatico mi consentisse anche di sostituire i caratteri speciali per evitare che mi vada in errore lo script,
la funzione è la seguente:

<%
function virgolette1(stringa)
virgolette1=Replace(stringa,"à", "&agrave;")
virgolette1=Replace(stringa,"è", "&egrave;")
virgolette1=Replace(stringa,"ì", "&igrave;")
virgolette1=Replace(stringa,"ò", "&ograve;")
virgolette1=Replace(stringa,"ù", "&ugrave;")
virgolette1= replace(stringa, VbCrLf,"
")
end function
%>

se la applico al testo da visualizzare

<%=virgolette1(rs("testo"))%>

non mi funziona, funziona solo se nella funzione inserisco un solo replace, come posso allora creare una funzione che mi risolva questi problemucci, help me

[optime]

sbagli a scrivere la function, visto che riparti sempre da stringa (ogni riga cioè ti perdi le modifiche)

<%
function virgolette1(stringa)
   stringa=Replace(stringa,"à", "à")
   stringa=Replace(stringa,"è", "è")
   .... tutte le altre sempre nella forma stringa=Replace(stringa....
   virgolette1= stringa
end function
%>

that easy!

[sermanuel]

ho fatto come dici tu ma i caratteri speciali non me li riconosce...cioè se scrivo professionalità la à me la scrive Ã, come posso fare la funzione l'ho scritta così:

<%
function virgolette1(stringa)
stringa =Replace(stringa,"à", "&agrave")
stringa =Replace(stringa,"è", "&egrave")
stringa=Replace(stringa,"ì", "&igrave")
stringa=Replace(stringa,"ò", "&ograve")
stringa=Replace(stringa,"ù", "&ugrave")
stringa= replace(stringa, VbCrLf,"
")

virgolette1=stringa
end function
%>

[Roby_72]

Nel db sono memorizzati correttamente?
Allora potrebbe essere un problema di mancanza di charset nel nell'head del codice html della pagina.

Roby

[sermanuel]

ok funziona, grazie a tutti.

e se non vi secco... alla prossima.