Tengo una pagina que es "Recomendar sitio a un amigo". En esta pagina se ingresa un mail para la persona que se le quiere mandar la recomendacion y un mensaje adjunto. El servidor utiliza AspEmail, y me tira el error 503. Alguien puede decirme que esta pasando?
Muchas Gracias!!
<%
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = "mail.okregalos.com"
Mail.From = "[email protected]"
Mail.FromName = "OkRegalos.com"
Mail.AddAddress Request("email")
Mail.Subject = "Sitio Recomendado"
Mail.IsHTML = True
strHTML = strHTML & "<html><head></head><body bgcolor=""#00CCFF"" text=""#000000"">"
strHTML = strHTML & "<table width=""87%"" border=""0"" align=""center""><tr> <td><div align=""2center""><a href=""www.okregalos.com""> "
strHTML = strHTML & "<img src=""img src=""http://www.okregalos.com/graficos/mainlogook.gif"" width=""260"" height=""78"" border=""0"">"
strHTML = strHTML & "</a></div></td></tr><tr><td><div align=""center""><br> </div></td></tr><tr><td>"
strHTML = strHTML & "<div align=""center""><b>U n amigo conoci&oacute; el sitio www.okregalos.com, "
strHTML = strHTML & "le pareci&oacute; interesante y quiere que lo conoscas.<br>"
strHTML = strHTML & "Tambi&eacute;n te dej&oacute; el siguiente mensaje:<br>" & Request("mensaje")
strHTML = strHTML & "</b></div></td></tr><tr><td>&nbsp;</td></tr></table></body></html>"
Mail.Body = strHTML
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
Response.Redirect "http://www.okregalos.com/Castellano/registracion/recomendar2.asp"
End If
Set Mail = Nothing
%>
