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="<P>"
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 + "<B>" + name + "</B>: " + Request.Form(name) + "<BR>"
Next
cuerpo2="</P><P><B>PEDIDO:</B></P>"
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><P>" + cuerpo + "</P><P>" + cuerpo2 + "</P></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
