Erro Estranho...

[sergiotp]

Fala ae glr, tudo certo?

Bom a minha duvida é a seguinte, eu to fazendo uma validacao (numa tabela do banco onde tenho os usuarios e senhas) de acesso a uma pagina para poder alterar dados..

Ta assim:

<% 
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../database/dados.mdb")

usuario = Replace(Request.Form("usuario"),chr(39),"''")
senha = Replace(Request.Form("senha"),chr(39),"''")


	Set Rs = Server.CreateObject("ADODB.RecordSet")
	SQL = "SELECT * FROM admusuarios WHERE  usuario='"&usuario&"' AND senha='"&senha&"' "
	Set Rs = conn.execute(SQL)


If Not Rs.EOF then


	Set Rs1 = Server.CreateObject("ADODB.RecordSet")
	SQ11 = "SELECT id, nome FROM listamineira WHERE  nome='"&usuario&"'  "
	[COLOR=red]Set Rs1 = conn.execute(SQL1)[/COLOR]

Session("idusuario") = Rs("idusuario")
Session("senha") = Rs("senha")
Session("usuario") = Rs("usuario")
Session("nome") = Rs("nome")

id = rs1("id")

	Response.Redirect ("../home/default.asp?id=" & id)
else
	Response.Redirect ("../default.asp?erro=yes")
end if

rs.close
set rs = nothing
conn.close
set conn=nothing

%>

Ele me da erro naquela linha ali em cima de vermelho..

o erro é esse...

Tipo de erro:

Microsoft JET Database Engine (0x80040E0C)

O comando de texto não foi definido para o objeto de comando.

/lista/anunciante/includes/valida.asp, line 19

Deem uma mao ai, pois nunca topei com esse erro antes..

abraços...

[mariofdf]

tente este

[Guest Guest]

Cara o que você mudou? Putz nem isso to conseguindo ver..

rsrs

Abraços....

[sergiotp]

opss... esqueci de logar, esse ai acima sou eu..

E o codigo deu certo... Mas o que você mudou Mario?

Nop achei mudanças..

Abraços

[mariofdf]

er so um detalhe no sql que você colocou errado

você trocou uma letra