Me Ajudem Por Favor !

[UltraSeven]

Olá Galera !!! beleza ??

Seguinte !!! tenho um formulário (cadastro) em Flash ...ok ??...e estou usando este código asp (...abaixo) para alimentar um banco acesss !!! Mas o problema é que não funciona !!!

Eu peguei este exemplo no PontoFlash !!!

Eu já coloquei o meu .swf, o .mdb eo .asp no diretório da web....mas não funciona !!!

Será que alguém podería me ajudar ?!?!?!

.

.

<%

'Declaração e inicialização de variáveis

Dim nome, senha, email

nome = request.form("nome")

endereço = request.form("endereço")

cep = request.form("cep")

cidade = request.form("cidade")

estado = request.form("estado")

uf = request.form("uf")

celular = request.form("celular")

email = request.form("email")

'Conexão com o Banco de Dados

Set wm = Server.CreateObject("ADODB.Connection")

'abre o banco de dados

wm.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cadastro.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

'Insere o novo usuário na tabela usuarios

Comando = "INSERT INTO usuarios (nome, endereço, cep, cidade, estado, uf, celular,email)" & "VALUES('" & nome & "','" &endereço & "','" & cep& "','" & cidade& "','" & estado& "','" & uf& "','" & celular& "','" & email& "')"

wm.Execute(Comando)

'Lendo registro recém inserido

Seleciona="SELECT nome, endereço, cep, cidade, estado, uf, celular, email, FROM usuarios WHERE nome like '%" & nome &"%'"

rs.open Seleciona,wm

'mandado variaveis para o flash

response.write("resultado=ok&")

response.write("nome="&rs("nome")&"&")

response.write("endereço="&rs("endereço")&"&")

response.write("cep="&rs("cep")&"&")

response.write("cidade="&rs("cidade")&"&")

response.write("estado="&rs("estado")&"&")

response.write("uf="&rs("uf")&"&")

response.write("celular="&rs("celular")&"&")

response.write("email="&rs("email"))

%>

.

.

.

.

Desde já fico muito grato !!!

[Snork]

e ai veio !!!

o problema esta na forma que você esta passando as variaveis do asp para o flash...!!!

o modo correto é o seguinte :

response.write "&variavel_flash="&variavel_asp

obs.: NÃO PODE HAVER ESPAÇO ENTRE AS VARIAVEIS

eu tambem apanhei pra caramba com essa @$#, mas consegui fazer funcionar dessa forma ....

tente ai ...

[UltraSeven]

Cara ....não me xingue ...mas eu não entendi !!

[dark0]

amigo, ele não ta funcionando, né?:

mas, porque não funciona?

Onde está o erro?

O que acontece?

tratando-se de flash, eu não sei muita coisa, mas quem sabe eu possa ajudar..

[UltraSeven]

Ele não grava no banco de dados...

[dark0]

sim, ele não grava.

mas dá algum erro?

e porque você faz um select, logo depois do Insert?

[UltraSeven]

Dark amigo.....eu peguei este tutorial do PontoFlash...eu não manjo Asp...só Flash

....não dá nenhum erro ....fica parado

Tipo....eu queria uma ajuda no código Asp....está tudo certo ??? O amigo Snork me disse que eu não posso dar espaço entre as variaveis ??

[dark0]

então, você não sabe pra que é aquilo tudo do codigo?

em flash, eu não entendo nada. não sei como o flash trata variaveis asp

mas apesar de seu codigo estar bastante confuso, ele parece não ter erros.

Será que seu flash esta chamando, e executando esse codigo asp?

[UltraSeven]

Dark...me fala uma coisa aqui ó...... wm.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cadastro.mdb").....eu tenho que colocar server.MapPath("http://www.daci.com.br/cadastro/cadastro.mdb") ????????

.

.

Eis aqui o meu código no Flash...só para você ter uma noção....

.

.

System.useCodepage = true;

nome_txt.tabIndex = 0;

endereço_txt.tabIndex = 1;

cep_txt.tabIndex = 2;

cidade_txt.tabIndex = 3;

estado_txt.tabIndex = 4;

uf_txt.tabIndex = 5;

celular_txt.tabIndex = 6;

email_txt.tabIndex = 7;

function Apagar() {

nome = "";

endereço = "";

cep = "";

cidade = "";

estado = "";

uf = "";

celular = "";

email = "";

alerta = "";

Selection.setFocus("nome_txt");

}

function EnviaForm() {

if (nome eq "") {

alerta = "Preencha o campo Nome!";

Selection.setFocus("nome");

} else if (endereço eq "") {

alerta = "Preencha o campo Endereço!";

Selection.setFocus("endereço");

} else if (cep eq "") {

alerta = "Preencha o campo CEP!";

Selection.setFocus("cep");

} else if (cidade eq "") {

alerta = "Preencha o campo Cidade!";

Selection.setFocus("cidade");

} else if (estado eq "") {

alerta = "Preencha o campo Estado!";

Selection.setFocus("estado");

} else if (uf eq "") {

alerta = "Preencha o campo UF!";

Selection.setFocus("uf");

} else if (celular eq "") {

alerta = "Preencha o campo Celular!";

Selection.setFocus("celular");

} else if (email eq "" || email.indexOf("@", 0) eq -1 || email.indexOf(".", 0) eq -1) {

alerta = "Insira um e-mail válido!";

Selection.setFocus("email");

} else {

loadVariables("cadastro1.asp"," _root", "POST");

alerta = "Dados enviados com sucesso...";

nome = "";

endereço = "";

cep = "";

cidade = "";

estado = "";

uf = "";

celular = "";

email = "";

Selection.setFocus("nome_txt");

}

}

[UltraSeven]

Affff.....to ficando doido já !!!!

Dark...um amigo meu me passou este código Asp !!!

Existe vários jeitos de fazer as coisas no Asp ???

<%

Dim conn, strNome, strEndereço, strCep, strCidade, strEstado, strUf, strCelular,

strEmail

'para o Access 97 use esta

conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &

Server.MapPath("caminho_do_seu_mdb")

strNome = Request("nome")

strEndereço = Request("endereço")

strCep = request("cep")

strCidade = request("cidade")

strEstado = request("estado")

strUf = request("uf")

strCelular = request("celular")

strEmail = Request("email")

conn.Execute "INSERT INTO Tabela(nome,endereço,cep,cidade,estado,uf,celular,email)

VALUES ('" & strNome & "','" & strEndereço & "','" & strCep & "','" & strCidade

&"','" & strEstado & "','" & strUf & "','" & strCelular & "','" & strEmail & "')"

'

if err = 0 Then

Response.Write "retorno=ok"

else

Response.Write "retorno=erro"

end if

'

conn.Close

Set conn = Nothing

%>

[cyberalexxx]

me fala uma coisa aqui ó...... wm.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cadastro.mdb").....eu tenho que colocar server.MapPath("http://www.daci.com.br/cadastro/cadastro.mdb") ????????

exemplo: vamos supor que a estrutura de seu servidor seja essa:

ftp.daci.com.br: (raiz do servidor)

\wwwroot : diretório prinicipal

\database : diretório reservado a bB

dentro desta estrutura ficaria desta forma:

wm.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/cadastro.mdb")

Faça a adaptação de acordo com sua estrutura de diretórios