Flash +ASP

[MLMDesigner]

ai Galera to com esse formulario aqui e ele não ta enviando o e-mail alguém poderia me ajudar?

<%

'Envio de email Flash + Linguagens

'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com)

'Scripts web sem autoria de Weverton Naves

'Flash com autoria de Weverton Naves

'pegar variaveis

nome=request.Form("formNome")

email=request.Form("formEmail")

assunto=request.Form("formAssunto")

mensagem=request.Form("formMsg")

'suas informações aqui

seunome="XXXXXXXXXXXX"

seuemail="XXXXXXXXXXXXXXXXXXXXXXXXXX"

suasenha = "XXXXXXXXXXXXXXXXXX"

Texto="Olá, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: "&mensagem

Dim objCDOSYSMail

Dim objCDOSYSCon

'CRIA A INSTÂNCIA COM O OBJETO CDOSYS

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.XXXXXXXXXXXXXX.com.br"

'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'PORTA DO CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'ATIVAR RECURSO DE SMTP AUTENTICADO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'USUÁRIO PARA SMTP AUTENTICADO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = XXXXXXXXXXXXXXXXXXX

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = XXXXXXXXXXXXXXXXX

'TEMPO DE TIMEOUT (EM SEGUNDOS)

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

'NOME DO REMETENTE, E-MAIL DO REMETENTE

objCDOSYSMail.From = nome&" <"&email&">"

'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO

objCDOSYSMail.To = seunome&" <"&seuemail&">"

'ASSUNTO DA MENSAGEM

objCDOSYSMail.Subject = assunto

'CONTEÚDO DA MENSAGEM

'objCDOSYSMail.TextBody = "Teste do componente CDOSYS"

'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody

objCDOSYSMail.HtmlBody = Texto

on error resume next

'ENVIA A MENSAGEM

objCDOSYSMail.Send

'DESTRÓI OS OBJETOS

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

if err.number <> 0 then

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

else

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

end if

%>

Editado Dezembro 10, 2008 por MLMDesigner

[Raphael Machado]

Cara se você quer realmente uma resposta se seu formulário ASP está correto,

Post na área certa, ASP

Abraço!

[MLMDesigner]

OK Obrigado já esta lá

[bareta]

repetido.... fechando.