Página .htm donde esta el formulario:
Código:
Página Asp que envia:<!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>
Código:
En la página de envio da igual donde se ponga el asp entre las etiquetas <head></head><body></body>??<% 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>
Gracias de mano a todos por su ayuda.