mail con allegato

[crescenzo]

salve a tutti
premetto che ho fatto un pò di ricerca e continuo a farne
il problema come da titolo
devo inviare una mail con allegato
dove l'allegato risiede già sul server

x adesso ho provato a fare una cosa del genere ma nn vuole sapere di fungere
i dati me le invia ma l'allegato neanche l'ombra

<%

on error resume next

if err.number>0 then
                    response.write "out=Si è verificato un errore nell'invio dei dati tramite posta 

elettronica.&"
                else
                    response.write "out=Richiesta inoltrata correttamente.&"
                end if


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo,fileAllegato,cartella,  browserSistemaOperativo

    
    
invioA =  "info@mail.it"

    '* voce da modificare con un indirizzo email che funga da mittente: 
            
invioDa =  "info@mail.it"

fileAllegato = "prova.pdf"

nomeDominio                 = Request.ServerVariables("HTTP_HOST")
indirizzoIp                    = Request.ServerVariables("REMOTE_ADDR") 
modulo                        = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo        = Request.ServerVariables("HTTP_USER_AGENT")

    '*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"

<font face=verdana size=2>[b]Nome :[/b] " & Request.Form("nome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Cognome :[/b] " & Request.Form("cognome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Telefono :[/b] " & Request.Form("tel") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"[b]E-mail : [/b]" & Request.Form("email") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"[b]Città : [/b]" & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
[b]Richiesta :[/b] " & Request.Form("testo") & "</font>
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
[b]Allegato :[/b] " & Request.Form("CV") & "</font>
"





n =Request.Form("nome")
r =Request.Form("cognome")
    '* creo gli oggetti cdosys sul server e li gestisco
    
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort

Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Richiesta Informazioni dal sito " & nomeDominio
   .HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & 

indirizzoIp & "  . " & vbCrLf & corpoMessaggio & ""

   .AddAttachment (cartella & "\" & fileAllegato)

   .Send
End With
%> 

dove il file prova pdf sta nella stessa cartella della pag asp



dove sbaglio stavolta?

grazie x la Vs attenzione