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