SÉCURITER AVEC PASSWORD

pas = request.form("ton champ formulaire")
vari = "select password from TaTable where password='" & pas & "'"
set rs2 = server.CreateObject("ADODB.recordset")
rs2.Open vari,conn,adOpenForwardOnly,adLockOptimistic
found = false
if conn.State=0 then 
response.write "<font color=""red"">Connection non trouvé</font><br>"
else
strFilter = "password= '" & pas & "'"
rs2.Filter = strFilter
if not rs2.EOF then
if pas = rs2("password") then
found = true
else
Response.Write "Vous n'avez pas accès a cette page"
c=f
Response.Redirect("TaPageDeLogin.asp?c=f")
end if

if found then
Le reste du script asp
end if