<%@ Language=VBScript%> <% ' Modèle objet de script VI 6.0 activé %> <% if StartPageProcessing() Then Response.End() %>
Gestion, Location, Achat, Vente, Transaction Nimes : Agence Safim Immobilier (GARD) <% sub ok_onclick() 'variable pour le fichier texte Const cForReading = 1 Dim Vnom Dim Vmdp if Tnomc.value="" then %> <% elseif Tmdp.value="" then %> <% 'on remet le champs nom à vide Tnomc.value="" 'On regarde si la personne qui tente de se connecter a le droit else 'Crée un objet Scripting.FileSystemObject Set objFso = CreateObject("Scripting.FileSystemObject") 'Vérifie que ce fichier existe bien if objFso.FileExists("C:\Inetpub\wwwroot\safim\MDP\MDP.txt")then 'Ouvre le fichier Set ts = objFso.OpenTextFile(Server.MapPath("MDP\MDP.txt"), cForReading, false) 'Récupère les données du fichier à savoir le nom et le mot de passe Vnom = ts.readline Vmdp=Ts.readline 'ferme le fichier ts.close Set objFso = nothing 'Compare si les données récupérées dans le fichier texte sont identiques à celles saisies par l'internaute if Vnom <> Tnomc.value then %> <% Tnomc.value="" Tmdp.value="" elseif Vmdp <> Tmdp.value then %> <% Tnomc.value="" Tmdp.value="" else 'on ouvre une session avec le nom de l'utilisateur qui vient de se connecter session("nom")=Tnomc.value session("LoggedIn")="yes" %> <% END IF else %> <% end if end if end sub %>

Espace agence :

 

 

 

 

 

Nom utilisateur :  <% Tnomc.display %>


Mot de passe :   <% Tmdp.display %>

 

<% ok.display %>

 
<% ' Modèle objet de script VI 6.0 activé %> <% EndPageProcessing() %>