1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| <%
function gest_habilit_conges()
dim login
dim sqlhab
dim rshab
login = Session("login")
droit = ""
' on va vérifier que l'utilisateur est bien rattaché à un skill
sqlhab = " Select 1 from employee, entite "
sqlhab = sqlhab & " where employee.uid = '" & login & "'"
sqlhab = sqlhab & " and entite.numero = employee.skillgroup "
set rshab = CreerRS(sqlhab,1,3,1)
if rshab.eof then
droit="INCONNU"
Response.Redirect(Application("rep_install")& "/services/conges/interdit.asp")
end if
................. |