Email con ASP

[pabje]

Hola a todos

Estoy realizando un formulario que al hacer clic en el botón enviar se envia el mensaje a un correo directamente. Este codigo lo hago dese el lado del servidor.
El problema es me que da un error y no me envia nada.

El error es el siguiente

Objeto de servidor error 'ASP 0177: 800401f3'

Server.CreateObject

/ v / i / d / vidamisiones / Formulario-email.asp, Línea 44

800401f3

Codigo

<%
if request.form="" then
'no recibo formulario, entonce lo muestro
%>

<form NAME="contacto" action= "formulario-email.asp" method="POST">
<table align="center" widtn="450" hight="337" border="1" bordercolor="#ff8800" >
<tr>
<td>Nombre:</td>
<td><input type="text" name="nombre" size="40"></td>
</tr>
<tr>
<td>Email:</td>
<td><input type="text" name="email" size="40"></td>
</tr>
<tr>
<td>Asunto:</td>
<td><input type="text" name="asunto" size="40"></td>
</tr>
<tr>
<td>Comentario:</td>
<td><textarea cols="40" rows="15" name="comentario"></textarea></td>
</tr>
</table>
<p align="center">
<input type="submit" value="Enviar">
<input type="reset" value="Restablecer">
</p>
</FORM><%
else

'si que recibo un formulario ,entonces lo trato
'recojo los datos
nombre=request.form("nombre")
email=request.form("email")
asunto=request.form("asunto")
comentario=request.form("comentario")
'compongo el cuerpo del mensaje
cuerpo="Formulario recibido" & VBNEWLINE & VBNEWLINE
cuerpo= cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo= cuerpo & "Email:" & email
cuerpo= cuerpo & "Asunto:" & asunto
cuerpo= cuerpo & "Comentario:" & comentario

'mando el correo
'creo el objeto correo
set mail = server.createObject("Persits.MailSender")
'configuro el mensaje
'senalo el servidor de salida para enviar el mensaje
mail.host="mail.yahoo.com.ar"
'indico la direccion del correo del remitente
mail.from="[email protected]"
'indico la direccion del correo del destinatario
mail.addAddress "[email protected]"
'indico elcuerpo del mensaje
mail.body=cuerpo

'lo envio
'aseguro que no se presenten errores en la pagina si se producen
On error Resume next
mail.send
if Err >< 0 then
response.write "Error no se ha podido completar la operacion"
else
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente." end if
%>

[Myakire]

No tienes instalado el AspEmail en tu servidor, si quieres una opción gratuita puedes probar el dundas

[Valery-Net]

También puedes usar CDO o Jmail, creo que en las FAQs del foro de ASP he visto varios códigos usando ambos activex.

[ejconan]

Yo antes usaba aspemail pero el CDO va muy bien, yo lo hago todo con eso y además hay muchisimas faqs por aqui