aspemail conection refused

Paharillo · #1 (**permalink**) 06/04/2005, 07:56

hola! tengo un problemilla. resulta que tengo un carro de la compra y el formulario y lo demas lo rellena bien pero le doy a enviar y se supone que envia un email y me dice que conection refused. he estado buscando algo por el foro pero no he encontrado nada q me pueda servir. He llamado al servidor web para saber si se puede el aspemail y me han dicho que si. weno pos ahi va un poco del código:
<%
cuerpo=""

function FormFieldList()
dim str, i, name
'Build an array of form field names ordered as they
'were received.
str = ""
for i = 1 to Request.Form.Count
for each name in Request.Form
if Left(name, 1) <> "_" and Left(name, 2) <> "re" and Left(name, 2) <> "pr" and Left(name, 2) <> "ca" and Request.Form(name) is Request.Form(i) then
if str <> "" then
str = str & ","
end if
str = str & name
exit for
end if
next
next
FormFieldList = Split(str, ",")
end function

fieldOrder = FormFieldList()

For each name in fieldOrder
cuerpo = cuerpo + "" + name + ": " + Request.Form(name) + " "
Next

cuerpo2="PEDIDO:"
cuerpo2=cuerpo2+ "<TABLE BORDER=1><TR><TD>Referencia</TD><TD>Cantidad</TD><TD>Precio</TD></TR>"
for j = 1 to Request.Form("tot")
cuerpo2=cuerpo2 & "<TR><TD>" & Request.Form("referencia"&j) & "</TD>" & "<TD>" & Request.Form("cantidad"&j) & "</TD>" & "<TD>" & Request.Form("precio"&j) & "</TD></TR>"
Next
cuerpo2=cuerpo2+ "</TABLE>"

' Envio de correo usando el ASPemail

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.egamaster.com"
'Mail.Host = "mail.esolutions-interactive.com"

Mail.From = "[email protected]"
'Mail.From = "[email protected]"
Mail.FromName = "ORDEN DE COMPRA ONLINE"

Mail.AddAddress "[email protected]"
'Mail.AddAddress "[email protected]"

Mail.Subject = "ORDEN DE COMPRA ONLINE"
Mail.Body = "<HTML><BODY BGCOLOR=#FFFFFF>" + cuerpo + "" + cuerpo2 + "</BODY></HTML>"
Mail.IsHTML = True

On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If

%>

<HTML>
....
Weno un saludo

Paharillo · #2 (**permalink**) 06/04/2005, 08:27

Yas ta
Hay que cambiar el Mail.Host = "mail.egamaster.com"
por Mail.Host = "smtp.egamaster.com"
Un minipunto pa mi