Problemas con formulario de correo ASP
Hola, tengo problemas con un formulario de correo escrito en ASP, el dominio en cuestión está albergado en un servidor Linux Cobalt RaQ4i con software Chilisoft (última versión y servidores adicionales instalados, entre ellos el de correo), en concreto me dice que no encuentra servidor mail (y está bien)
El archivo ASP es un código común que se puede bajar fácilmente desde cualquier página especializada, os paso parte de el para que le echeis una mirada.
----Parte del código----
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.From = "[email protected]"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.IsHTML = True
Mail.Body = strBody
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If
'Destruimos el objeto con aspmail
Set Mail = Nothing
%>
---Fin parte del código---
Tal vez sea un error de sintaxis?, es decir ese código funciona en servidores Windows, es posible que haya que cambiar algo en servidores Linux?
Gracias de antemano por vuestra ayuda
El archivo ASP es un código común que se puede bajar fácilmente desde cualquier página especializada, os paso parte de el para que le echeis una mirada.
----Parte del código----
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.From = "[email protected]"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.IsHTML = True
Mail.Body = strBody
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If
'Destruimos el objeto con aspmail
Set Mail = Nothing
%>
---Fin parte del código---
Tal vez sea un error de sintaxis?, es decir ese código funciona en servidores Windows, es posible que haya que cambiar algo en servidores Linux?
Gracias de antemano por vuestra ayuda
