he copiado este codigo de una pagina pero no me sale el formulario alli les mando el codigo para ver si me dan una ayudita gracias anticipadamente
<HTML>
<BODY>
<H1>Creación del mensaje</H1>
<FORM ACTION="enviar.asp" METHOD="POST">
<TABLE>
<TR>
<TD ALIGN="RIGHT">Para:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="destinatario"></TD>
</TR>
<TR>
<TD ALIGN="RIGHT">De:</TD>
<TD><INPUT TYPE="TEXT" SIZE="30" NAME="remitente"></TD>
</TR>
<TR>
<TD ALIGN="RIGHT" NOWRAP>Asunto:</TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" SIZE="67" NAME="asunto">
</TD>
</TR>
</TABLE>
<TABLE>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT" NOWRAP>Texto del mensaje:</TD>
<TD ALIGN="LEFT" NOWRAP>
<TEXTAREA WRAP="OFF" ROWS="7" COLS="50" NAME="cuerpo"></TEXTAREA>
</TD>
</TR>
</TABLE>
<INPUT TYPE="RESET" NAME="Cancelar" VALUE="Borrar">
<INPUT TYPE="SUBMIT" NAME="Enviar" VALUE="Enviar">
</FORM>
</BODY>
</HTML>
<%
Identificación
Set Correo = server.createobject("CDONTS.Session")
Correo.logonSMTP "administrador"
[email protected]
Acceder a la bandeja de entrada
Set Bandeja = Correo.inbox
Crear un objeto que almacene los mensajes de la bandeja anterior
Set Mensajes = Bandeja.messages
Recuperación de los mensajes
For k = 0 to Mensajes.count
Set elMensaje = Mensajes.item(k)
Obtener el nombre del remitente
Response.write Desde: " & elMensaje.sender & "<br>
Obtener el asunto del mensaje
Response.write Asunto: " & elMensaje.subject & "<br>
Obtener el texto del mensaje
Response.write " elMensaje.text & "<br>
Next
logoff
Correo.logoff
Set Correo = nothing
%>