Problema al cargar archivo

[karmish]

Saludos queridos amigos aqui estoy denuvo con un pequeño problema.
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:

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

Sinceramente no se que podria ser, ya que la carpeta esta echa, todo lo demas funciona exepto el almacenamiento del archivo.