Buenas tardes,
He estado mirando en el buscador del foro pero no he conseguido la solución.
La empresa que me creó la web ha cerrado y me ha dejado tirado con un problema.
En mi web tengo un formulario y si NO adjuntan un archivo los datos me llegan a mi correo correctamente y en la web sale el mensaje de que ha sido enviado correctamente.
Pero SI adjuntan un archivo no me llega el correo y en la web sale el mensaje de error "500 - Internal server error. There is a problem with the resource you are looking for, and it cannot be displayed"
Se que tengo que subir los datos a mi servidor smpt y de hay me lo envía a mi correo, pero sin el adjunto lo hace pero con el adjunto no. No entiendo mucho de programación y no se que es lo que pasa. Pongo el código a continuación a ver si alguien me puede ayudar.
Ahhh antes tenía exactamente lo mismo en un dominio web, al cambiarlo a otro dominio web, es cuando a empezado el error. Igual es que en el nuevo dominio no hay alguna carpeta donde se guarda el archivo, pero he mirado y remirado y creo tener todas las carpetas y subcarpetas igual que en el anterior dominio
<!-- #INCLUDE FILE="ADOVBS.INC" -->
<%
'SUBO EL ARCHIVO
set upload = server.createobject("persits.upload")
upload.setmaxsize 500000, true
upload.save
set archivo = upload.files("archivo")
If Not archivo Is Nothing Then
nombre = Split(archivo.OriginalFileName, ".")
extension = nombre(ubound(nombre))
destino = "COLABORADOR-"&date()&"-"&time()&"."&extension
destino = replace(destino, "/", "-")
destino = replace(destino, ":", "-")
archivo.saveas server.MapPath(".") & "\"&destino
destinov = destino
destino = Server.MapPath(destino)
else
fileadjunto = "no"
end if
'ENVIO EL MAIL
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "Formulario Colaborador"
objMessage.Sender = "
[email protected]"
objMessage.From = "
[email protected]"
objMessage.To = "
[email protected]"
objMessage.HTMLBody = objMessage.HTMLBody & "-------------------------------------------<br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1>Propuesta de colaborador</font><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "-------------------------------------------<br><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1><b>Diferentes combinaciones lingüísticas que puede realizar y la tarifa para cada una de ellas en euros por palabra origen. (recuerde que somos una agencia de traducciones).</b></font><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1>"& Replace(upload.form("uno"),chr(13) & chr(10),"<br>") & "</font><br><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1><b>Especialidades que puede traducir (médica, jurada, informática, jurídica, publicitaria, ingeniería, química, etc.)</b><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1>"& Replace(upload.form("siete"),chr(13) & chr(10),"<br>") & "</font><br><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1><b>¿Tiene usted, o puede facilitarnos sus referencias?</b><br>"&vbCrLf
objMessage.HTMLBody = objMessage.HTMLBody & "<font face=verdana size=1>"& Replace(upload.form("ocho"),chr(13) & chr(10),"<br>") & "</font><br><br>"&vbCrLf
if fileadjunto <> "no" then
objMessage.AddAttachment destino
end if
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.com"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "zzzzz"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
'ELIMINO EL ARCHIVO
Dim ObjetoFSO
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
if ObjetoFSO.FileExists(server.MapPath(".")&"\"&desti nov) then
ObjetoFSO.deletefile(server.MapPath(".")&"\"&desti nov)
end if
response.Redirect("colabora.asp?enviado=1&colabora r=si")
%>