Checkbox nao funciona
olá, estou desenvolvendo um formulario de contato no flash juntamente com ASP...
td esta funcionando perfeitamente, exceto o checkbox que eu criei para o usuario selecionar caso queira receber a newsletter do site, ou nao selecionar caso nao queira...
quando seleciona o checkbox nao ocorrem problemas...chega no e-mail certinho: Receber Newsletter...
mas qndo o usuario nao seleciona, em vez de aparecer no email "Nao receber Newsletters", aparece "undefinied"...
meu codigo Action Script:
System.useCodepage = true;
stop();
nome.tabIndex = 0;
email.tabIndex = 1;
assunto.value = 2;
ddd.tabIndex = 3;
tel.tabIndex = 4;
mensagem.tabIndex = 5;
ddd.restrict = "0-9";
tel.restrict = "0-9";
var objeto:Object = new Object();
objeto.click = function(objeto:Object) {
if (objeto.target.selected) {
_root.variavel_do_checkBox = "Receber Newsletter"
} else {
_root.variavel_do_checkBox = "Nao receber Newsletter"
}
};
checkBox.addEventListener("click", objeto);
var enviaDados:LoadVars = new LoadVars();
function Apagar() {
nome.text = "";
email.text = "";
ddd.text = "";
tel.text = "";
mensagem.text = "";
checkBox.selected = false;
assunto.text = "Escolha:";
}
function EnviaForm() {
if (nome.text == "") {
alerta.text = "Preencha o campo nome!";
Selection.setFocus(nome);
} else if (email.text == "" || email.text.indexOf("@", 0) == -1 || email.text.indexOf(".", 0) == -1) {
alerta.text = "Insira um e-mail valido!";
Selection.setFocus(email);
} else if (ddd.text == "") {
alerta.text = "Coloque o DDD!";
Selection.setFocus(ddd);
} else if (tel.text == "") {
alerta.text = "Preencha o campo Tel!";
Selection.setFocus(tel);
} else if (mensagem.text == "") {
alerta.text = "Insira uma mensagem!";
Selection.setFocus(mensagem);
} else if (assunto.text == "Escolha:") {
alerta.text = "Escolhaum assunto!";
Selection.setFocus(assunto);
} else {
enviaDados.nome = nome.text;
enviaDados.email = email.text;
enviaDados.ddd = ddd.text;
enviaDados.tel = tel.text;
enviaDados.checkBox = _root.variavel_do_checkBox;
enviaDados.mensagem = mensagem.text;
enviaDados.assunto = assunto.value;
enviaDados.sendAndLoad("envia_mail.asp",enviaDados,"POST");
enviaDados.onLoad = function(ok) {
if (ok) {
alerta.text = this.mensagem;
Apagar();
} else {
alerta.text = "Erro ao enviar E-mail";
}
}
}
}
limpar.onRelease = function() {
Apagar();
}
enviar.onRelease = function(){
EnviaForm();
}
codigo ASP
<%
'por: Denis do Nascimento Carvalho
Dim iMail, Nome, Email, Mensagem, Assunto, DDD, Tel, Checkbox
Nome = Request.form("nome")
Email = Request.form("email")
DDD = Request.form("ddd")
Tel = Request.form("tel")
Mensagem = Request.form("mensagem")
Assunto = Request.form("assunto")
Checkbox = Request.form("checkBox")
corpo = "Nome:" & Nome & "<BR>"
corpo = corpo & "Mensagem:" & Mensagem & "<BR>"
corpo = corpo & "DDD:" & DDD & "<BR>"
corpo = corpo & "Telefone:" & Tel & "<BR>"
corpo = corpo & "Newsletter:" & Checkbox & "<BR>"
Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = Email
iMail.To = "thais@propagare.net"
iMail.Subject = Assunto
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send
Response.write("&mensagem="+Server.URLEncode("Enviado c/ Sucesso!"))
Set objMail = nothing
%>
Agradeço desde já a todos
Discussão (3)
Carregando comentários...