sistema de login simples com conexão OBDC

[felisbino 0]

Olá

Gente fiquei sabendo que o codigo para conectar no banco de dados OBDC é

Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;

mais não sei criar um sistema de login com este codigo sa tenho a ODBC mondada e a tabela tamben mais não

sei montar o login vcs podem me ajudar.

Obrigado

[Jow Xavier 0]

Tenta isso:

 

<% 'Conexão com o banco de dados
conexao="Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open conexao
login=(Request.QueryString("login"))
senha=(Request.QueryString("senha"))
set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ")

' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm
if acesso.eof then
Response.write "Usuário não logado"

else
Session("login")=login
'Session("usuario")= acesso("usuario")
'Session("Email")= acesso("Email") 
Session("login")= acesso("login")
'você pode colocar quais sessions você quiser aqui que o restante do site vai ler.
Response.Redirect"acesso.asp"
end if
DB.close
%>