problemas com ASP...

[alex.silva 0]

Fala galera.. beleza? Então..

Meu problema é o seguinte...

 

ASP [/tr][tr]

<%

 

Nome = Request.Form("userName")

Senha = Request.Form("userPass")

 

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

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

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

sql = "SELECT Nome, Senha FROM login WHERE Nome='" & Nome & "' AND Senha='" & Senha & "'"

Set rs = conexao.execute(sql)

 

If rs.EOF Then

Response.Write ("&acao=false")

Else

Response.Write("&acao=true")

End If

 

conexao.close

set conexao = nothing

 

%>

[/tr]

 

BOm.. tenho um formulario, no FLash, e gostaria d fz um sistema de login...

Se o kra tiver cadastrado ele vai pruma pagina, se não dá erro...

 

Alguem pode me dizer o q tem de errado no meu ASP.. ? :S

Parece naum ta dando muito certo.. pq ele so retorna 'false'... e eu ja fiz testes e + testes.. alguem me da uma luz ae.. plis!!

[Salgado 4]

Vamos fazer um testezinho:

<%

 

Nome = Request.Form("userName")

Senha = Request.Form("userPass")

 

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

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

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

sql = "SELECT Nome, Senha FROM login WHERE Nome='" & Nome & "' AND Senha='" & Senha & "'"

Response.Write "SQL = "& SQL

Response.END

Set rs = conexao.execute(sql)

 

If rs.EOF Then

Response.Write ("&acao=false")

Else

Response.Write("&acao=true")

End If

 

conexao.close

set conexao = nothing

 

%>

[/tr]

E poste aqui o que ele mostrar.

[alex.silva 0]

Ae Salgado:

 

No Browse:

 

ASP [/tr][tr]SQL = SELECT Nome, Senha FROM login WHERE Nome='' AND Senha=''[/tr]

 

agora no Flash, ele não tá + pegando a variável.. agora ela fica undefined... :(

 

To postando agora tb o AS.. vai ve ajuda... ;)

 

function enviar() {  var objDados:LoadVars = new LoadVars();  objDados.Nome = _parent.userName.text;  objDados.Senha = _parent.userPass.text;  objDados.sendAndLoad("http://localhost/chat/logar.asp", objDados, "POST");  objDados.onLoad = function() {  	trace(this.acao);  	if (this.acao == "true") {    trace("Logado...");  	} else {    trace("Nome ou senha incorretos...";);  	}  };	}

[Salgado 4]

Não saco muito de AS, mas vamos trocar algo no ASP, creio que esse trecho

objDados.Nome = _parent.userName.text;

objDados.Senha = _parent.userPass.text;

[/tr]

do seu AS está enviando Nome e Senha para o ASP, e não o UserName e o UserPass.

 

A alteração no ASP seria:

<%

 

Nome = Request.Form("Name")

Senha = Request.Form("Pass")

 

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

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

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

sql = "SELECT Nome, Senha FROM login WHERE Nome='" & Nome & "' AND Senha='" & Senha & "'"

Set rs = conexao.execute(sql)

 

If rs.EOF Then

Response.Write ("&acao=false")

Else

Response.Write("&acao=true")

End If

 

conexao.close

set conexao = nothing

 

%>

[/tr]

[alex.silva 0]

po kra.. q burro q eu fui.. :P Deu certo.. valew mesmo!!

[alex.silva 0]

Putz.. surgiu outra dúvida..

Deu certinho o negócio do login lá... valew mesmo.. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

O que eu quero fazer agora é o seguinte:

 

Tipo, na minha tabela..., além Login e Senha, tenho outros campos..

Como que eu faço pro ASP mandar pro Flash esses campos em forma de variáveis...

 

pq olha só..:

 

ASP [/tr][tr]

resposta.text = "Seja bem-vindo "+objDados.Login+newline+"Aguarde enquanto o chat é carregado...";

[/tr]

Isso no Flash, claro...

objDados.Login é uma variável que o Flash pegou do ASP, no caso o nome de usuário...

Dae fica: "Seja bem-vindo alex.silva. Aguarde enquanto ochat é carregado..."

 

alex.silva é o Login. Eu queria mostrar o nome.. assim:

 

Seja bem-vindo Alex. Aguard...

 

Sera que alguém pode me da um forcinha ae de novo?