newsletter

[zecahot 0]

Pessoal, to com um problema num script que consegui aqui no forum. O codigo no Flash CS3 é esseSystem.useCodepage = true;stop();nome_txt.tabIndex = 0;email_txt.tabIndex = 1;var enviaDados:LoadVars = new LoadVars();//email_txt.onSetFocus = function(oldFocus) { email_txt.text = "";};nome_txt.onSetFocus = function(oldFocus) { nome_txt.text = "";};//function Enviar() { if (nome_txt.text == "") { alerta.text = "Por favor, informe um nome para o cadastro."; } else if (email_txt.text == "" || email_txt.text.indexOf("@", 0) == -1 || email_txt.text.indexOf(".", 0) == -1) { email_txt.text = "Informe um email válido!"; } else {// trace('nome: '+_root.nome_txt.text)// trace('email: '+_root.email_txt.text) enviaDados.nome = nome_txt.text; enviaDados.email = email_txt.text; enviaDados.sendAndLoad("add.asp", enviaDados, "POST"); enviaDados.onLoad = function(ok) { if (ok) { alerta.text = this.mensagem; play(); } else { alerta.text = "Erro ao enviar dados"; play(); } }; }}Tem trace nos campos pois as variaveis vao indefinidas. o codigo asp ta assim<%set cn = Server.CreateObject("ADODB.Connection")pathdb = "DBQ=newsletter.mdb;Driver={Microsoft Access Driver (*.mdb)};"cn.open pathdbcn.CursorLocation = 3Server.ScriptTimeout = 180%><!--#include file="abrecon.asp"--><% mensagem = "" newsletter_nome = Request.Form("nome") newsletter_email = lcase(Request.Form("email")) newsletter_status = 1 sqlSelect = "SELECT newsletter_email FROM newsletter WHERE newsletter_email = '" & newsletter_email & "'" set rsSelect = cn.execute(sqlSelect) if not rsSelect.EOF then Response.write("&mensagem="+Server.URLEncode("Este email já se encontra em nosso Banco de Dados!")) else sqlInsert = "" sqlInsert = sqlInsert & " insert into newsletter ( " sqlInsert = sqlInsert & " newsletter_nome, " sqlInsert = sqlInsert & " newsletter_email, " sqlInsert = sqlInsert & " newsletter_status " sqlInsert = sqlInsert & " ) " sqlInsert = sqlInsert & " values ( " sqlInsert = sqlInsert & " '" & newsletter_nome &"', " sqlInsert = sqlInsert & " '" & newsletter_email &"', " sqlInsert = sqlInsert & " " & newsletter_status sqlInsert = sqlInsert & " ) " cn.execute(sqlInsert) Response.write("&mensagem="+Server.URLEncode("Cadastrado com Sucesso!")) end if%><!--#include file="fechacon.asp"-->Mas nao funciona e nem grava as informações no banco de dados Access.alguem pode me ajudar?????

[zecahot 0]

Ninguem pode me ajudar????