Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Ao Ler A Base De Dados


cear

Pergunta

Boas,

Tenho o seginte problema:

Tenho uma base de dados em access com o nome users.mdb

depoix um ficheiro em asp que se chama index.asp com o seguinte codigo

<html>

<head>

<title>Área Administrativa</title>

</head>

<body bgcolor=ffffff>

<script language="JavaScript" type="text/javascript">

<!--

if (!(document.layers)) {

document.write('<style type="text/css">\

.bt{color:#ffffff;background-color:#0099ff;border: 1px solid #590808;}\

</style>');

}

//-->

</script>

<table border=0 cellpadding=0 cellspacing=0 width=100% height=100%>

<tr>

<td width=37% height=33%>

</td>

<td width=20% height=33%>

</td>

<td width=38% height=33%>

</td>

</tr>

<tr>

<td width=37% height=33%>

</td>

<td width=25% height=33% align=center>

<table border=1 cellpadding=0 cellspacing=0 bordercolor=000000 style="border-collapse:collapse" width=100%>

<tr>

<td bgcolor=0099ff align=center width=100%>

<font face="Verdana" color=ffffff size=2>

<b>Área Administrativa</b>

</td>

</tr>

<tr>

<td width=100% align=center bgcolor=dddddd>

<table border=0 width=90%>

<tr>

<td>

<form method="post" action="logar.asp">

<font face="Verdana" color=000000 size=1>

Usuário:

</td>

<td align=right>

<input type="text" name="user" size=20>

</td>

</tr>

<tr>

Depois outro chamado logar.asp com o seguinte codigo

<html>

<body bgcolor=ffffff>

<%

validpwd="false"

usuario=request.form("user")

senha=request.form("pass")

If usuario<>"" and senha<>"" Then

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

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

conn.open Conexao

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

If not rs.eof then

response.write rs.eof("nome")

Else

validpwd="false"

End If

Else

validpwd="false"

end if

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

If validpwd="true" Then

Session("status") = "login"

response.write rs.eof("nome")

End If

If validpwd="false" Then

response.redirect "index.asp?erro=1"

End If

%>

</body>

</html>

e outro com o nome entrou.asp com o seguinte codigo

<%

if Session("status")<>"login" then

response.write rs.filds("nome")

end if

session("status")=""

%>

<html>

<head>

<title>Logado</title>

</head>

<body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000">

<table border=0 width="100%" cellspacing=3 cellpadding=3>

<tr>

<td align="left"><font face="verdana" size=2>

Olá <b><% = nome %></b>, você está logado(a)!</font></td>

<td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td>

</tr>

<tr><td colspan=2><hr></td></tr></table>

</html>

A base de dados em access contem os campos User, Pass, Nome, socio... eu gostava de que quando tivesse logado o campo nome e socio fosse vizualizado...

alguém me pode ajudar??

Obrigado

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Faz um select pra exibi-los, exemplo:

ASP

<%

sql = "select * from USERS"

set tab = conexao.execute(sql)

nome = tab("nome")

socio = tab("socio")

%>

Nome é: <%= nome %>

Sócio é: <%= socio %>

boas... desculpa a minha ignurancia nesta matéria é que ando nisto a pouco tempo.... onde ponho o codigo que me deste???

Desde já muito obrigado

Link para o comentário
Compartilhar em outros sites

  • 0
você escreve a consulta onde você deseja exibi-la, acho que no seu caso é no arquivo é no entrou.asp

Não testei, mas tente aí:

ASP

<%

if Session("status")<>"login" then

response.write rs.filds("nome")

end if

session("status")=""

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

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

conn.open Conexao

Set rs = conn.Execute( "Select * from users")

nome = rs("nome")

socio = rs("socio")

%>

<html>

<head>

<title>Logado</title>

</head>

<body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000">

<table border=0 width="100%" cellspacing=3 cellpadding=3>

<tr>

<td align="left"><font face="verdana" size=2>

Olá <b><% = nome %></b>, você está logado(a)!</font></td>

<td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td>

</tr>

<tr><td colspan=2><hr></td></tr></table>

Nome:<%= nome %><br>

Sócio: <%= socio %>

</html>

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/entrou.asp, line 3

Link para o comentário
Compartilhar em outros sites

  • 0

você escreve a consulta onde você deseja exibi-la, acho que no seu caso é no arquivo é no entrou.asp

Não testei, mas tente aí:

ASP

<%

if Session("status")<>"login" then

response.write rs.filds("nome")

end if

session("status")=""

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

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

conn.open Conexao

Set rs = conn.Execute( "Select * from users")

nome = rs("nome")

socio = rs("socio")

%>

<html>

<head>

<title>Logado</title>

</head>

<body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000">

<table border=0 width="100%" cellspacing=3 cellpadding=3>

<tr>

<td align="left"><font face="verdana" size=2>

Olá <b><% = nome %></b>, você está logado(a)!</font></td>

<td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td>

</tr>

<tr><td colspan=2><hr></td></tr></table>

Nome:<%= nome %><br>

Sócio: <%= socio %>

</html>

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/entrou.asp, line 3

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/entrou.asp, line 3

alguém me pode ajudar???

obigado

Link para o comentário
Compartilhar em outros sites

  • 0
você escreve a consulta onde você deseja exibi-la, acho que no seu caso é no arquivo é no entrou.asp

Não testei, mas tente aí:

ASP

<%

if Session("status")<>"login" then

response.write rs.filds("nome")

end if

session("status")=""

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

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

conn.open Conexao

Set rs = conn.Execute( "Select * from users")

nome = rs("nome")

socio = rs("socio")

%>

<html>

<head>

<title>Logado</title>

</head>

<body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000">

<table border=0 width="100%" cellspacing=3 cellpadding=3>

<tr>

<td align="left"><font face="verdana" size=2>

Olá <b><% = nome %></b>, você está logado(a)!</font></td>

<td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td>

</tr>

<tr><td colspan=2><hr></td></tr></table>

Nome:<%= nome %><br>

Sócio: <%= socio %>

</html>

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/entrou.asp, line 3

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/entrou.asp, line 3

alguém me pode ajudar???

obigado

já dá!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

os campos da base de dados e que não eram os mesmos...

MUITO MUITO OBRIGADOOOO

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...