<%
'on error resume next
Dim RS
Dim RS_numRows
Dim IdEmploye
Dim URL1
Dim URL2
Dim URL3
DIm URL4
dim Client
Dim DesURL1
Dim DesURL2
Dim DesURL3
Dim DesURL4
'Récupération des données de session
IdEmploye = Session("IdUser")
Client = Session("NomUser")
'Définition du RS avec les données d'identification
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_ArniquaDB1_STRING
RS.Source = "SELECT * FROM TblIdentite "
RS.CursorType = 2
RS.CursorLocation = 3
RS.LockType = 2
RS.Open()
RS_numRows = 0
Rs.Find "Login= '" &Client& "'"
URL1 = RS("URL1")
URL2 = RS("URL2")
URL3 = RS("URL3")
URL4 = RS("URL4")
'Si c un employe j'affiche la page d'administration du site selon les droits du collaborateur
if RS("IdEmploye") <> 0 then
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.ActiveConnection = MM_ArniquaDB1_STRING
RS1.Source = "SELECT * FROM TblEmploye where IdEmploye=" & CStr(RS("IdEmploye")) & ";"
RS1.CursorType = 2
RS1.CursorLocation = 3
RS1.LockType = 2
RS1.Open()
RS1_numRows = 0
%>
Bienvenue dans l'interface d'administration du site
Arniqua
Vous avez la possibilité de :
<%
'Si le collaborateur a le droit d'administrer les liens du site le lien s'affiche
If RS1.EOF Then
Response.Write "
Aucun droit"
Response.Write ""
Response.Write ""
Response.End
End If
if RS1.Fields("Liens") = true then
%>
<%
end if
'Si le collaborateur a le droit d'administrer les emplois du site le lien s'affiche
if RS1("Emploi") = true then
%>
<%
end if
'Si le collaborateur a le droit d'administrer les références du site le lien s'affiche
if RS1("References") = true then
%>
<%
end if
'Si le collaborateur a le droit d'administrer les collaborateurs le lien s'affiche
if RS1("Employes") = true then
%>
<%
end if
'Si le collaborateur a le droit d'administrer les collaborateurs le lien s'affiche
if RS1("Acces") = true then
%>
<%
end if
'Si le collaborateur a le droit de changer de mot de passe le lien s'affiche
if RS("ChgPwd") = true then
%>
<%
end if
else
'Si l'internaute est un client la page clients s'affiche
%>
Bienvenue dans l'espace clients
Vous avez la possibilité de :
<%
'S'il n'a que URL1 comme lien à disposition la redirection vers URL1 se fait automatiquement
if ((URL2="http://" or isnull(URL2)=true) and (URL3="http://" or isnull(URL3)=true)and (URL4="http://" or isnull(URL4)=true)) then
Response.write(URL1)
Response.Redirect(URL1)
Response.end
else
'Sinon il affiche les liens vers les URLs qu'il peut atteindre dans le site
'URL1
if (RS("URL1")<>"" and RS("URL1")<>"http://") then
%>
<%
end if
'URL2
if (RS("URL2")<>"" and RS("URL2")<>"http://")then
%>
<%
end if
'URL3
if (RS("URL3")<>"" and RS("URL3")<>"http://") then
%>
<%
end if
'URL4
if (RS("URL4")<>"" and RS("URL4")<>"http://") then
%>
<%
end if
end if
end if%>
