<%@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, Employes FROM TblEmploye WHERE IdEmploye ="&session("IdUser")
RSIdentite.CursorType = 2
RSIdentite.CursorLocation = 3
RSIdentite.LockType = 2
RSIdentite.Open()
RSIdentite_numRows = 0
If RSIdentite("Employes") = false then
Response.Write("
Vous n'avez pas le droit d'administrer les collaborateurs ")
Response.Write("Veuillez vous référer à l'administrateur du site ")
Response.write("retour
")
Response.End
End if
end if
%>
<%
Dim RS
Dim RS_numRows
Dim IdEmploye
Dim image
Dim envoyer
Dim reponse
'Récupération dans le titre des information du collaborateur et des infos d'envoi
image = request.QueryString("image")
envoyer = request.QueryString("envoyer")
reponse = request.QueryString("reponse")
IdEmploye = request("IdEmploye")
'Création du RS
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_ArniquaDB1_STRING
RS.Source = "SELECT * FROM TblEmploye"
RS.CursorType = 2
RS.CursorLocation = 3
RS.LockType = 2
RS.Open()
RS_numRows = 0
RS.Find "IdEmploye= "&IdEmploye
%>
Collaborateurs d'Arniqua, Conseil & Gestion
onLoad="TimerID = setTimeout('window.location.href=\'ajoutcv.asp?IdEmploye=<%=IdEmploye%>\';',1800);"<%end if%>>