Buenas a todos, estoy intentando haciendo un simple formulario de envio de correo con AspEmail, y no me funciona, si alguien me pudiera echar un ojo al código y decirme que tengo mal se lo agradecería ya que no tengo ni puta idea de pq no funciona,lei como 4 tutoriales, entre ellos uno que encontre por aquí en un post y en todos esta igual, y me falla siempre. A veces me saltaba el mensaje de error pero ahora no me enseña ni la página de error.
Página .htm donde esta el formulario:
Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Envio de correo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<center>
<FORM action="enviomail.asp" method="post">
Nombre: <input name="Name" type="text" size="50" maxlength="100"><br><br>
Email: <input name="Email" type="text" size="50" maxlength="100"><br><br>
Consulta:<BR>
<textarea name="Comments" cols="50" rows="5"></textarea><br><br>
<input name="btnEnviar" type="submit" value="Enviar">
<input name="btnLimpiar" type="reset" value="Limpiar">
</FORM>
</center>
</body>
</html>
Página Asp que envia:
Código:
<%
Dim strEmail, strName, strComments, Mail
strEmail = request.form("Email")
strName = request.form("Name")
strComments = request.form("Comments")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "Mail.dominio.com"
'Mail.From = strEmail
Mail.From = "[email protected]"
Mail.AddAddress "[email protected]"
Mail.Subject = "Consulta desde la Web"
Mail.Body = "Email: " & strEmail & vbCrLf & "Name: " & strName & vbCrLf & "Comments: " & vbCrLf & strComments
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN Response.Write "Esto sigue sin funcionar" & Err.Description
END IF
%>
<HTML><HEAD>
<TITLE>PRUEBA ASP EMAIL</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>
En la página de envio da igual donde se ponga el asp entre las etiquetas <head></head><body></body>??
Gracias de mano a todos por su ayuda.