Problama Con il cdosys

[Marc1982rm]

Salve ho fatto la migrazione di alcuni domini da win2000 a win2003 accorgendomi solo dopo che il cdonts non c'era più e dovevo usare il cdosys...sono riuscito a farlo funzionare anche perchè è molto simile al cdonce, però non riesco ad allegargli i file io faccio cosi:
<%
function InvioEmail(mittente,destinatario,oggetto,testo,all egato)
Set objmail=Server.CreateObject ("CDONTS.Newmail")
objmail.From=mittente
objmail.to=destinatario
objmail.Subject=oggetto
objmail.Body=testo
if allegato<>"" then
objmail.AttachFile(allegato)
end if
objmail.send
end function%>

soltando che quando allego il file mi da il seguente errore:

CDO.Message.1 error '80070002'

The system cannot find the file specified.

/admin/MailingList/invia.asp, line 11


COME SE NON TROVASSE IL FILE...SE IO FACCIO STAPARE LA VARIABILE ALLEGATO QUESTA CONTIENE:
C:\PROVA.TXT


come posso fare

GRazie mille a tutti

[Marc1982rm]

la funzione è questa:

function InvioEmail(mittente,destinatario,oggetto,testo,all egato)
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = mittente
MiaMail.To = destinatario
MiaMail.Subject = oggetto
MiaMail.TextBody = testo
if allegato<>"" then
MiaMail.AddAttachment(allegato)
end if

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
end function


ancora mille grazie