<%session("usr")=0
If (Request.Form <>"") Then
rsusr.open "select * from usuarios" ,conn ,adOpenKeyset ,adLockOptimistic
rsusr.movefirst
do until rsusr.eof
if rsusr("login")=request.form("login") then
if rsusr("passw")=request.form("passw") then
session("usr")=rsusr("codusr")
response.redirect("principal.asp")
end if
end if
rsusr.movenext
loop
response.redirect("index.asp")
rsusr.close
else%>
