Foros del Web » Programando para Internet » ASP Clásico »

Ayuda urgente para hacer un formulario

Estas en el tema de Ayuda urgente para hacer un formulario en el foro de ASP Clásico en Foros del Web. tengo estos archivos quiero hacer un envio de correo pro formulario en asp nose este lenguaje de programacion me podrias ayudar o corregir el codigo ...
  #1 (permalink)  
Antiguo 23/03/2005, 22:58
 
Fecha de Ingreso: marzo-2005
Mensajes: 6
Antigüedad: 19 años, 1 mes
Puntos: 0
soy novato en asp no se nada de esto ayuda Urgente

tengo estos archivos quiero hacer un envio de correo pro formulario en asp nose este lenguaje de programacion me podrias ayudar o corregir el codigo te mando los codigos

<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"> &nbsp;
<INPUT TYPE="SUBMIT" NAME="Enviar" VALUE="Enviar">
</FORM>
</BODY>
</HTML>

este es el otro archivo

<%
'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
%>

y me sale este error

Microsoft VBScript compilation error '800a0408'

Invalid character

/enviar.asp, line 5

[email protected]"
------^
  #2 (permalink)  
Antiguo 24/03/2005, 05:33
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 7 meses
Puntos: 18
te faltan unas comillas ahí. y mira a ver, que creo que se te ha jodido las teclas de la coma y del punto del teclado.
  #3 (permalink)  
Antiguo 24/03/2005, 17:17
 
Fecha de Ingreso: marzo-2005
Mensajes: 6
Antigüedad: 19 años, 1 mes
Puntos: 0
Ayuda urgente para hacer un formulario

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"> &nbsp;
<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
%>
  #4 (permalink)  
Antiguo 24/03/2005, 17:23
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 3 meses
Puntos: 98
Y cual es el problema??
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #5 (permalink)  
Antiguo 24/03/2005, 22:59
 
Fecha de Ingreso: marzo-2005
Mensajes: 6
Antigüedad: 19 años, 1 mes
Puntos: 0
Alguien que me ayude por favor necesito hacer funcionar este formulario

<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"> &nbsp;
<INPUT TYPE="SUBMIT" NAME="Enviar" VALUE="Enviar">
</FORM>
</BODY>
</HTML>

este es el otro archivo


<%
'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
%>

"y me sale este error"

Microsoft VBScript compilation error '800a0408'

Invalid character

/enviar.asp, line 5

[email protected]"
------^
Editar/Borrar Mensaje
  #6 (permalink)  
Antiguo 25/03/2005, 07:25
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 7 meses
Puntos: 18
tú eres muy canso, no? te respondí en tu otra pregunta. que te faltan unas comillas!!!! que tienes que poner
Correo.logonSMTP "administrador" ,"[email protected]"
pero ésto es sólo el error de sintaxis. Después hay un error de concepto, creo. No he encontrado información sobre la opción de recoger mails con CDONTS.

Última edición por trasgukabi; 25/03/2005 a las 07:34
  #7 (permalink)  
Antiguo 26/03/2005, 13:44
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años
Puntos: 4
Bueno pues, como te dicen que es lo que no funciona ?
  #8 (permalink)  
Antiguo 26/03/2005, 21:04
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 7 meses
Puntos: 18
ésta es la tercera respuesta que hago a la pregunta que has repetido TRES veces EN TRES DÍAS!!!! Pero quieres hacer el favor de revisar tus post anteriores, tío?!?!?!??! MANDA HUEVOS! Cuatro mensajes que ha escrito y tres de ellos iguales

Última edición por trasgukabi; 26/03/2005 a las 21:07
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 05:34.