<%
'creo el objeto correo
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
mail.host = "pena.com.mx"
'indico la dirección de correo del remitente
mail.from = request.form("correo")
'indico la dirección del destinatario del mensaje
mail.addAddress "fernandopena@pena.com.mx"
nombre = request.form("nombre")
organizacion = request.form("organizacion")
calle_num = request.form("calle_num")
colonia = request.form("colonia")
ciudad = request.form("ciudad")
estado = request.form("estado")
cp = request.form("cp")
pais = request.form("pais")
teloficina = request.Form("teloficina")
telfax = request.form("telfax")
correo = request.form("correo")
url = request.form("url")
cometario = request.form("comentario")
'compongo el cuerpo del mensaje
cuerpo = "Formulario recibido" & VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Organizacion: " & organizacion & VBNEWLINE
cuerpo = cuerpo & "Calle y/o Numero: " & calle_num & VBNEWLINE
cuerpo = cuerpo & "Colonia: " & colonia & VBNEWLINE
cuerpo = cuerpo & "Ciudad: " & ciudad & VBNEWLINE
cuerpo = cuerpo & "Estado: " & estado & VBNEWLINE
cuerpo = cuerpo & "Codigo Postal: " & cp & VBNEWLINE
cuerpo = cuerpo & "Pais: " & pais & VBNEWLINE
cuerpo = cuerpo & "Teléfono de la Oficina: " & teloficina & VBNEWLINE
cuerpo = cuerpo & "Tel/FAX: " & telfax & VBNEWLINE
cuerpo = cuerpo & "Correo: " & correo & VBNEWLINE
cuerpo = cuerpo & "Dirección URL: " & url & VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Comentarios: " & comentario
'mando el correo...
'indico el cuerpo del mensaje
mail.body = cuerpo
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
mail.send
if Err ><0 then
response.write "Error, no se ha podido completar la operación"
else
Request.Form("nombre")
'Declaro Saludo de despedida del visitante
saludo = "Gracias por escribirnos:" & nombre & ", el formulario se ha enviado correctamente"
'Muestro saludo
response.write saludo end if
%>
.:GRACIAS POR ESCRIBIRNOS:.