validar login, pass y campo logico

[Chuy]

la pagina ya me trabaja el login y password ...
lo que pasa esque me estan pidiendo que aparte del login y password cheque si puede accesar ala pagina con un campo logico (si el usuario tiene derechos)...
en la base de datos agregue un campo que se llama bodega es logico y quiero que si esta en verdadero deje entrar y sino pues no tiene acceso...
espero me pudieran ayudar aqui les muestro lo que tengo...



<% Dim Msg,Sql %>
<%
Dim Base,Rs,ConnStr
Set Base=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")

ConnStr="Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF; DBQ=" & Server.Mappath("datos/usuinter.dbf")
Base.Open ConnStr

if request.form("enviar")<>"" then

if request.form("login")<>"" and request.form("password")<>"" then

Sql="Select * from "& Server.Mappath("datos/Usuinter.dbf") &" where Upper(login)=Upper('" & request.form("login") &"') and Upper(password)=Upper('" & request.form("password") &"')"

Rs.Open Sql,Base

if Rs.Bof and Rs.Eof then
Msg="El Login o Password estan Equivocados"
Else

response.cookies("aduana")("gcliente")=Rs(2)
response.cookies("aduana")("cnombre")=Rs(3)
response.cookies("aduana")("contacto")=Rs(4)
response.cookies("aduana")("logoemp")=Rs(5)
response.redirect("indexb.asp")
End if

Else
Msg="Debes de indicar tu Login y Password"
End if

End if


gracias por el apoyo

[AlZuwaga]

Uff.. nunca usé debeefes, pero supongo que los campos lógicos serán 0 y 1.
So, sería así:

Sql="Select * from "& Server.Mappath("datos/Usuinter.dbf") &" where Upper(login)=Upper('" & request.form("login") &"') and Upper(password)=Upper('" & request.form("password") &"' and campo_logico = 1)"

(En negrita los agregados)

[Chuy]

OK ESQUE NO TENIA LA IDEA MUY CLARA DE COMO TRABAJARLO ,ME SIRVIO DE MUCHO TU AYUDA GRACIAS asi quedo trabajarlo con .T.
Sql="Select * from "& Server.Mappath("datos/Usuinter.dbf") &" where Upper(login)=Upper('" & request.form("login") &"') and Upper(password)=Upper('" & request.form("password") &"') and bodega = .T."
gracias " Al "