Cdonts Com Anexo

[Guest --Felipe --]

Fala pessoal! O sistema abaixo pega um arquivo do formulario e faz Upload para o servidor e depois tenta anexa-lo

ele não está dando erro algum, porém email tmb não esta chegando

alguém poderia me ajuda?

<%

Dim objUpload, arquivox

set objUpload = server.CreateObject("Persits.Upload")

objUpload.SetMaxSize 150000, true

objUpload.Save Server.MapPath("/arquivo")

For Each File in objUpload.Files

arquivox=File.Path

Next

'File.ExtractFileName

set objUpload=nothing

'criação do objeto de email

set msg=Server.CreateObject("CDONTS.NewMail")

msg.From=email 'email do remetente

msg.To="jffrod@uol.com.br" 'email do destinario

msg.Subject="Currículo" 'assunto

msg.BCC="felipe_flora@yahoo.com.br"

msg.Body="Aqui vem o currículo"

msg.AttachFile arquivox

msg.Send

set msg=nothing

response.write("SUCESSO!!!!")

%>

[bareta]

http://www.angelo.com.br/util40.html