Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/01/2013, 13:10
jordijbs
 
Fecha de Ingreso: enero-2013
Mensajes: 1
Antigüedad: 12 años, 2 meses
Puntos: 0
No me adjunta el archivo en el formulario

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")
%>

Última edición por jordijbs; 26/01/2013 a las 13:37