reverse replace di caratteri speciali

[eng]

ciao a tutti,
devo acquisire un testo da form, scriverlo a database, ma anche dare la possibilità dimodificarlo.
Per l'INSERT, preventivamente coveto il testo acquisito dalla text area con la funzione:

Function SostCarSpecialiTextAreaEdit(ByVal testo)
        If testo <> "" Then
        testo = replace(testo, "'", "''")
        testo = replace(testo, "‘","&lsquo;")
        testo = replace(testo, "’","&rsquo;")
        testo = replace(testo, """","&quot;") 
        testo = replace(testo, ".",".")
        testo = replace(testo, "#","&amp;")
        testo = replace(testo, "<","&lt;")
        testo = replace(testo, ">","&gt;")
        testo = replace(testo, "¡","&iexcl;")
        testo = replace(testo, "¢","&cent;")
        testo = replace(testo, "£","&pound")
        testo = replace(testo, "¤","&curren;")
        testo = replace(testo, "¥","&yen;")
        testo = replace(testo, "¦","&brvbar;")
        testo = replace(testo, "§","&sect;")
        testo = replace(testo, "¨","&uml;")
        testo = replace(testo, "©","<sup>&copy;</sup>")
        testo = replace(testo, "ª","&ordf;")
        testo = replace(testo, "«","&laquo;")
        testo = replace(testo, "¬","&not;")
        testo = replace(testo, "_","&shy;")
        testo = replace(testo, "–","&ndash;")
        testo = replace(testo, "—","&mdash;")
        testo = replace(testo, "®","<sup>&reg;</sup>")
        testo = replace(testo, "¯","&macr;")
        testo = replace(testo, "°","&deg;")
        testo = replace(testo, "±","&plusmn;")
        testo = replace(testo, "²","&sup2;")
        testo = replace(testo, "³","&sup3;")
        testo = replace(testo, "´","&acute;")
        testo = replace(testo, "µ","&micro;")
        testo = replace(testo, "¶","&para;")
        testo = replace(testo, "·","&middot;")
        testo = replace(testo, "¸","&cedil;")
        testo = replace(testo, "¹","&sup1;")
        testo = replace(testo, "º","&ordm;")
        testo = replace(testo, "»","&raquo;")
        testo = replace(testo, "¼","&frac14;")
        testo = replace(testo, "½","&frac12;")
        testo = replace(testo, "¾","&frac34;")
        testo = replace(testo, "¿","&iquest;")
        testo = replace(testo, "À","&Agrave;")
        testo = replace(testo, "Á","&Aacute;")
        testo = replace(testo, "Â","&Acirc;")
        testo = replace(testo, "Ã","&Atilde;")
        testo = replace(testo, "Ä","&Auml;")
        testo = replace(testo, "Å","&Aring;")
        testo = replace(testo, "Æ","&AElig;")
        testo = replace(testo, "Ç","&Ccedil;")
        testo = replace(testo, "È","&Egrave;")
        testo = replace(testo, "É","&Eacute;")
        testo = replace(testo, "Ê","&Ecirc;")
        testo = replace(testo, "Ë","&Euml;")
        testo = replace(testo, "Ì","&Igrave;")
        testo = replace(testo, "Í","&Iacute;")
        testo = replace(testo, "Î","&Icirc;")
        testo = replace(testo, "Ï","&Iuml;")
        testo = replace(testo, "Ð","&ETH;")
        testo = replace(testo, "Ñ","&Ntilde;")
        testo = replace(testo, "Ò","&Ograve;")
        testo = replace(testo, "Ó","&Oacute;")
        testo = replace(testo, "Ô","&Ocirc;")
        testo = replace(testo, "Õ","&Otilde;")
        testo = replace(testo, "Ö","&Ouml;")
        testo = replace(testo, "×","&times;")
        testo = replace(testo, "Ø","&Oslash;")
        testo = replace(testo, "Ù","&Ugrave;")
        testo = replace(testo, "Ú","&Uacute;")
        testo = replace(testo, "Û","&Ucirc;")
        testo = replace(testo, "Ü","&Uuml;")
        testo = replace(testo, "Ý","&Yacute;")
        testo = replace(testo, "Þ","&THORN;")
        testo = replace(testo, "ß","&szlig;")
        testo = replace(testo, "à","&agrave;")
        testo = replace(testo, "á","&aacute;")
        testo = replace(testo, "â","&acirc;")
        testo = replace(testo, "ã","&atilde;")
        testo = replace(testo, "ä","&auml;")
        testo = replace(testo, "å","&aring;")
        testo = replace(testo, "æ","&aelig;")
        testo = replace(testo, "ç","&ccedil;")
        testo = replace(testo, "è","&egrave;")
        testo = replace(testo, "é","&eacute;")
        testo = replace(testo, "ê","&ecirc;")
        testo = replace(testo, "ë","&euml;")
        testo = replace(testo, "ì","&igrave;")
        testo = replace(testo, "í","&iacute;")
        testo = replace(testo, "î","&icirc;")
        testo = replace(testo, "ï","&iuml;")
        testo = replace(testo, "ð","&eth;")
        testo = replace(testo, "ñ","&ntilde;")
        testo = replace(testo, "ò","&ograve;")
        testo = replace(testo, "ó","&oacute;")
        testo = replace(testo, "ô","&ocirc;")
        testo = replace(testo, "õ","&otilde;")
        testo = replace(testo, "ö","&ouml;")
        testo = replace(testo, "÷","&divide;")
        testo = replace(testo, "ø","&oslash;")
        testo = replace(testo, "ù","&ugrave;")
        testo = replace(testo, "ú","&uacute;")
        testo = replace(testo, "û","&ucirc;")
        testo = replace(testo, "ü","&uuml;")
        testo = replace(testo, "ý","&yacute;")
        testo = replace(testo, "þ","&thorn;")
        testo = replace(testo, "ÿ","&yuml;")
        testo = replace(testo, " ","")
        testo = replace(testo, "€","&euro;")
        testo = replace(testo,"¢","&cent;")
        testo = replace(testo,"£","&pound;")
        testo = replace(testo,"¤","&curren;")
        testo = replace(testo,"¥","&yen;")
        testo = replace(testo,"¦","&brvbar;")
        testo = replace(testo, Chr(13) & Chr(10), "
")
        testo = replace(testo, vbCrlf, "
")
        End If
        SostCarSpecialiTextAreaEdit = testo
End Function 

mentre per l'editing, nella rappresentazione del testo prelevato da database access 2000, lo inserisco in una textarea modificandolo con la funzione:

Function ReverseSostCarSpecialiTextAreaEdit(ByVal testo)
        If testo <> "" Then
        testo = replace(testo,"
", vbCrlf)
        testo = replace(testo,"", " ")
        testo = replace(testo,"&pound;","£")
        testo = replace(testo,"&curren;","¤")
        testo = replace(testo,"&yen;","¥")
        testo = replace(testo,"&brvbar;","¦")
        testo = replace(testo,"&yuml;", "ÿ")
        testo = replace(testo,"&thorn;", "þ")
        testo = replace(testo,"&yacute;", "ý")
        testo = replace(testo,"&uuml;", "ü")
        testo = replace(testo,"&ucirc;", "û")
        testo = replace(testo,"&uacute;", "ú")
        testo = replace(testo,"&ugrave;", "ù")
        testo = replace(testo,"&oslash;", "ø")
        testo = replace(testo,"&divide;", "÷")
        testo = replace(testo,"&ouml;", "ö")
        testo = replace(testo,"&otilde;", "õ")
        testo = replace(testo,"&ocirc;", "ô")
        testo = replace(testo,"&oacute;", "ó")
        testo = replace(testo,"&ograve;", "ò")
        testo = replace(testo,"&ntilde;", "ñ")
        testo = replace(testo,"&eth;", "ð")
        testo = replace(testo,"&iuml;", "ï")
        testo = replace(testo,"&icirc;", "î")
        testo = replace(testo,"&iacute;", "í")
        testo = replace(testo,"&igrave;", "ì")
        testo = replace(testo,"&euml;", "ë")
        testo = replace(testo,"&ecirc;", "ê")
        testo = replace(testo,"&eacute;", "é")
        testo = replace(testo,"&egrave;", "è")
        testo = replace(testo,"&ccedil;", "ç")
        testo = replace(testo,"&aelig;", "æ")
        testo = replace(testo,"&aring;", "å")
        testo = replace(testo,"&auml;", "ä")
        testo = replace(testo,"&atilde;", "ã")
        testo = replace(testo,"&acirc;", "â")
        testo = replace(testo,"&aacute;", "á")
        testo = replace(testo,"&agrave;", "à")
        testo = replace(testo,"&szlig;", "ß")
        testo = replace(testo,"&THORN;", "Þ")
        testo = replace(testo,"&Yacute;", "Ý")
        testo = replace(testo,"&Uuml;", "Ü")
        testo = replace(testo,"&Ucirc;", "Û")
        testo = replace(testo,"&Uacute;", "Ú")
        testo = replace(testo,"&Ugrave;", "Ù")
        testo = replace(testo,"&Oslash;", "Ø")
        testo = replace(testo,"&times;", "×")
        testo = replace(testo,"&Ouml;", "Ö")
        testo = replace(testo,"&Otilde;", "Õ")
        testo = replace(testo,"&Ocirc;", "Ô")
        testo = replace(testo,"&Oacute;", "Ó")
        testo = replace(testo,"&Ograve;", "Ò")
        testo = replace(testo,"&Ntilde;", "Ñ")
        testo = replace(testo,"&ETH;", "Ð")
        testo = replace(testo,"&Iuml;", "Ï")
        testo = replace(testo,"&Icirc;", "Î")
        testo = replace(testo,"&Iacute;", "Í")
        testo = replace(testo,"&Igrave;", "Ì")
        testo = replace(testo,"&Euml;", "Ë")
        testo = replace(testo,"&Ecirc;", "Ê")
        testo = replace(testo,"&Eacute;", "É")
        testo = replace(testo,"&Egrave;", "È")
        testo = replace(testo,"&Ccedil;", "Ç")
        testo = replace(testo,"&AElig;", "Æ")
        testo = replace(testo,"&Aring;", "Å")
        testo = replace(testo,"&Auml;", "Ä")
        testo = replace(testo,"&Atilde;", "Ã")
        testo = replace(testo,"&Acirc;", "Â")
        testo = replace(testo,"&Aacute;", "Á")
        testo = replace(testo,"&agrave;", "À")
        testo = replace(testo,"&iquest;", "¿")
        testo = replace(testo,"&frac34;", "¾")
        testo = replace(testo,"&frac12;", "½")
        testo = replace(testo,"&frac14;", "¼")
        testo = replace(testo,"&raquo", "»")
        testo = replace(testo,"&ordm;", "º")
        testo = replace(testo,"&sup1;", "¹")
        testo = replace(testo,"&cedil;", "¸")
        testo = replace(testo,"&middot;", "·")
        testo = replace(testo,"&para;", "¶")
        testo = replace(testo,"&micro;", "µ")
        testo = replace(testo,"&acute;", "´")
        testo = replace(testo,"&sup3;", "³")
        testo = replace(testo,"&sup2;", "²")
        testo = replace(testo,"&plusmn;", "±")
        testo = replace(testo,"&deg;", "°")
        testo = replace(testo,"&macr;", "¯")
        testo = replace(testo,"<sup>&reg;</sup>","®")
        testo = replace(testo,"&ndash;","–")
        testo = replace(testo,"&mdash;","—")
        testo = replace(testo,"_","&shy;")
        testo = replace(testo,"¬","&not;")
        testo = replace(testo,"«","&laquo;")
        testo = replace(testo,"ª","&ordf;")
        testo = replace(testo,"<sup>&copy;</sup>", "©")
        testo = replace(testo,"&uml;", "¨")
        testo = replace(testo,"&sect;", "§")
        testo = replace(testo,"&brvbar;", "¦")
        testo = replace(testo,"&yen;","¥")
        testo = replace(testo,"&curren;", "¤")
        testo = replace(testo,"&pound", "£")
        testo = replace(testo,"&cent;", "¢")
        testo = replace(testo,"&iexcl;", "¡")
        testo = replace(testo,"&gt;", ">")
        testo = replace(testo,"&lt;", "<")
        testo = replace(testo,"&amp;",  "#")
        testo = replace(testo,".", ".")
        testo = replace(testo,"&quot;", """")
        testo = replace(testo,"&lsquo;","‘")
        testo = replace(testo,"&rsquo;","’")
        testo = replace(testo,"&euro;", "€")
        testo = replace(testo,"''", "'")
        End If
        ReverseSostCarSpecialiTextAreaEdit = testo
End Function 

Bene:
se per esempio il testo inserito nel form è un semplice:
1
2
3
4

convertito dalla prima funzione in :
1
2
3
4

nella textarea non compare nulla.

Non capisco come faccia la seconda funzione a cancellare tutto quando la stringa (ho verificato) essere proprio 1
2
3
4
e non nulla.

[Roby_72]

Guarda l'HTML della pagina. Forse c'è nella textarea ma non la vedi...

Roby

[eng]

non c'e'.
Smanettando ho trovato la soluzione: rinominare una variabile del record.
Non utilizzare rec("desc_"), ma descrizione=rec("desc_").
Se si utilizzo rec("desc_") al posto di descrzione per valorizzare il campo textarea, otterrei un valore nullo.
come mai ?

<%
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
SQL="SELECT * FROM judgements, area WHERE judgements.id_area=area.id_area AND id="&cod                                                     
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

Dim descrizione
descrizione = rec("desc_")

Dim SQL_area, rec_area
SQL_area = "SELECT * FROM area ORDER BY area"
Set rec_area = Server.CreateObject("ADODB.Recordset")
Set rec_area = Conn.Execute(SQL_area)
%>
<html>
<head>
<title>Modifica Sentenza</title>
<style>
    body{font-family:Arial;}
    a:link, a:visited{color:#263676; font-size:16px; font-weight:bold;text-decoration: none}
    a:hover{color:#ff0000; text-decoration: underline}
    .RigaPari{background-color:#EAF1F9;}
    .PrimaRiga{text-align:center; font-size:13px; line-height:13px;}
    .Risultati{color:#263676; font-size:11px; font-weight:bold;}
    .Risultati td{padding:4px;}
    .Intestazione{color:#ffffff; background-color:#263676; font-size:12px; font-weight:bold; text-align:center; text-transform:uppercase;}
    .Ricerca{margin-left:36px; margin-bottom:15px;}
    .Ricerca td{padding:1px 4px;}
    .Form{background-color:#F58221; text-align:center;}
    .Bottone{color:#FFFFFF; font-size:13px; font-weight:bold; text-decoration:underline; text-transform:uppercase;}
    .BottoneRicerca{background-color:#F58221; border:none; cursor:pointer; float:left; height:20px; margin:0 2px; width:65px; color:#FFFFFF; font-size:11px; font-weight:bold; text-decoration:underline; text-transform:uppercase; border:none; backgroujnd-color:#F58221;}
    .Form select{background-color:#FEECDE; border:none;}
    .Form input.text{background:#FEECDE; border:none;}
</style>
</head>
<body>
<div align="justify">
<p align=right>
[url="management_judgements.asp"]Crea/Modifica/Cancella Sentenze[/url] | 
[url="management_area.asp"]Crea/Modifica/Cancella Area[/url] | 
[url="management_news.asp"]Crea/Modifica/Cancella Newsletter[/url]

[url="management_user.asp"]Crea/Modifica/Cancella Utenti[/url] | 
[url="../main_.asp"]Sentenze[/url] |
[url="../archive.asp"]Newsletter[/url] |
[url="logout.asp"]Logout[/url]
</div>


</p>



<div align="center">
<form method="post" action="edit_judgement_process.asp?cod=<%=cod%>">
<table >
<td colspan="2">Modifica Sentenza</td>
</tr>
<tr>
<td ><p align="left">ID</p></td>
<td >
<p align="left"><%=rec("id")%></p></td>
</tr>
<tr>
<td>Data</td>
<td>
<p align="left"><input name="date_" maxlength="10" size="11" value="<%=Right(rec("date_"),2)%>/<%=Right(Left(rec("date_"),6),2)%>/<%=Left(rec("date_"),4)%>"> [formato: GG/MM/AAAA]</p></td>
</tr>
<tr>
<td>Area</td>
<td>
<p align="left">
            <SELECT NAME="id_area">
            <OPTION VALUE="0" <%if rec("id_area")=undefined Then%>SELECTED<%end if%>>nessuno 
        <%WHILE Not rec_area.EOF%>
            <OPTION VALUE="<%=rec_area("id_area")%>" <%If rec("id_area")=rec_area("id_area") Then%>SELECTED<%End If%>> <%=rec_area("area")%>
        <% rec_area.MoveNext
        WEND
        rec_area.close
        Set rec_area = Nothing%>
            </SELECT>

se non è presente, [url="add_area.asp"]crea un'altra area[/url]
e poi torna a questa pagina
</p></td>
</tr>
<tr>
<td>File</td>
<td>
<p align="left"><input name="file" maxlength="150" size="50" value="<%=rec("file")%>"></p></td>
</tr>
<tr>
<td>Titolo</td>
<td>
<p align="left"><input name="title" maxlength="" size="50" value="<%=rec("title")%>"></p></td>
</tr>
<tr>
<td>Descrizione</td>
<td>
<p align="left">
<textarea name="desc_" rows="10" cols="100"><%=ReverseSostCarSpecialiTextAreaEdit(descrizione)%> </textarea>
</p></td>
</tr>
<tr>
<td>Chiavi</td>
<td>
<p align="left">
<input name="keys" maxlength="500" size="100" value="<%=rec("keys")%>"></p></td>
</tr>
<tr>
<td>
<p align="center"><input type="submit" name="Submit" value="Invia Dati"></p></td>
<td></td>
</tr>
</table>
</form>


</p>



</div> 

[lucalicc]

il campo del database desc_ probabilmente è del tipo memo.
asp e access hanno un bug nel gestire i campi memo:
una volta letti vengono persi.
Per gestirli devi passare attraverso una variabile di appoggio
proprio come hai fatto tu.
Pochi giorni fa ci avevo sbattuto la testa pure io e ho perso
un'ora di lavoro per trovare il problema e aggirarlo.
luca

[eng]

esatto, tipo memo.
Ci ho perso molto più tempo.
Grazie x la conferma