<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if session("NomUser")= "" then Response.write("Vous n'êtes pas identifié, veuillez vous identifier ici") Response.End else Dim RSIdentite Set RSIdentite = Server.CreateObject("ADODB.Recordset") RSIdentite.ActiveConnection = MM_ArniquaDB1_STRING RSIdentite.Source = "SELECT IdEmploye, Emploi FROM TblEmploye WHERE IdEmploye ="&session("IdUser") RSIdentite.CursorType = 2 RSIdentite.CursorLocation = 3 RSIdentite.LockType = 2 RSIdentite.Open() RSIdentite_numRows = 0 If RSIdentite("Emploi") = false then Response.Write("
Vous n'avez pas le droit d'administrer les offres d'emploi
") Response.Write("Veuillez vous référer à l'administrateur du site") Response.write(" retour
") Response.End End if end if %> <% dim reponse dim envoyer dim image 'Récupère les données reponse = request("reponse") envoyer = request.QueryString("envoyer") image = request("image") %> Emplois
Accueil > Administration > Administrer les emplois > Ajouter une offre

<% 'sinon message d'erreur else if envoyer="non" then %> Un problème a été signalé lors de l'enregistrement de l'offre

<% end if %> <% end if %>

AJOUTER UNE OFFRE D'EMPLOI EN IMAGE
Envoyer d'abord l'image et ensuite compléter les caractéristiques
<% 'si ok affiche message de réussite if envoyer="oui" then%> L'offre a été enregistrée sur le serveur 
Image :
 
<% 'si erreur affiche le numéro de l'erreur if reponse="erreur" then Response.Write "Erreur N°"& " " &Err.number Response.Write "Il y a eu une erreur dans l'envoi du formulaire" %> <% else if reponse="juste" then %> L'image a été enregistrée
<% end if end if %>
<% if image <> "" then %>
Afficher l'offre
    
   
<% end if %>