motumbo

Estou anexando o codigo fla do formulário , este formulario tá enviando mais naum tá chegando por e-mail. alguem saberia resolver



Este é o codigo bulaxa.asp

<%

Dim meu_email, corpo, iMail, cNome, cEmail, cTelefone, cEmpresa, cComentario

cNome = Request.form("nome")
cEmail = Request.form("email")
cTelefone = Request.form("telefone")
cEmpresa = Request.form("empresa")
meu_email = "suporte@meuemail.com.br"
cComentario = Request.form("comentario")

corpo = "Nome:" & cNome & "<BR>"
corpo = corpo & "E-mail:" & cEmail & "<BR>"
corpo = "Telefone:" & cTelefone & "<BR>"
corpo = corpo & "Empresa:" & cEmpresa & "<BR>"
corpo = corpo & "Comentário:" & cComentario & "<BR>"

Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = "Formulário teste"
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send

Response.write("Alerta="+Server.URLEncode("Formulário Enviado!"))

Set objMail = nothing
%>

-----------------------------------------------------------------------------------------------------

Este é o codigo que tá no fla


System.useCodepage = true;
Selection.setFocus('nome');
nome2.tabIndex = 0;
email2.tabIndex = 1;
telefone2.tabIndex = 2;
empresa2.tabIndex = 3;
comentario2.tabIndex = 4;
function Apagar() {
nome = "";
email = "";
telefone = "";
empresa = "";
comentario = "";
alerta = "";
Selection.setFocus('_root.nome');
}
function EnviaForm() {
if (nome eq '') {
alerta = "Preencha o campo nome!";
Selection.setFocus('nome');
} else if (email eq '' || email.indexOf('@', 0) eq -1 || email.indexOf('.', 0) eq -1) {
alerta = "Insira um e-mail valido!";
Selection.setFocus('email');
} else if (telefone eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('telefone');
} else if (empresa eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('empresa');
} else if (comentario eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('comentario');
} else {
loadVariablesNum("bolaxa.asp", 0, "POST");
alerta = "Enviando...";
}
}

Não estou conseguindo fazer funcionar o meu form em asp e flash. Retorna dizendo que foi enviado mas não recebo nada. Abaixo disponibilizo os códigos do asp e do action script. Me ajudem por favor!!!!

Este é o codigo bulaxa.asp

<%

Dim meu_email, corpo, iMail, cNome, cEmail, cTelefone, cEmpresa, cComentario

cNome = Request.form("nome")
cEmail = Request.form("email")
cTelefone = Request.form("telefone")
cEmpresa = Request.form("empresa")
meu_email = "suporte@meuemail.com.br"
cComentario = Request.form("comentario")

corpo = "Nome:" & cNome & "<BR>"
corpo = corpo & "E-mail:" & cEmail & "<BR>"
corpo = "Telefone:" & cTelefone & "<BR>"
corpo = corpo & "Empresa:" & cEmpresa & "<BR>"
corpo = corpo & "Comentário:" & cComentario & "<BR>"

Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = "Formulário teste"
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send

Response.write("Alerta="+Server.URLEncode("Formulário Enviado!"))

Set objMail = nothing
%>

-----------------------------------------------------------------------------------------------------

Este é o codigo que tá no fla


System.useCodepage = true;
Selection.setFocus('nome');
nome2.tabIndex = 0;
email2.tabIndex = 1;
telefone2.tabIndex = 2;
empresa2.tabIndex = 3;
comentario2.tabIndex = 4;
function Apagar() {
nome = "";
email = "";
telefone = "";
empresa = "";
comentario = "";
alerta = "";
Selection.setFocus('_root.nome');
}
function EnviaForm() {
if (nome eq '') {
alerta = "Preencha o campo nome!";
Selection.setFocus('nome');
} else if (email eq '' || email.indexOf('@', 0) eq -1 || email.indexOf('.', 0) eq -1) {
alerta = "Insira um e-mail valido!";
Selection.setFocus('email');
} else if (telefone eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('telefone');
} else if (empresa eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('empresa');
} else if (comentario eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('comentario');
} else {
loadVariablesNum("bolaxa.asp", 0, "POST");
alerta = "Enviando...";
}
}


Obrigado,
Daniel de Paola
daniel@danieldepaola.com

Não consigo fazer funiconar o meu formulário de flash e asp. Retorna dizendo que foi enviado mas não recebo o email. Abaixo estão os códigos do action script e do asp, quem puder solucioná-lo para mim será de grande ajuda. Obrigado.
Daniel de Paola
de Paola Comunicação Visual
daniel@danieldepaola.com

Este é o codigo bulaxa.asp

<%

Dim meu_email, corpo, iMail, cNome, cEmail, cTelefone, cEmpresa, cComentario

cNome = Request.form("nome")
cEmail = Request.form("email")
cTelefone = Request.form("telefone")
cEmpresa = Request.form("empresa")
meu_email = "suporte@meuemail.com.br"
cComentario = Request.form("comentario")

corpo = "Nome:" & cNome & "<BR>"
corpo = corpo & "E-mail:" & cEmail & "<BR>"
corpo = "Telefone:" & cTelefone & "<BR>"
corpo = corpo & "Empresa:" & cEmpresa & "<BR>"
corpo = corpo & "Comentário:" & cComentario & "<BR>"

Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = "Formulário teste"
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send

Response.write("Alerta="+Server.URLEncode("Formulário Enviado!"))

Set objMail = nothing
%>

-----------------------------------------------------------------------------------------------------

Este é o codigo que tá no fla


System.useCodepage = true;
Selection.setFocus('nome');
nome2.tabIndex = 0;
email2.tabIndex = 1;
telefone2.tabIndex = 2;
empresa2.tabIndex = 3;
comentario2.tabIndex = 4;
function Apagar() {
nome = "";
email = "";
telefone = "";
empresa = "";
comentario = "";
alerta = "";
Selection.setFocus('_root.nome');
}
function EnviaForm() {
if (nome eq '') {
alerta = "Preencha o campo nome!";
Selection.setFocus('nome');
} else if (email eq '' || email.indexOf('@', 0) eq -1 || email.indexOf('.', 0) eq -1) {
alerta = "Insira um e-mail valido!";
Selection.setFocus('email');
} else if (telefone eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('telefone');
} else if (empresa eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('empresa');
} else if (comentario eq '') {
alerta = "Preencha o campo!";
Selection.setFocus('comentario');
} else {
loadVariablesNum("bolaxa.asp", 0, "POST");
alerta = "Enviando...";
}
}