Sommaire

-----------------

<form name="form1" method="post" action="controle.asp">

<input type="text" name="login_form">

<input type="password" name="pass_form">

<input type="submit" name="Submit" value="Entrer">

------------------

Page de controle.asp

dim strlogin
dim strpass
dim login

strlogin = request.form("login_form")
strpass = request.form("pass_form")

queryStr2 = "SELECT * FROM T_personne WHERE (login_personne = '"&strlogin&"') AND (Pass_personne = '"&strpass&"')"
set PassRec = Cndb.Execute(queryStr2)

if (PassRec.EOF) Then
Response.Redirect ("refuse.asp")
End If
session("login")= strlogin

---------------------