<% Session("loginLacoreClient") = "no" nom_client = Request.Form("nom_client") password_client = Request.Form("password_client") if (Request.Form("submit") = "valider") then ' tester le login SQL = "SELECT * FROM client" Set RS = server.createobject("ADODB.Recordset") RS.Open SQL,Conn , 3, 3 while not RS.eof nom_client_BD = RS("nom_client") password_client_BD = RS("password_client") if (nom_client = nom_client_BD) and (password_client = password_client_BD) and (nom_client_BD <> "") and (password_client_BD <> "") then Session("nom_client") = nom_client_BD Session("password_client") = password_client_BD Session("loginLacoreClient") = "yes" end if RS.MOVENEXT ' Categorie suivante wend RS.close if (Session("loginLacoreClient") <> "yes") then html = "mot de passe ou nom de client incorrect !" else %> <% end if end if %> login
 
 
Espace professionel
<%= html %> 
Veuillez entrer votre nom de client ainsi que votre mot de passe
nom de client
mot de passe