FCKEditor e modifica pagine

[michele.santoro]

Salve a tutti, ho questo problema che non riesco a risolvere:
ho utilizzato FCKEditor nella textarea di inserimento di dati. Fino a quì tutto bene, inserisco i dati che vengono memorizzate in un database. Il problema sorge quando richiamo i dati dal DB per modificarli e cioè richiamo il titolo della news e tutti gli altri dati, che mi appaiono regolarmente, ma quando arrivo a richiamare la "descrizione" la textarea invece di farmi vedere i dati da modificare mi appare vuota.
Potreste aiutarmi?

Questo è il codice che uso per richiamare i dati da database:

<%
Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
SQL="SELECT * FROM Tabella WHERE id="&cod                                                     
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
%>
<div align="center">
<center>
<form method="post" action="edit-process.asp?cod=<%=cod%>">
<table border="0" cellpadding="12" width="860" bgcolor="#E7EDF5" cellspacing="0" height="83" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="774" bgcolor="#83A5D2" height="44" align="center" colspan="4">
<font face="Verdana" color="#FFFFFF">Modifica i dati</font></td>
</tr>
<tr>
<td width="143" bgcolor="#EAF4FF" height="1" align="right">
<font face="Verdana" size="2">Anno</font></td>
<td width="701" bgcolor="#EAF4FF" height="1" colspan="3">
<p align="center">
<font face="Verdana">
<input name="Anno" maxlength="50" size="16" value="<%=rec("Anno")%>" style="float: left"></font></td>
</tr>
<tr>
<td width="143" bgcolor="#EAF4FF" height="1" align="right">


<font face="Verdana" size="2">Autore</font></td>
<td width="701" bgcolor="#EAF4FF" height="1" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="85%">
  <tr>
    <td width="33%"><font face="Verdana">
<input name="Autore" maxlength="50" size="25" value="<%=rec("Autore")%>" style="float: left"></font></td>
    <td width="24%">
    <p align="right"><font face="Verdana" size="2"> Lingua </font></td>
    <td width="109%">
    <p align="right"><font face="Verdana">
<input name="Lingua" maxlength="50" size="23" value="<%=rec("Lingua")%>" style="float: right"></font></td>
  </tr>
</table>
</td>
</tr>
<tr>
<td width="143" bgcolor="#EAF4FF" height="1" align="right">
<font face="Verdana" size="2">Titolo</font></td>
<td width="388" bgcolor="#EAF4FF" height="1">
<input name="titolo" maxlength="50" size="54" value="<%=rec("titolo")%>"></td>
<td width="85" bgcolor="#EAF4FF" height="1">
<p align="right"><font size="2" face="Verdana">Immagine</font></td>
<td width="212" bgcolor="#EAF4FF" height="1">
<img border="0" src=../foto/<%=rec("imglink")%> heigth=150 hspace="0" width="60" style="border: 1px solid #83A5D2"></td>
</tr>
<tr>
<td width="143" bgcolor="#EAF4FF" height="1" align="right">
<font face="Verdana" size="2">Immagine</font></td>
<td width="388" bgcolor="#EAF4FF" height="1">
<font face="Verdana">
<input name="imglink" maxlength="50" size="53" value="<%=rec("imglink")%>" style="float: left"></font></td>
<td width="297" bgcolor="#EAF4FF" height="1" colspan="2">
<font size="2" face="Verdana"><a target="_blank" href="upload/form_upload.htm">
Sostituisci immagine</a></font></td>
</tr>
<tr>
<td width="143" bgcolor="#EAF4FF" height="84" align="right"><font face="Verdana" size="2">Luogo 
e data</font></td>
<td width="701" bgcolor="#EAF4FF" height="84" colspan="3">
<textarea rows="2" name="Luogo_data" cols="46"><%=rec("Luogo_data")%></textarea></td>
</tr>
<tr>
<td width="143" bgcolor="#EAF4FF" height="550" align="right" valign="top">
<font face="Verdana" size="2">Alunni partecipanti al Progetto</font></td>
</center>
<td width="701" bgcolor="#EAF4FF" height="550" colspan="3">


<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "FCKeditor/"
oFCKeditor.Create "descrizione"
%>


<p align="left"></td>
</tr>
<center>
<center>

<tr>
<td width="143" bgcolor="#EAF4FF" height="1">
<p align="right"><font size="2" face="Verdana">Data</font></td>
<td width="701" bgcolor="#EAF4FF" height="1" colspan="3">
<font size="1" face="Verdana">
<input name="Data" maxlength="50" size="16" value="<%=rec("Data")%>" style="float: left"></font></td>
</tr>

<tr>
<td width="782" bgcolor="#EAF4FF" height="1" colspan="4">
<p align="center"><input type="submit" name="Submit" value="Salva le modifiche"></td>
</tr>
</table>
</form>
</center>
</div>

Grazie

[Mems]

<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "FCKeditor/"
oFCKeditor.Value = rec("campo_tabella")
oFCKeditor.Create "descrizione"
%>

Ho scaricato l'editor...

[michele.santoro]

Originariamente inviato da Mems

<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "FCKeditor/"
oFCKeditor.Value = rec("campo_tabella")
oFCKeditor.Create "descrizione"
%>

Ho scaricato l'editor...

Grazie per la risposta, purtroppo avevo già provato questa soluzione, ma mi da:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'HTMLEncode'

Altre soluzioni?

[Mems]

content = rec("campo_tabella")
oFCKeditor.Value = """" & content & """"

[michele.santoro]

Originariamente inviato da Mems

content = rec("campo_tabella")
oFCKeditor.Value = """" & content & """"

Perfetto!!! Grazie mille!

Ciao

[Mems]

Io mi sono fatto questo esempio:

<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mapPath("\mdb-database\db.mdb")
sql = "SELECT * FROM Tabella2"
set rs = conn.execute(sql)
if not rs.eof then
content = rs("campoTesto")
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<form>
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "FCKeditor/"
oFCKeditor.Value = content
oFCKeditor.Create "descrizione"
%>
</form>

e funziona.
Il testo caricato dal db è il seguente:

Prova immissione dati.</p>


Questo &egrave; un testo grassetto.
<u>Questo &egrave; un testo sottolineato.
</u>Questo &egrave; un link</p>

[michele.santoro]

Scusa, ho parlato troppo presto!
Funziona, però mi aggiunge le virgolette all'inizio e alla fine del testo, così che poi, una volta fatta la modifica della pagina devo toglierle prima di salvare.
Da cosa dipende?

[michele.santoro]

Originariamente inviato da michele.santoro
Scusa, ho parlato troppo presto!
Funziona, però mi aggiunge le virgolette all'inizio e alla fine del testo, così che poi, una volta fatta la modifica della pagina devo toglierle prima di salvare.
Da cosa dipende?

OK! Come non detto, è bastato modificare

oFCKeditor.Value = """" & content & """"

in

oFCKeditor.Value = content

Grazie, sei stato gentilissimo