Form em ASPEmail e Flash

Olá!!!

Estou com um problema para envio de formulário em flash e ASPEmail usando o servidor LOCAWEB.

Meu plano tem suporte a ASPEmail.

O código do ASPEmail está abaixo...tem algum erro?!?!?!

Quando clico em enviar ele envia mas não chega nada no meu e-mail...qual é o problema?!?!?!Alguém sabe???

O arquivo completo deste form em flash e ASPEmail está no link:http://wevertonn.wordpress.com/2008/03/16/envio-de-formulario-flash-phpasp-cdontsaspemail-aspmail/

CODE
nome=request.Form("formNome")
email=request.Form("formEAspEmail")

assunto=request.Form("formAssunto")

sexo=request.Form("formSexo")

interesses=request.Form("formInteresses")

news=request.Form("formNews")

mensagem=request.Form("formMsg")

'suas informaçoes aqui

seuemail="f.fazolin@hotmail.com"

'digite aqui o seu smtp server

strHost = "smtp2.locaweb.com.br"

'cria objeto

Dim AspEmail

Set AspEmail = Server.CreateObject("Persits.MailSender")

'colocando o smpt

AspEmail.Host = strHost

AspEmail.From = email 'de quem envia

AspEmail.FromName = nome 'nome de quem envia

AspEmail.AddAddress seuemail

AspEmail.Subject = assunto

' texto da mensagem

 AspEmail.Body = "Olá, você recebeu uma mensagem do flash.<br>Nome: "&nome&"<br>EAspEmail: "&EAspEmail&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem

 

 

 

 on error resume next ' pega erros

 AspEmail.Send ' envia mensagem

 if err.number <> 0 then 'se ocorreu erro

 response.Write("retorno=Erro ao enviar.")

 else

 response.Write("retorno=Enviado com sucesso.")

 end If

 

 Set AspEmail = Nothing 'finaliza o objeto'

%>

Obrigado pela ajuda!...