<% Dim objConnection Set objConnection = OpenConnection(DB_FILENAME) Dim strMessage '====================================================================================== '--- DECONNEXION '====================================================================================== if ( Request.QueryString("action") = "logout" ) then Session("ENTREPRISE_USR_ID") = "" Session("ENTREPRISE_USR_SOCIETE") = "" Response.Redirect "login.asp" end if '====================================================================================== '--- VALIDATION DU FORMULAIRE '====================================================================================== if ( Request.Form("validation") = 1 ) then Dim strSQLCheckAcces 'strSQLCheckAcces = "" & _ ' "select " & _ ' "ENTREP_ID, " & _ ' "ENTREP_RAISON_SOCIALE, " & _ ' "ENTREP_LOGIN, " & _ ' "ENTREP_PASSWORD " & _ ' "from " & _ ' "ENTREPRISES " & _ ' "where " & _ ' "ENTREP_LOGIN = '" & Request.Form("login") & "' " & _ ' "and ENTREP_PASSWORD = '" & Request.Form("password") & "' " If VerifAuthForm(Request.Form("password")) And VerifAuthForm(Request.Form("login")) Then strSQLCheckAcces = "" & _ "select " & _ "ENTREP_ID, " & _ "ENTREP_RAISON_SOCIALE, " & _ "ENTREP_LOGIN, " & _ "ENTREP_PASSWORD " & _ "from " & _ "ENTREPRISES " & _ "where " & _ "ENTREP_LOGIN = '" & Request.Form("login") & "'" Dim objRSCheckAcces Set objRSCheckAcces = RetrieveData(objConnection, strSQLCheckAcces) If ( objRSCheckAcces.RecordCount ) Then If objRSCheckAcces("ENTREP_PASSWORD")= Request.Form("password") Then Session("ENTREPRISE_USR_ID") = objRSCheckAcces("ENTREP_ID") Session("ENTREPRISE_USR_SOCIETE") = objRSCheckAcces("ENTREP_RAISON_SOCIALE") Response.Redirect "index.asp" End If End if End If strMessage = "Identifiant ou mot de passe incorrect" end if %> <% PageTitle = "Recruter nos diplômés" MetaDescription = "" MetaKeywords = "" IdMenu = "A3" 'Si on laisse vide, titre de la rubrique "IdMenu" par defaut TitleMenuP = "" %> <% showHeader() %> <% '============================= 'SUITE MENU GAUCHE '============================= %>

ESC DIJON PRATIQUE

<%=objMakemenu.InfosPratiques%>
<% '============================= 'FIN MENU GAUCHE '============================= %>
<% '============================= 'DEBUT CONTENU PAGE '============================= %>

Recruter nos diplômés

Cet espace vous est réservé !

Faîtes connaitre vos offres d'emplois, vos offres de stages et accédez à tous nos autres services.

Vous êtes déjà enregistré

Si vous avez déjà vos paramètres de connexion, veuillez simplement les saisir...

<% if ( Len(strMessage) > 0 ) then %> <% end if %>
<%= strMessage %>
Identifiant :
Mot de passe :

Vous n'êtes pas enregistré

Si vous n'êtes pas enregistré, vous pouvez vous inscrire gratuitement.

Contact

Laurence Cadet
Tel: +33 (0)380 725 950
laurence.cadet@escdijon.eu

<% '============================= 'FIM CONTENU PAGE '============================= %>
<% showFooter() %>