Erro/Problema com select

[Slaa 0]

Olá,

 

Uma página (central.asp) eh onde os clientes acham links e informações pessoais.

 

O login com autenticação esta perfeito. Contudo, quando faço o select ele naum consegue mais acessar a página. Eis a conexão que fiz que funciona, soh que todos os usuarios conseguem visualizar. Ou seja, naum importa que cliente acesse, ele sempre vai ver apenas os dados do ID = 1:

 

 

<%

Dim strSQL

Dim objConn

Dim objRs

 

' DB

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

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

objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb")

%>

 

<%

strSQL="Select * from members"

objRS.Open strSQL, objConn

 

 

%>

 

 

Quando modifico para o seguinte (o que seria o recomendável) ele dah erro. Simplesmente naum entra na página.

 

<%

 

strSQL = "SELECT * FROM Members WHERE LoginName = '" & strLoginName & "' AND LoginPassword = '" & strLoginPassword & "'"

 

 

objRS.Open strSQL, objConn

 

 

%>

 

Simplesmente naum funciona..

 

A lógica do meu login eh:

 

1. Login.asp > Simples, login padrao, form, action: log.asp

2. Log.asp > Autenticação do individuo. Sessions para id, nome, e pass, e também : Response.Redirect("http://www.hostwebdev.com/clientes/central.asp?memberID=" & lngmemberid)

3. Central.asp > mostra os dados do db. Verifica c o cara logou, deveria mostra os dados apenas do ID que ele logou. (naum funciona)

 

Soh para ser mais exato, eis o erro que tem ocorrido:

 

ADODB.Field error '80020009'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/clientes/central.asp, line 0

 

Espero que alguem consiga me ajudar...

 

grato,

 

Slaa

[Mário Monteiro 179]

ele não ta encontrando nada e voce não está tratando esta possibilidade

[Slaa 0]

ele não ta encontrando nada e voce não está tratando esta possibilidade

Como assim? Eu fiz a conecção ao DB, fiz o select.... citei o que quero... e ele naum acha? Naum entendi...

[Mário Monteiro 179]

poe o trecho do codigo...

[Slaa 0]

CENTRAL.ASP

 

<%

Dim strSQL

Dim objConn

Dim objRs

Dim lngMemberID

 

' Open Database

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

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

objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb")

%>

 

<%

 

' Set the SQL Statement to get the information from the database

strSQL = "SELECT * FROM Members"

 

 

' Open the Database

objRS.Open strSQL, objConn

 

 

%>

 

 

<%

' Segurança

response.expires = "0"

if session("logado") <> "logou" then

response.redirect ("http://www.hv.com/clientes/home.asp")

end if

%>

 

LOGIN.NOW.ASP

 

<%

Dim strSQL

Dim objConn

Dim objRs

Dim strLoginName

Dim strLoginPassword

Dim lngMemberID

 

' Capturar Data

strLoginName = Request.Form("LoginName")

strLoginPassword = Request.Form("LoginPassword")

 

' DB Conn

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

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

objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb")

 

' Procurar

strSQL = "SELECT MemberID FROM Members WHERE LoginName = '" & strLoginName & "' AND LoginPassword = '" & strLoginPassword & "'"

Set objRs = objConn.Execute(strSQL)

 

' Autenticação

If objRs.EOF Then

session("logado") = ("erro")

Response.redirect("http://www.hv.com/clientes/home.asp")

Else

lngMemberID = objRs(0)

session("loginname") = Request.Form("LoginName")

session("loginpassword") = Request.Form("LoginPassword")

session("logado") = ("logou")

Response.Redirect("http://www.hv.com/clientes/central.asp?memberID=" & lngmemberid)

 

End If

 

' ...

Set objRs = Nothing

objConn.Close

Set objConn = Nothing

%>

 

LINHA

 

LOGIN.ASP > LOGIN.NOW.ASP > CENTRAL.ASP

 

:)

[Slaa 0]

CONSEGUI! :natalw00t:

 

Po valeu galera. você tinha razao... eis o que fiz, osh pra constar:

 

Simplesmente adicionei o que esta em vermelho:

 

<%

strloginname = session("loginname")

' Set the SQL Statement to get the information from the database

strSQL = "SELECT * FROM Members WHERE LoginName = '" & strLoginName & "'"

 

 

' Open the Database

objRS.Open strSQL, objConn

if objRS.EOF = true then

response.write "Nenhum registro encontrado"

else

 

 

 

%>

[Mário Monteiro 179]

era isso mesmo tiozinho

 

parabens

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif