No funcionó a ver si ahora me explico mejor.
Estoy ocupando HyperTextArea que es una funcion en Javascript con la cual puedes crear textarea pero con la opción para otorgarle formato (WYSIWYG).
Bueno la verdad es que cuando no le asigno ningún valor al campo ningún problema, sino que este se presenta cuando le asigno el resultado de un recordset.
la llamada de la función se realiza de la siguiente manera:
<script languaje="Javascript">
<!--
area = new HyperTextArea("content", 'Parrafo', 520, 200,"");
//-->
</script>
bueno yo estoy reemplazando el texto parrafo por una variable la cual tiene almacenada el parrafo con formato que yo guardé anteriormente.
La idea es poder mostrar lo guardado para poder editarlo. pero no me aparece el cuadro.
adjunto codigo de la página.
<!--#Include File="header.asp"-->
<!--#Include File="conn_open.asp"-->
<script language="JavaScript" type="text/javascript" src="js/HyperTextArea.js"></script>
<%
'check to ensure user is admin. if not, redirect to error
'if MySecLev<5 then Response.Redirect "error_notadmin.asp"
%>
<div id="content">
<h2>Editar Articulo </h2>
<%
Dim MyArtID
MyArtId=Request.QueryString("ArtID")
Dim Title
Dim Keywords
Dim DateEntered
Dim Content
Dim Category1
Dim Category2
Dim Category3
Dim OS1
Dim OS2
Dim OS3
strSQL = "SELECT * " & _
"FROM tblKBMain WHERE ArtID=" & MyArtID
objConn.Open
Set rstResults=objConn.Execute(strsql)
Title=rstResults("Title")
Keywords=rstResults("Keywords")
DateEntered=rstResults("DateEntered")
Content=rstResults("Content")
Category1=rstResults("Category1")
Category2=rstResults("Category2")
Category3=rstResults("Category3")
OS1=rstResults("OS1")
OS2=rstResults("OS2")
OS3=rstResults("OS3")
objCOnn.Close
%><Form Action="admin_article_edit_save.asp" method=post id=form3 name=form3>
<p>
Title:<br />
<input type="text" name="Title" value="<% =Title %>" size="50" maxlength="254"><br />
Keywords:<br />
<input type="text" name="Keywords" value="<% =Keywords %>" size="50" maxlength="254"><br />
Date Entered:<br />
<input type="text" name="DateEntered" value="<% =DateEntered %>" size="20" maxlength="50"><br />
<table>
<tr>
<td>Categorias</td>
<td>-</td>
</tr>
<tr>
<td>
<select name="Category1">
<%
strSQL = "SELECT * FROM tblKBCategory ORDER BY Category"
objConn.Open
Set rstResults=objConn.Execute(strsql)
do while not rstResults.EOF
if rstResults("CatID")=Category1 then
%><option selected value="<% =rstResults("CatID") %>"><% =rstResults("Category") %></option>
<%
else
%><option value="<% =rstResults("CatID") %>"><% =rstResults("Category") %></option>
<%
end if
rstResults.Movenext
Loop
%></select></td>
<td>
<select name="OS1">
<%
strSQL = "SELECT * FROM tblKBOS ORDER BY OSInfo"
Set rstResults=objConn.Execute(strsql)
do while not rstResults.EOF
if rstResults("OSID")=OS1 then
%><option selected value="<% =rstResults("OSID") %>"><% =rstResults("OSInfo") %></option>
<%
else
%><option value="<% =rstResults("OSID") %>"><% =rstResults("OSInfo") %></option>
<%
end if
rstResults.Movenext
Loop
objConn.Close
%></select></td>
</tr>
</table>
<br />
<%
'*******************************
' added 2007/05/02
' edit of content to view correctly
'*******************************
Content=replace(Content,"<br>",vbcrlf)
Content= replace(content, """", ""e;")
%>
Contenido:<br />
<script languaje="Javascript">
<!--
area = new HyperTextArea("content", '<%= content%>', 520, 200,"");
//-->
</script>
<br /><br />
<input type="hidden" value="<% =MyArtID %>" id=MyArtID name=MyArtID>
<input class="button" type="submit" value="Guardar" id=submit1 name=submit1 />
</p>
</form>
</div>
<!--#Include File="navmenu.asp"-->
<!--#Include File="footer.asp"-->