Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/02/2005, 20:02
ccardonas
 
Fecha de Ingreso: marzo-2004
Mensajes: 24
Antigüedad: 21 años, 1 mes
Puntos: 0
Pregunta Ayuda Urgente Con Este Error

QUE SIGNIFICA ESTE ERROR, LES ANEXO EL CODIGO DEL ARCHIVO QUE UTILIZ0 PARA QUE ALGUIEN ME AYUDE POR FAVOR

ERROR:
_________
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/consultoria/enviar.asp, line 15

800401f3
_______________


CODIGO ARCHIVO:
________________

<%
casilla_destino = "[email protected]"
servidor = "mail.ccardonas.com"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Formulario: </STRONG></font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1"">&nbsp;</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Nombre: </STRONG> " & Request("nombre") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>E-mail: </STRONG> " & Request("mail") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Teléfono: </STRONG> " & Request("telefono") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>País: </STRONG> " & Request("pais") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Ciudad: </STRONG> " & Request("ciudad") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Asunto: </STRONG> " & Request("asunto") & "</font></p>"
varBody = varBody & "<p style=""margin-top: 0; margin-bottom: 0""><font face=""Verdana"" size=""1""><STRONG>Mensaje: </STRONG> " & Request("mensaje") & "</font></p>"


Set Msg = Server.CreateObject("JMail.Message")

Msg.Logging = True
Msg.Silent = True

Msg.From = casilla_destino
Msg.AddRecipient casilla_destino
Msg.Subject = "Formulario"
Msg.HTMLBody = varBody

if not Msg.Send(servidor) then
Error = True
else
Error = False
end if
%>