Problema Ao Ler A Base De Dados

cear · Outubro 13, 2005

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>

<!--

if (!(document.layers)) {

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

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

</style>');

}

//-->

</script>

<tr>

</td>

</td>

</td>

</tr>

<tr>

</td>

<tr>

<b>Área Administrativa</b>

</td>

</tr>

<tr>

<tr>

<td>

Usuário:

</td>

</td>

</tr>

<tr>

Depois outro chamado logar.asp com o seguinte codigo

<html>

<%

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>

<tr>

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

</tr>

</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

.Andreia. · Outubro 13, 2005

Faz um select pra exibi-los, exemplo:

Outubro 13, 2005

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

.Andreia. · Outubro 13, 2005

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í:

cear · Outubro 13, 2005

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

cear · Outubro 13, 2005

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

cear · Outubro 13, 2005

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

Entrar

Problema Ao Ler A Base De Dados

Pergunta

cear

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Guest - cear -

Link para o comentário

Compartilhar em outros sites

.Andreia.

Link para o comentário

Compartilhar em outros sites

cear

Link para o comentário

Compartilhar em outros sites

cear

Link para o comentário

Compartilhar em outros sites

cear

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades