cambio de ASP de CDONTS a AspEmail

Citar

Escrito el 21 Mar 2006 12:47 pm

Hola a todos , estoy intentando hacer el formulario de contacto de LoadVars de tutorial que hay en esta web, llame a arsys que es donde tengo alojada la web y me dijeron que usan AspEmail y no CDONTS que es como esta hecho el tutorial, quisiera que me ayudaran a cambiar las líneas de código del ASP ya que cuando le doy al boton de enviar me da error.
Este es el código del tutorial de CDONTS:

Código :

<%
Set oMail = Server.CreateObject ("CDONTS.NewMail")

oMail.BodyFormat = 0
oMail.MailFormat = 0

Remitente = Request.Form("email")
Destino = "[email protected]" 'Email de destino

Asunto = Request.Form("asunto")
Cuerpo = Request.Form("cuerpo")

oMail.Send Remitente, Destino, Asunto, Cuerpo

Set oMail = Nothing

%>
estado=Mensaje enviado

Y lo cambie por:

Código :

<%
Set Mail = Server.CreateObject ("Persits.MailSender")
mail.host = "mail.midominio.com"

mail.from = Request.Form("email")
mail.addAddress "[email protected]"

asunto = Request.Form("asunto")

mail.body = Request.Form("cuerpo")
mail.send
%>
estado=Mensaje enviado

Por LinosInk

36 de clabLevel

Genero:Masculino

Envíale un mensaje privado

Citar

Escrito el 23 Mar 2006 10:04 am

Hola, donde pones "mail.midominio.com" , debes poner "smtp.tudominio.com"

;

Por clydde

79 de clabLevel

Genero:Masculino

Envíale un mensaje privado

Citar

Escrito el 23 Mar 2006 11:23 am

Hola clydde, gracias por la respuesta. Ya me funciona y era por eso, ayer mismo había probado poniendo smtp, pero tenía el código en el head en vez de en el body y no me había funcionado.

Dejo el código por si a alguien lo necesitara, es un formulario simple que pide nombre, mail y consulta.

Págia .htm del 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="envio.asp" method="post">
Nombre:&nbsp;&nbsp;<input name="Nombre" type="text" size="50" maxlength="100"><br><br>
Email:&nbsp;&nbsp;<input name="Email" type="text" size="50" maxlength="100"><br><br>
Consulta:<BR>
<textarea name="Consulta" cols="50" rows="5"></textarea><br><br>

<input name="btnEnviar" type="submit" value="Enviar">&nbsp;&nbsp;
<input name="btnLimpiar" type="reset" value="Limpiar">
</FORM>
</center>
</body>
</html>

Págia .asp que envia los datos al mail

Código :

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Envio de AspEmail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim strEmail, strNombre, strConsulta, Mail
strEmail = request.form("Email")
strNombre = request.form("Nombre")
strConsulta = request.form("Consulta")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.midominio.com"
Mail.From = "[email protected]"
Mail.AddAddress "[email protected]"
Mail.Subject = "Consulta desde la Web"
Mail.Body = "Email: " & strEmail & vbCrLf & "Nombre: " & strNombre & vbCrLf & "Consulta: " & vbCrLf & strConsulta
On Error Resume Next
Mail.Send
Set Mail = Nothing
If Err <>0 then
   Response.Write "Fallo en la Conexión" & Err.Description
End if   
%>
</body>
</html>

Por LinosInk

36 de clabLevel

Genero:Masculino

Envíale un mensaje privado

Citar

Escrito el 23 Mar 2006 11:26 am

LinosInk escribió:

Hola clydde, gracias por la respuesta. Ya me funciona y era por eso, ayer mismo había probado poniendo smtp, pero tenía el código en el head en vez de en el body y no me había funcionado.

Dejo el código por si a alguien lo necesitara, es un formulario simple que pide nombre, mail y consulta.

Págia .htm del 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="envio.asp" method="post">
Nombre:&nbsp;&nbsp;<input name="Nombre" type="text" size="50" maxlength="100"><br><br>
Email:&nbsp;&nbsp;<input name="Email" type="text" size="50" maxlength="100"><br><br>
Consulta:<BR>
<textarea name="Consulta" cols="50" rows="5"></textarea><br><br>

<input name="btnEnviar" type="submit" value="Enviar">&nbsp;&nbsp;
<input name="btnLimpiar" type="reset" value="Limpiar">
</FORM>
</center>
</body>
</html>

Págia .asp que envia los datos al mail

Código :

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Envio de AspEmail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim strEmail, strNombre, strConsulta, Mail
strEmail = request.form("Email")
strNombre = request.form("Nombre")
strConsulta = request.form("Consulta")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.midominio.com"
Mail.From = "[email protected]"
Mail.AddAddress "[email protected]"
Mail.Subject = "Consulta desde la Web"
Mail.Body = "Email: " & strEmail & vbCrLf & "Nombre: " & strNombre & vbCrLf & "Consulta: " & vbCrLf & strConsulta
On Error Resume Next
Mail.Send
Set Mail = Nothing
If Err <>0 then
   Response.Write "Fallo en la Conexión" & Err.Description
End if   
%>
</body>
</html>

Ahora con el tutorial para mandar un mail con flash/Asp espero que me funcione, pq hasta ahora lo que me fallaba era el Asp y no él flash, que putada esto de ser tan ignorante programando, jejejeje.

Gracias a todos.

Por LinosInk

36 de clabLevel

Genero:Masculino

Envíale un mensaje privado

cambio de ASP de CDONTS a AspEmail

Escribe una respuesta rapida