Problema Com Login

[PRISCILA STOCHINI]

Bom, estou desenvolvendo um sistema de login, com senha...

Então eu crio o formulario para acesso...esse conecta uma página de validação...e essa deveria conectar o bd e liberar o acesso...

Bom já testei de tudo....o problema está sendo...

quando eu coloco o login dá um erro....sem o login dá o mesmo erro e com o login errado também...

O que pode ser..qm pode me ajudar...

[PRISCILA STOCHINI]

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/asp/valida.asp, line 13

VALIDA.ASP

<!--#include file="conecta.asp"-->

<%

vuser = Replace(Trim(request.form("nome")), "'", "/")

vpass = Replace(Trim(request.form("senha")), "'", "/")

Dim sql, rs, bco

sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'"

Abreconn

Set rs = bco.execute(sql)

If rs.eof Then

Session("login") = True

Session("nome") = rs("nome")

rs.Close

Set rs = Nothing

fechaconn

Response.Redirect "PRINCIPALXYZ000.htm"

Else

rs.close

Set rs = Nothing

fechaconn

Response.Redirect "index.asp?erro=1"

End if

%>

[PRISCILA STOCHINI]

ME AJUDEM.....

[kuroi]

qual é a linha 13?

[PRISCILA STOCHINI]

Set rs = bco.execute(sql)

[kuroi]

acho que não está fazendo a conexao com o banco. posta a sub Abreconn toda pra gente dar uma olhada.

[Marcos-rj]

está na pagina 1 do post:

CONECTA.ASP

<%
Sub AbreConn

Dim bco, sql, rs

Set bco = Server.CreateObject("ADODB.Connection")
bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb")

End Sub
'-----------------------------
Sub FechaConn
bco.close
Set bd = Nothing
End sub
%>

[kuroi]

o problema não é que você declara as msms variaveis duas vezes??

tire a linha Dim sql, rs, bco do Valida.asp

[PRISCILA STOCHINI]

o QUE QUEREM QUE EU POSTE???

[filipeflc00]

eu acho que você deve fazer essa parte de login toda de novo

[PRISCILA STOCHINI]

Microsoft VBScript runtime error '800a01a8'

Object required: 'bco'

/asp/valida.asp, line 11

VALIDA.ASP

<!--#include file="conecta.asp"-->

<%

vuser = Replace(Trim(request.form("nome")), "'", "/")

vpass = Replace(Trim(request.form("senha")), "'", "/")

sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'"

Abreconn

( LINE 11)Set rs = bco.execute(sql)

If rs.eof Then

Session("login") = True

Session("nome") = rs("nome")

rs.Close

Set rs = Nothing

fechaconn

Response.Redirect "PRINCIPALXYZ000.htm"

Else

rs.close

Set rs = Nothing

fechaconn

Response.Redirect "index.asp?erro=1"

End if

%>

[kuroi]

o QUE QUEREM QUE EU POSTE???

nada, sugeri isso:

o problema não é que você declara as msms variaveis duas vezes??

tire a linha Dim sql, rs, bco do Valida.asp

já tentou??

[PRISCILA STOCHINI]

SIM, E DEU O PROBLEMA ASSIM!!!!

[Marcos-rj]

O que você fez com o bco? ele não está encontrando

[kuroi]

foi mal, não tinha visto. tenta o seguinte agora, altere o AbreConn, pondo uma linha a mais com o codigo Set rs = Server.CreateObject("ADODB.RecordSet"). ficaria assim:

<%
Sub AbreConn

Dim bco, sql, rs

Set bco = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb")

End Sub[/code]

[PRISCILA STOCHINI]

ADODB.Field error '80020009'

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

/asp/valida.asp, line 17

<!--#include file="conecta.asp"-->

<%

Dim bco, sql, rs

vuser = Replace(Trim(request.form("nome")), "'", "/")

vpass = Replace(Trim(request.form("senha")), "'", "/")

sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'"

Abreconn

Set rs = bco.execute(sql)

If rs.eof Then

Session("login") = True

(line 17) Session("nome") = vuser

rs.Close

Set rs = Nothing

fechaconn

Response.Redirect "PRINCIPALXYZ000.htm"

Else

rs.close

Set rs = Nothing

fechaconn

Response.Redirect "index.asp?erro=1"

End if

%>

[kuroi]

estranho, é nessa linha mesmo o erro??

mas acho que esta ao contrario. ele tem que redirecionar para a PRINCIPALXYZ quando ele encontrar o usuario certo??

então ficaria assim:

If Not rs.eof Then
Session("login") = True
Session("nome") = vuser
rs.Close
Set rs = Nothing
fechaconn
Response.Redirect "PRINCIPALXYZ000.htm"
Else
rs.close
Set rs = Nothing
fechaconn
Response.Redirect "index.asp?erro=1"
End if[/code]

[PRISCILA STOCHINI]

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/valida.asp, line 12

<!--#include file="conecta.asp"-->

<%

vuser = Request.Form("nome")

vpass = Request.Form("senha")

Dim sql, rs, bco

sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'"

Abreconn

(line 12) Set rs = bco.execute(sql)

If rs.eof Then

rs.close

Set rs = Nothing

fechaconn

Response.Redirect("index.asp?erro=1")

Else

Session("login") = True

Session("nome") = vuser

rs.Close

Set rs = Nothing

fechaconn

Response.Redirect("SIM/PRINCIPALXYZ000.htm")

End if

%>

[kuroi]

de novo isso??? você alterou o abreconn??

[PRISCILA STOCHINI]

CONECTA.ASP

<%
Sub AbreConn
    
    Dim bco, sql, rs

Set bco = Server.CreateObject("ADODB.connection")
bco.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb")

End Sub
'-----------------------------
Sub FechaConn
    bco.close
    Set bd = Nothing
End sub
%>

VALIDA.ASP

<!--#include file="conecta.asp"-->
<%
vuser = Request.Form("nome")
vpass = Request.Form("senha")

Dim sql, rs, bco

sql = "SELECT * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'"

Abreconn

Set rs = bco.execute(sql)

If Not rs.eof Then
    rs.close
    Set rs = Nothing

Fechaconn

    Response.Redirect("index.asp?erro=1")
Else
    Session("login") = True
    Session("nome") = vuser
    rs.Close
    Set rs = Nothing

Fechaconn

    Response.Redirect("SIM/PRINCIPALXYZ000.htm")
End if
%>

[Marcos-rj]

você alterou no codigo de conexão?

[PRISCILA STOCHINI]

E o que eu faço então???

[kuroi]

aquela linha que eu disse pra você adicionar (Set rs = Server.CreateObject("ADODB.RecordSet")), você tirou. e sem ela não vai funcionar mesmo. o abreconn tem que ficar assim:

<%
Sub AbreConn
    
    Dim bco, sql, rs

Set bco = Server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
bco.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb")

End Sub
'-----------------------------
Sub FechaConn
    bco.close
    Set bd = Nothing
End sub
%>[/code]

[PRISCILA STOCHINI]

Ai não consegui solucionar o erro da line 12 da valida.asp

[kuroi]

fez isso já?

aquela linha que eu disse pra você adicionar (Set rs = Server.CreateObject("ADODB.RecordSet")), você tirou. e sem ela não vai funcionar mesmo. o abreconn tem que ficar assim:

<%
Sub AbreConn
    
    Dim bco, sql, rs

Set bco = Server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
bco.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb")

End Sub
'-----------------------------
Sub FechaConn
    bco.close
    Set bd = Nothing
End sub
%>[/code]

[PRISCILA STOCHINI]

JÁ COLOQUEI...