Manadar Datos Por Mail Asp -- Codigolandia.com PHP ASP ... Programando con Cristo

Manadar Datos Por Mail Asp

para mandar datos por mail utilizando asp haremos lo siguiente :

codigo html:




<html>

<head>

</head>

<body>

<form method="post" action="mail.asp">

<p>Nombre:

<input type="text" name="nom">

</p>

<p>Empresa:

<input type="text" name="emp">

</p>

<p>Sugerencias:

<textarea name="sug" cols="35"></textarea>

</p>

<p>

<input type="submit" name="Submit" value="Enviar">

<input type="reset" name="Submit2" value="Limpiar">

</p>

</form>

</body>

</html>

codigo en Asp




<%

'Creación de variables para almacenar los campos del formulario



Nombre= Request.Form("nom")

Empresa= Request.Form("emp")

Sugerencias= Request.Form("sug")



strTo = "direccion@tudominio.com" ' Esta es una dirección que corresponda a

nuestro servidor

strSubject = "Envio de sugerencias de: " & Nombre



strBody = "<html><body>"

strBody = strBody & "Este es un mensaje generado por el formulario:" &

"<br><br>"

strBody = strBody & "Nombre: "& Nombre &"<br>"

strBody = strBody & "Empresa: "& Empresa &"<br>"

strBody = strBody & "Sugerencias: "& Sugerencias &"<br>"

strBody = strBody & "</body></html>"



Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Creación del objeto



objCDOMail.From = "direccion@tudominio.com" 'No hay problema en que sea la

misma que la anterior.

objCDOMail.To = strTo

objCDOMail.Subject = strSubject



objCDOMail.BodyFormat=0 'Estas dos línes

objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje



objCDOMail.Body = strBody

objCDOMail.Send 'Envía el mail

Set objCDOMail = Nothing

Response.redirect "gracias.html"

' O bien podemos ahorrar una página y escribir algo como

' Response.write "Gracias por enviarnos sus sugerencias"

%>

code De Webtaller.com

Manadar Datos Por Mail Asp

Mas Articulos