Formulario Flash + ASP

[sanntanna]

Galera estou tendo dificuldades com esse form. Alguém poderia ver o que há de errado?

Flash

/* Criamos uma instancia para a Classe LoadVars */

var objLV:LoadVars = new LoadVars();

var PaginasEnvio:Array = new Array("enviaMail.php", "enviaMailCdonts.asp", "enviaMailAspmail.asp", "enviaMailAspEmail.asp", "enviaMailCDOSYS.asp");

//tipo de envio, 1 para php - 2 para asp cdonts - 3 para aspmail - 4 para Persits AspEmail - 5 para Asp CDOSYS

formaEscolhida = 5;

/* Ao clicar do botão enviar */

enviar_btn.onPress = function() {

/* Verifica se preencheu o campo nome */

if (nome_txt.text == "") {

/* Mostra a mensagem de erro */

status_txt.text = "Preencha o campo Nome corretamente";

/* Verifica se preencheu o campo email */

} else if (email_txt.text == "") {

/* Mostra a mensagem de erro */

status_txt.text = "Preencha o campo E-mail corretamente";

} else if ((email_txt.text.indexOf("@") == -1 || email_txt.text.indexOf(".") == -1)) {

/* Mostra a mensagem de erro */

status_txt.text = "E-mail inválido";

/* Verifica se selecionou a opção sim ou opção não do RadioButton */

} else if (sim.selected == false && não.selected == false) {

/* Mostra a mensagem de erro */

status_txt.text = "Selecione Sim ou Não";

/* Se tudo estiver ok */

} else {

//coloca as variaveis no loadVars

objLV.formNome = formNome;

objLV.formEndereco = formEndereco;

objLV.formCidade = formCidade;

objLV.formTel = formTel;

objLV.formCel = formCel;

objLV.formEmail = formEmail;

objLV.formMsg = formMsg;

//newsletter, radiobutton

objLV.formNews = formNews.selectedData;

/* Avisa que está mandando o E-mail */

status_txt.text = "Enviando mensagem";

/* Enviamos as variáveis e carregamos a mensagem que vai vir do PHP */

objLV.sendAndLoad(PaginasEnvio[formaEscolhida-1],objLV,"POST");

}

};

objLV.onLoad = function(sucess:Boolean) {

{

/* Se carregou tudo certinho */

if (sucess) {

/* Se deu tudo ok no PHP */

retorno = this.retorno;

/* Chamamos a função limpa */

limpa();

} else {

/* Mostra mensagem de erro */

retorno = "Erro ao enviar E-mail";

}

};

};

/* Função responsável por limpar os campos do formulário */

function limpa() {

/* Apagamos os campos de texto */

nome_txt.text = "";

email_txt.text = "";

end_txt.text = "";

cid_txt.text = "";

tel_txt.text = "";

tel_txt.text = "";

cel_txt.text = "";

msg_txt.text = "";

}

|||||||||||||||||||||||||||||||||||||||

ASP

<%

nome=request.Form("formNome")

endereco=request.Form("formEndereco")

email=request.Form("formEmail")

cidade=request.Form("formCidade")

cep=request.Form("formCep")

phone=request.Form("formPhone")

cel=request.Form("formCel")

email=request.Form("formEmail")

mensagem=request.Form("formMsg")

news=request.Form("formNews")

'suas informações aqui

seunome="Anderson"

seuemail="a.sanntanna@gmail.com"

suasenha = "12345"

Texto="Olá, você recebeu um contato através do site do Grupo Microsom.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<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") = "mail-fwd"

'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") = seuemail

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO

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

'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

%>

Obrigado

[sanntanna]

ninguém?

[Eduardo Godoy]

Eu uso esse, funciona bem.

No botão enviar coloque esse código:

on (release, keyPress "<Enter>") {

if (nome eq "") {

_root.msgerro._visible = 1;

_root.msgerro.erro = "Nome";

selection.setFocus("nome");

} else if (email eq "") {

_root.msgerro._visible = 1;

_root.msgerro.erro = "e-mail";

Selection.setFocus("email");

} else if (prefixo eq "") {

_root.msgerro._visible = 1;

_root.msgerro.erro = "DDD";

Selection.setFocus("prefixo");

} else if (telefone eq "") {

_root.msgerro._visible = 1;

_root.msgerro.erro = "Telefone";

Selection.setFocus("telefone");

} else if (assunto eq "") {

_root.msgerro._visible = 1;

_root.msgerro.erro = "Assunto";

Selection.setFocus("assunto");

} else if (mensagem eq "") {

_root.msgerro._visible = 1;

_root.msgerro.erro = "Mensagem";

Selection.setFocus("mensagem");

} else {

_root.msgerro._visible = 0;

loadVariablesNum("aspmail.asp", 0, "POST");

gotoAndStop(52);

}

}

O arquivo ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

'First lets Dim all the variables we need

Dim MyNome

Dim MyEmail

Dim MyPrefixo

Dim MyTelefone

Dim MyAssunto

Dim MyMessage

Dim MyBody

MyNome = Request.Form("nome")

MyEmail = Request.Form("email")

MyPrefixo = Request.Form("prefixo")

MyTelefone = Request.Form("telefone")

MyAssunto = Request.Form("Assunto")

MyMessage = Request.Form("mensagem")

MyBody = MyBody & "Nome: "& MyNome & vbcrlf

MyBody = MyBody & "Email: "& MyEmail & vbcrlf

MyBody = MyBody & "Prefixo: "& MyPrefixo & vbcrlf

MyBody = MyBody & "Telefone: "& MyTelefone & vbcrlf

MyBody = MyBody & "Assunto: "& MyAssunto & vbcrlf

MyBody = MyBody & "Mensagem: "& MyMessage & vbcrlf & vbcrlf

Set MyMail = CreateObject("CDO.Message")

MyMail.From = "webmaster@vhtelecon.com.br"

MyMail.To = "webdesigner@vhtelecon.com.br"

MyMail.Subject = "Formulário VH Telecon"

MyMail.TextBody = MyBody

MyMail.Send

Set MyMail= nothing

Response.Write("Email enviado com sucesso!")

%>

IMPORTANTE: SALVE O ARQUIVO ASP COM O NOME DE "aspmail.asp" (sem aspas) E COLOQUE-O DENTRO DA MESMA PASTA ONDE ESTÁ O ARQUIVO DO FORMULÁRIO.

OBS: Para testar, exporte o SWF para HTML e teste no seu navegador.

Qualquer dúvida entre em contato

falou!!!

Editado Setembro 5, 2008 por Eduardo Godoy