Hola,
Tengo un problemilla que llevo tiempo arrastrando, les comento:
Tengo contratado un hosting con una empresa americana, y tengo un codigo de asp que funciona perfecto en mi ordenador, pero en cuando lanzo ese codigo en mi web en su hosting me sale el siguiente error:
CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/includes/funciones.asp, line 168
El codigo es el siguiente:
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtpout.secureserver.net"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="secret"
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = ToMail
ObjSendMail.Subject = Subject
ObjSendMail.From = FromMail & "(" & FromName & ")"
' we are sending a text email.. simply switch the comments around to send an html email instead
ObjSendMail.HTMLBody = Body
'ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
Set ObjSendMail = Nothing
No veo nada raro en el código, me podrián ayudar por favor!!!! es urgente.