Hola Ojaro, eso es esta bien pues me ekivoque al colocarlo , lo que me visto es que cuando ejecuto ese archivo sólo lo si realiza su funcion, parece k el formulario que lo llama es el problema , pero no veo nada raro en ello, pues colocare el codigo para si me puedan ayudar.
CPersonal.asp
[HTML
<script>
function Agrega(){
document.formulario.Botom.value=1;
document.formulario.submit();
}
function Elimina(){
document.formulario.Botom.value=2;
document.formulario.submit();
}
function Salir(){
document.formulario.Botom.value=3;
document.formulario.submit();
}
function Nuevo(){
document.formulario.Botom.value=4;
document.formulario.submit();
}
</script>
</HEAD>
<BODY bgcolor="#FFFFCC">
<%set coneccion=server.createobject("ADODB.connection")
coneccion.Open "driver={SQL Server}; server=(local); database=CORREOS; uid=sa;pwd=;" %>
<form name="formulario" method="post" action="Cpersonal.asp">
<%if Request.form("Botom")="3" then
'response.write("Ingreso aka")
response.redirect "index.asp"
end if %>
<%if Request.form("Botom")="1"then
Server.transfer "contactos.asp"
end if%>
<% if Request.form("Botom")="4" then
Server.transfer "CEnvio.asp"
end if%>
<% if request.form("Botom")="2" then
valores=request.form("checkbox")
if valores<>"" then
'response.write (valores)
elimina="delete from CORREO where Num in ("&valores&");"
coneccion.Execute (elimina)
'<h1>Datos Eliminados Correctamente</h1>
end if
end if%>
<%dim correo, usu, cadena, clave,valores
cadena=Request.Form("txtcorreo")
clave=Request.Form("txtclave")%>
<%if cadena="" then%>
<%Response.Redirect "index.asp" %>
<%else
if verificacorreo()=1 then%>
<%
set tabla=coneccion.Execute("select * from USUARIOS WHERE Correo='"&usu&"' and Clave='"&clave&"' ")
%>
<%if tabla.EOF then%>
<%Response.Redirect "index.asp" %>
<%else%>
<table border=0 width="15%" ><tr>
<td><input type="text" name="Botom" Value="<%=request.form("Botom")%>"></td>
<td><input type="image" name="Nuevo" src="images/Nuevo.jpg" alt="Redactar Correo" onclick="javascript
:Nuevo();"></td>
<td><input type="image" name="Elimina" src="images/Eliminar.jpg" alt="Elimina" onclick="javascript
:Elimina();"></td>
<td><input type="image" name="Contactos" src="images/contacto.jpg" alt="Agrega Contacto" onclick="javascript
:Agrega();"></td>
<td><input type="image" name="Salir" src="images/salir.gif" alt="Salir" onclick="javascript
:Salir();"></td>
</tr></table>
<table><tr><td><input type="text" name="txtcorreo" value="<%=response.write(usu)%>"> </td>
<td><input type="text" name="txtclave" value="<%=request.form("txtclave")%>"></td>
</tr></table>
<%set tabla2=coneccion.Execute("select * from CORREO WHERE CORREO.CorreoP='"&tabla("Correo")&"'")%>
...................
<% coneccion.Close
set coneccion=nothing %>
</form>
</BODY>
</HTML>
[/HTML]
CEnvio.asp
<HTML>
<HEAD>
<script>
function Adjunta(){
document.FormularioE.submit();
}
</script>
</HEAD>
<BODY bgcolor="#E2E2E2">
<form name="FormularioE" action="CEnvio.asp" method="POST" >
<%if Request.form("txtB")="1" then
Server.transfer "VerificaEnvio.asp"
'response.redirect ("CPersonal.asp")
else if Request.form("txtB")="2" then
response.redirect ("AdjuntarA.asp")
'Server.transfer "CPersonal.asp"
else if request.form("txtB")="3" then
Server.transfer "Contactos.asp"
else
if request.form("txtB")="4" then
Server.transfer "CPersonal.asp"
end if
end if
end if
end if%>
<table width="112" border=0>
<!--DWLayoutTable-->
<tr><td><input type="image" name="Grabar" src="images/buzon.jpg" alt="Grabar" ></td>
<td><input type="image" name="Adjuntar" src="images/Adjuntar.jpg" alt="Adjuntar" onclick="javascript
:Adjunta()" ></td>
<td><input type="image" name="Contactos" src="images/direccion.jpg" alt="Contactos" ></td>
<td><input type="image" name="Cancelar" src="images/aspa.jpg" alt="Cancelar" ></td>
<td><input type="text" name="txtB" value=""></td>
</tr>
</table>
<table width="226">
<!--DWLayoutTable-->
<tr>
<td width="216" height="24" valign="top"><input type="TEXT" name="txtD" size=30 value="<%=Request.form("txtcorreo")%>@hotmail.com" ></td>
<td width="216" height="24" valign="top"><input type="TEXT" name="txtcorreo" size=30 value="<%=Request.form("txtcorreo")%>@hotmail.com" maxlength=50></td>
............. </tr>
</table>
...........
<table><!--DWLayoutTable-->
<tr>
<td width="478" height="100" valign="top"><TEXTAREA cols=80 name="txtM" style="HEIGHT: 328px; WIDTH: 635px" value="<%=Request.form("txtM")%>" rows="1" ></TEXTAREA></td>
</tr>
</table>
</form>
</BODY>
</HTML>
[/HTML]
Ah el error que me arroja es k document.FormularioE no es un Objeto Gracias Forences por su ayuda espero me puedan servir y sugerir