ACCES PAR MOT DE PASSE

'-------déclaration de la base------------------------
DSN_BASE = "DBQ=" & Server.Mappath("Cour_dt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

'-------création de la connection-------------------
Set conx = Server.CreateObject("ADODB.Connection")
conx.Open DSN_BASE%>

 '-----------création du recordset--------------------
Set objRS = Server.CreateObject("ADODB.Recordset")

'-------récupère les valeurs d champs--------------
name = Request.form("nom")
pass = Request.form("passe")
test = 0
objRS.Open "SELECT Nom, passe From Utilisateur", conx
If (name = "" or pass= "") then
	response.write("<script language='javascript'>")
    response.write("alert('Nom ou Mot de passe vide!');")
    response.write("</script>")
    %><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% 'renvoie a la page mot de passe
Else
	Do While (test = 0 and not objRS.EOF)
		If name = objRS("nom") then
			If pass = objRS("passe") then
				test = 1
			End if
		End if
		objRS.movenext
	Loop
	If test = 1 then	
		response.redirect "sommaire.asp" 'le code est bon on peut rentrer dans le site
	Else
		response.write("<script language='javascript'>")
    	response.write("alert('Nom ou Mot de passe incorrect! Veuillez recommencer');") 
    	response.write("</script>")
    	%><META HTTP-EQUIV=REFRESH CONTENT="1;URL=motdepasse.asp"><% ' meme fonction que response.redirect mais on va attendre 1 seconde(CONTENT=1) pr charger la page
	End if 
End if
objRS.Close
set objRS = nothing
conx.Close
set conx = nothing
%>