Login Com Nivel De Usuarios

[erickmm]

Eae galera

to precisando de uma ajuda

tenho um banco com 2 tabelas uma pra assinantes e outra pra usuarios

no site tem certas paginas que só pode acessar se for assinente

mais não estou conseguindo fazer com que a pagina de login procure nas 2 tabelas

vou postar a pagina aqui

<%
    Dim usuario
    Dim senha
    Dim data
    Dim hora
    Dim ip
    Dim secao
    Dim conexao
    Dim SQL

    Set conexao = Server.CreateObject("ADODB.Connection")
    conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=E:\home\baixadasexy\Dados\db_anun.mdb"

    usuario = server.htmlEncode(request.form("Usuario"))
    senha = server.htmlEncode(request.form("Senha"))
    data = Date()
    hora = Time()
    ip = request.servervariables("REMOTE_ADDR")
    secao = Session.SessionID

    SQL = "SELECT * FROM Usuarios WHERE Usuario = '"& usuario &"' AND Senha = '"& senha &"'"
    Set Rs = server.CreateObject("ADODB.RecordSet")
    Rs.Open SQL, conexao

    IF Rs.eof Then    
        response.redirect "index.asp?msg=0"    
    ELSE
        conexao.execute (" INSERT INTO Acesso (Usuario,Senha,Data,Hora,Ip,Secao) VALUES ( '" & usuario & "', '" & senha & "', '" & data & "', '" & hora & "', '" & ip  & "','" & secao & "') ")
        session("logado") = TRUE
        response.cookies("nick")("usuario") = rs("Usuario")
        response.redirect "../SPPaginas/home.asp"    
    END IF

    conexao.Close
    Set conexao = Nothing
%>

espero que alguém possa me ajudar

valeu

[Marcos-rj]

bom, não vejo necessidade de 2 tabelas / login, por que não coloca uma só?

vou te dar uma idéia, no formulário de login coloca um selec onde o usuario vai escolher ASSINANTE ou USUARIO.

de acordo com a opção escolhida você faz o select na tabela correspondente.

valeu!

[bareta]

add um campo do tipó sim ou não na tabela de login e senhas...

ai no select você faz...

buscando associados:

sql="select * from admin where login='"&login&"' and senha='"&senha&"' and associado="&true
set rs=conn.execute(sql)
if rs.eof then
response.write "não sócio"
else
response.write "sócio"
end if
rs.close
set rs=nothing

[erickmm]

Então faço um campo select na tabela de login e senha

aí na pagina que autentica

coloco esse que você passou, é isso?

mais ta dando erro, acho que não entendi direito

pode me explicar melhor onde tenho que colocar?

aguardo

valeu