<% Set ObjCon = Server.CreateObject("ADODB.Connection") DBConnect="DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("data/BDBlog.mdb") ObjCon.Open DBConnect %> <% LoginPw = 0 if request.form("login") <> "" then SQLLogin = "SELECT LOGIN.Login, LOGIN.PW FROM LOGIN WHERE LOGIN.Login='" & request.form("login") & "'" set objLogin = objcon.execute(SQLLogin) if objLogin.EOF then LoginPw = 2 elseif request.form("PW") = objLogin("PW") then SESSION("SS")=objLogin("PW") Response.redirect("gestion_blog.asp") else LoginPw = 2 end if end if %> Accès interface client

 

 
Zone privée, réservée au gestionnaire du site
Login :
Mot de passe :
<% if LoginPw = 2 then response.write "

Login ou mot de passe incorrect ! Réessayez...

" end if %>
Module et interface ASP réalisés par RX-Informatique :
http://www.Rx-Informatique.com - E-mail : fabricerx@aol.com - Tél. 06 85 91 50 89
pour Création Lambert
Route du Maine - 24150 Lalinde - Tél. 05 53 09 04 34 - Fax 05 53 61 20 04
 webmaster@creationlambert.com