formulario asp

[umdraiga]

Hola amigos:
Estoy intentando crear un formualrio en asp ya que me dicen que es el mejor sistema para que cuando alguien me mande un formulario a una dirección de correo no se ejecute el programa cliente de correo del usuario.
Pues bien no acabo de recibir los campos en mi correo
Necesitaría por favor el codigo de un ejemplo con dos o tres campos para que cuando se rellene el formulario esos campos vayan a la dirección de correo que yo desee.
Disculpen mi ignorancia.
saludos

[jorel]

aqui tienes un ejemplo sencillo usando cdonts


los valores de que envies del formulario los puedes recoger dentro de este codigo con un request.

ej

destinatario = request.form("destinatario")

y en mail to pones '"&destinatario&"'


<%
'Creamos el Objeto del mail.
Set Mail = Server.CreateObject ("CDONTS.Newmail")
'nuestra direccion de correo.
Mail.From = "[email protected]"
'direccion del destinatario.
Mail.To = "[email protected]"
'El asunto del mensaje a enviar.
Mail.Subject = "Asunto del email"
'Todo el texto que queremos mandar.
Mail.Body = "Cuerpo central del mensaje a enviar"
'Envio del mail....
Mail.Send
'Limpiamos el objeto.
Set Mail = Nothing
%>

ok

[umdraiga]

El caso es que no recibo ni el correo ni los campos
la página está aquí:
¿que hago mal?
http://www.umdraiga.com/prueba.asp
muchas gracias por tu interes

[jorel]

seria mejor si pegaras tu codigo para checarlo....ok

[umdraiga]

<%
if request.form="" then
%>
<form method="post" action="prueba.asp">
Nombre=<input type="text" name="Nombre" size="20"><br>
Email=<input type="text" correo="Email" size="20">
Apellido<input type="text" name="APELLIDO" size="20">
<input type="submit" value="Enviar">
</form>
<%
else
wNombre=Request.Form("Nombre")
wEmail=Request.Form("Email")
wApellido=Request.Form("Apellido")
%>
<h2>
<%

set correo=Server.CreateObject("CDONTS.NewMail")
correo.From ="[email protected]"
correo.To = "[email protected]"
correo.Subject="DATOS RECOGIDOS EN FORMULARIO"
correo.Body= wTexto
correo.mailFormat = 0
correo.Send
set correo= Nothing
end if
%>

[jorel]

si no me equivoco debes agregar lo que modifique...

<%
if request.form="" then
%>
<form method="post" action="prueba.asp">
Nombre=<input type="text" name="Nombre" size="20"><br>
Email=<input type="text" correo="Email" size="20">
Apellido<input type="text" name="APELLIDO" size="20">
<input type="submit" value="Enviar">
</form>
<%
else
wNombre=Request.Form("Nombre")
wEmail=Request.Form("Email")
wApellido=Request.Form("Apellido")

wTexto = wNombre&"<br>"&wEmail&"<br>"&wApellido
%>
<h2>
<%

set correo=Server.CreateObject("CDONTS.NewMail")
correo.From ="[email protected]"
correo.To = "[email protected]"
correo.Subject="DATOS RECOGIDOS EN FORMULARIO"
correo.Body= wTexto
correo.mailFormat = 0
correo.Send
set correo= Nothing
end if
%>

checalo y me cuentas...

[jorel]

modifica esto me equivoque.

wTexto = wNombre & VbCrLf & wEmail & VbCrLf & wApellido

no va "<br>" , para saltar de linea debes poner VbCrLf....ok

[umdraiga]

El caso es que hago pruebas y los correos nos lo recibo . Lo que ya no sé es si hay algún problema con el servidor. relleno el fornmulario y no me llegan los correos

[jorel]

y tu servidor si tiene instalado el componente CDONTS ?

[umdraiga]

si
¿tu crees que debería de funcionar?

[jorel]

si a mi me funciono .....

[umdraiga]

bueno Jorge, gracias por todo. El lunes hablaré con los del servidor y que me cuenten
Muchas gracias de verdad
saludos desde España

[jorel]

ok saludos desde México