Hola una vez mas, resulta q, continuo con este problemilla que no me deja dormir, he cambiado y recambiado mi codigo pero aun nada, resulta que este editor trabaja con estylos y como veran el texarea ya tiene un tamaño definido, intento validar con la func. len pero no lo realiza, cuando yo hago click en el boton enviar habiendo ya ingresado valor en el texarea, no me capta nada (osea como si no hubiese ingresado nda y estubise vacio) y me arroja el msje de q' no hay dato ingresado, pero al hacer el intento por segunda vez si lo realiza.
<!--#include file="RTE_configuration/browser_page_encoding_inc.asp" -->
<meta name="description" content="Web Wiz Rich Text Editor, free WYSIWYG Eeditor for replacement of HTML text areas.">
<script language="JavaScript">
function Envia(){
document.myForm.txtBoton.value=2;
t_area=document.myForm.textarea.value
alert(t_area)
document.myForm.txtVacio.value=document.myForm.tex tarea.value.length;
}
function Adjunta(){
document.myForm.txtBoton.value=3;
}
function Cancel(){
window.history.go(-1)
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" OnLoad="initialiseWebWizRTE();">
<%Dim N,coneccion,cadena,Content%>
<!-- #include file="basicas/conecta.asp" -->
<%call enlaza%>
<div align="center" class="heading">
<table width="680" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr><td align="center" bgcolor="E6E7F2">
<form name="myForm" method="post" action="Publica.asp">
<%Content = Request.Form("textarea")%>
<input type="text" name="txtVacio" value="<%=request("txtVacio")%>">
<%if request("txtBoton")="2" then%>
<!-- #include file="basicas/Funcion.asp" -->
<%call Error(Content)%>
<%If request("txtVacio")="93" OR request("txtVacio")="77" OR Content = "" OR IsNull(Content) OR (InStr(1, Content, "<br />", 1) = 1 AND Len(Content) = 8) Then
call Error("Ingrese Comentario")
ELSE
call Error("LOSM DATOS ESTAN COMPLETOS")
response.redirect "MArticulo.asp?txtArt="&cadena
end if
END IF
end if%>
<%if request("txtBoton")="3" then
'response.redirect "AdjuntarA.asp?txtcorreo="&corr&"&txtclave="&c lave
aut=Request("txtAutor")
cate=Request("txtcate")
Titu=Request("txtTitu")
response.redirect "AdjuntarA.asp?txtcate="&cate&"&txtAutor="&aut&"&t xtTitu="&Titu
end if%>
<INPUT type="hidden" name="txtBoton" value="<%=Request("txtBoton")%>"><br>
<input type="hidden" name="txtAutor" value="<%=request("txtAutor")%>">
<input type="hidden" name="txtcate" value="<%=request("txtcate")%>">
<input type="hidden" name="txtDi" value="<%=request("txtDi")%>">
<input type="hidden" name="txtTa" value="<%=request("txtTa")%>">
<input type="hidden" name="txtNo" value="<%=request("txtNo")%>">
<%if session("usuario")=request("txtAutor") and session("usuario")<>"" then %>
<table bgcolor="E6E7F2" width="700">
<tr><td width="180"><H4 CLASS=texto>Titulo del Articulo:</H4></td>
<td width="500"><INPUT name="txtTitu" value="<%=Request("txtTitu")%>" size =72 maxLength="85"></td>
</tr>
<tr><td colspan=2 width="600">
<input type="Submit" name="Adjuntar" VALUE="Adjuntar Archivo" onclick="javascript
:Adjunta();">
</td></tr>
<tr><td colspan=2 width="600">
<%if request("txtNo")<>"" then%>
<H4 CLASS=texto>Archivo Adjuntado:<%Response.Write("")%><%=request("txtNo" )%></H4>
<%end if%>
</td></tr>
<tr><td colspan=2 width="600">
<H4 CLASS=texto>Comentario:</H4>
</td></tr>
</table>
<HR>
<%Dim strFormName
Dim strTextAreaName
strFormName = "myForm"
strTextAreaName = "myTextarea"%>
<!--#include file="RTE_editor_inc.asp" -->
<P><TEXTAREA id=myTextarea name=textarea rows=17 cols=80>
<%if Request.Form()<>"" then
Response.Write Request.Form("textarea")
else%>
<div style="text-align: Left; font-family:arial,helvetica,sans-serif;"></div>
<%end if%>
</TEXTAREA></P>
<input type="submit" name="Submit" value="Grabar Articulo" onclick="javascript
:Envia();">
<input name="reset" type="reset" value=" Limpiar ">
<INPUT type="button" value=" Cancelar " id=button1 name=Cancelar onclick="javascript
:Cancel();">
<%end if%>
</form>
</td></tr>
</table>
</div>
<%coneccion.close
set coneccion=nothing%>
</body>
</html>