<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Espace Interne Relation Clients --- VertBaudet - SomeWhere - Cyrillus</title>
<link href="../../style_principal.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<% response.Cookies("page_visite") = 302 %>
<!-- #include file="../../control.asp"-->
<!-- #include file="../../regular.asp"-->
</head>
<!-- #include file="../../_connexion_intranet.asp"-->
<body class="body_page_nav">
<span class="Titre_Haut_de_Page">Procédures</span>
<hr class="HR_Sous_titre">
<%
rep = Request.QueryString("rep_cible")
if rep = "" then
rep = "D:\Inetpub\IntranetRCRCFB\pages\certification\procedure"
rep_affichage = ""
else
rep_affichage = trim(right(rep,(len(rep)-45)))
end if
'Response.Write("rep : " & rep & "<br>")
'Response.Write("rep_affichage : " & rep_affichage & "<br>")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
set Folder = FSO.GetFolder(rep)
'set fc = foldPt.Files
%>
<table align="center" class="Table_pointillee" cellpadding="8" cellspacing="1" width="440">
<tr>
<td colspan="2">
<%
tableau=split(rep_affichage,"\",-1,1)
longueur = ubound(tableau) + 1
'Response.Write(longueur & "<br>")
if longueur > 0 then
lien = "D:\Inetpub\IntranetRCRCFB\pages\certification"
i = 0
for each j in tableau
i=i+1
if i = longueur then
Response.Write("<b>" & j & "</b> \ ")
else
lien = lien & "\" & j
Response.Write("<a href=""affi_procedure.asp?rep_cible=" & lien & """>" & j & "</a> \ ")
end if
next
end if
%>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<%
'Lister les répertoires ...
set fc = Folder.SubFolders
for each f in fc
%>
<tr>
<td width="40" align="center">
<%
select case lcase(f.name)
case "cyrillus"
%><img src="../../pics/dossier_cy.gif" border="0"><%
case "vertbaudet"
%><img src="../../pics/dossier_vb.gif" border="0"><%
case "somewhere"
%><img src="../../pics/dossier_sw.gif" border="0"><%
case else
%><img src="../../pics/dossier.gif" border="0"><%
end select
%>
</td>
<td width="400" align="left">
<%
rep_cible = rep & "\" & f.name
%>
<a href="affi_procedure.asp?rep_cible=<%=rep_cible%>">
<%=f.name%>
</a>
</td>
</tr>
<% next%>
<%
set fc = Folder.Files
for each f in fc
%>
<tr>
<td width="40" align="center">
<%
extension = right(f.name, 3)
select case extension
case "xls"
%><img src="../../pics/icon_excel.gif" border="0"><%
case "doc"
%><img src="../../pics/icon_word.gif" border="0"><%
case "pdf"
%><img src="../../pics/icon_pdf.gif" border="0"><%
case else
%><img src="../../pics/icon_file.gif" border="0"><%
end select
%>
</td>
<td width="400" align="left">
<%
lien = rep & f.name
lien = replace (lien, "\" , "/")
%>
<a href="<%=lien%>" target="_blank">
<%=f.name%>
</a>
</td>
</tr>
<%
next
%>
</table>
<hr class="HR_Standard">
</body>
</html>
Partager