Hola encontre este codigo, pero no llega la información al correo:
Archivo: formu02.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>.:FORMULARIO DE CONTACTO:.Untitled</title>
</head>
<body>
<form action="formu01.asp" method="POST">
Nombre:<input type="Text" name="nombre" size="50" maxlength="200">
<br>
Email:<input type="Text" name="email" size="20" maxlength="200">
<br>
<input type="submit" value="Enviar">
</form>
</body>
</html>
Archivo: formu01.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>.:GRACIAS POR ESCRIBIRNOS:.</title>
</head>
<body>
<%
'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 = "mail.midominio.com"
'indico la dirección de correo del remitente
mail.from = "
[email protected]"
'indico la dirección del destinatario del mensaje
mail.addAddress "
[email protected]"
'Obtengo los datos del formulario
nombre = request.form("nombre")
email = request.form("email")
'compongo el cuerpo del mensaje
cuerpo = "Formulario De Nuestra Página Web"& VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Email: " & email
'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
%>
</body>
</html>
Alguien me podria indicar si hay algun error en este codigo, porque no llegan los mensajes, saludos