Hola de nuevo, algo seguramente falta algo, coloco el codigo para k le echen un vistazo y si me pudieran apoyar.
Gracias
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script>
function Envia(){
document.myForm.txtBoton.value=2;
document.myForm.submit()
}
function EnviaGrabar(){
document.myForm.txtBoton.value=3;
document.myForm.submit()
}
</script>
</HEAD>
<body OnLoad="initialiseWebWizRTE(); ">
<%Dim N,coneccion,cadena,Contenido
Contenido=Request("textArea")%>
<!-- #include file="basicas/conecta.asp" -->
.........
<%if Request("txtBoton")="2" then
Server.transfer "xxxxxx.asp"
end if%>
<%if Request("txtBoton")="3" then
if contenido="" Then%>
<%call Error(mensaje)%>
<%else
if Request("txtTitu")<>"" then%>
<%llama enlazaBD%>
<!-- #include file="basicas/Numero.asp" -->
<%set TAUX=coneccion.Execute("select * from
ARTICLE order by Id DESC")
if TAUX.EOF then
N=1
call concatena
else
N=cint(TAUX(0))+1
call concatena
end if
TAUX.close
set TAUX=nothing%>
<%fecha=date()
inserta="insert into ARTICLE VALUES
(.............)"
coneccion.Execute(inserta)
coneccion.close
set coneccion=nothing
else
call Error("Ingrese Titulo del Articulo")
end if
end if
end if%>
<form name="myForm" method="Post" Action="Publica.asp">
<input type="text" name="txtBoton" value="<%=request("txtBoton")%>">
<input type="hidden" name="txtAutor" value="<%=request("txtAutor")%>">
<input type="hidden" name="txtNo" value="<%=request("txtNo")%>">
.......
<%if session("usuario")=request("txtAutor") and session("usuario")<>"" then %>
<%if request("txtBoton")<>"3" then%>
<P><STRONG><FONT color=darkblue>Titulo del Articulo:</FONT></STRONG>
</P><INPUT name="txtTitu" value="<%=Request("txtTitu")%>" style="WIDTH: 515px; HEIGHT: 22px" size =65 maxLength="85"><br>
<p><%response.write(request("txtNo"))%>
<input type="button" name="Adjuntar" VALUE="Adjuntar Archivo"
onclick="javascript
:Envia();"></p>
<P><STRONG><FONT
color=darkblue>Comentario</FONT></STRONG></P>
<div align="center" class="heading"><br>
<table width="680" border="0" cellpadding="1" cellspacing="1"
bgcolor="#666666">
<tr><td align="center" bgcolor="E6E7F2">
<%Dim strFormName,strTextAreaName
strFormName = "myForm"
strTextAreaName = "textArea"%>
<!--#include file="RTE_editor_inc.asp" -->
<textarea name="textArea" cols="80" rows="10" id="textArea">
<%if Request.Form()<>"" then
request("txtArea")%>
<%else%>
<div style="text-align: left; font-size : 11pt; font-
family:arial,helvetica,sans-serif;"> </div>
<%end if%>
</textarea>
<input type="button" name="BtnPublica" value="Publicar Artìculo"
onclick="javascript
:EnviaGrabar();">
<input name="reset" type="reset" value="Limpiar"><br>
</td></tr>
</table>
</div>
<%end if%>
<%else
'Response.Redirect "index.asp"
end if%>
</form>
</BODY>
</HTML>