Tengo un formulario que carga un archivo, el problema es que el codigo que sirve para enviarlo me dice que no detecta la ruta.
el codigo es
Código:
Sinceramente no se que podria ser, ya que la carpeta esta echa, todo lo demas funciona exepto el almacenamiento del archivo. <%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "/uploads"
Set File = Upload.Files("file")
If Not File Is Nothing Then
archivo = File.FileName
sTo = "[email protected]"
' sCC = "[email protected]"
sFrom = Upload.Form("Editbox4")
sMailServer = "127.0.0.1"
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.CC = sCC
.Subject = "Recepcion de Relatos e historias sobre la vida y la muerte"
.HTMLBody = "<b>Nombre: </b>"&Upload.Form("Editbox3")&"<br><b>Apellido: </b>"&Upload.Form("Editbox1")&"<br><b>E-mail :</b>"&Upload.Form("Editbox4")&"<br><b>Titulo del relato: </b>"&Upload.Form("Editbox2")&""
.AddAttachment Server.MapPath("/uploads/"&archivo&"")
objMail.Send
End With

