<%@ Language=VBScript %>
<%
option explicit
' constantes ADO
const adOpenForwardOnly = 0
const adOpenKeyset = 1
const adOpenDynamic = 2
const adOpenStatic = 3
const adLockReadOnly = 1
const adLockPessimistic = 2
const adLockOptimistic = 3
const adLockBatchOptimistic = 4
const adStateOpen = 1
const adStateClosed = 0
const adChar = 129
const adParamInput = 1
' la connexion
dim cnx
' ouverture de la connexion
sub ouvrirConnection()
set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "file name=" & Server.MapPath("../connexion.udl")
end sub
' fermeture de la connexion
sub fermerConnection()
cnx.Close
set cnx = nothing
end sub
sub afficherSommaire()
dim rs
dim sql
sql = "select distinct rubrique, tri_rubrique from rapports order by tri_rubrique desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,cnx,adOpenStatic,adLockReadOnly
%>
|
<%
while not rs.EOF
%>
"><%= rs.Fields("rubrique").Value %>
<%
if rs.AbsolutePosition <> 0 and rs.AbsolutePosition <> rs.RecordCount then response.Write(" | ")
rs.movenext
wend
rs.Close
set rs = nothing
%>
|
<%
end sub
sub afficherRapports(selection)
dim rs
dim cmd
dim rubriqueA
dim rubriqueB
dim sous_rubrique
dim description
dim fichier_a_voir
dim fichier_a_telecharger
dim date_creation
dim taille_fichier_a_telecharger
dim taille_fichier_a_voir
rubriqueA=""
rubriqueB=""
set cmd = Server.CreateObject("ADODB.Command")
with cmd
.activeconnection = cnx
.commandtext = "SELECT * FROM RAPPORTS WHERE rubrique = ? ORDER BY tri_sous_rubrique DESC"
.parameters.append .createparameter("p1",adChar,adParamInput,len(selection),selection)
set rs = cmd.execute()
end with
while not rs.EOF
rubriqueA = rs.Fields("rubrique").Value
if rubriqueA <> rubriqueB then
%>
| |
<%= rubriqueA %>
|
Création |
Voir et taille en octets |
Télécharger taille en octets |
<%
end if
rubriqueB = rubriqueA
sous_rubrique = rs.Fields("sous_rubrique").Value
description = rs.Fields("description").Value
fichier_a_voir = rs.Fields("fichier_a_voir").Value
fichier_a_telecharger = rs.Fields("fichier_a_telecharger").Value
date_creation = rs.Fields("date_creation").Value
taille_fichier_a_telecharger = rs.Fields("taille_fichier_a_telecharger").Value
taille_fichier_a_voir = rs.Fields("taille_fichier_a_visualiser").Value
%>
| |
<%
if rs.Fields("nouveau").Value = True then
Response.Write(" ")
end if
%>
|
<%= sous_rubrique %>
<%
if len(description) <> 0 then Response.Write(" : " & description)
'if len(date_creation) <> 0 then Response.Write(" - " & date_creation)
%>
|
<% if len(date_creation) <> 0 then %>
<%= date_creation %>
<% else %>
<% end if %>
|
<%
if rs.Fields("fichier_a_voir").Value <> "" and not isNull(rs.Fields("fichier_a_voir").Value) then %>
");return document.MM_returnValue" onMouseOut="MM_displayStatusMsg('');return document.MM_returnValue">
<%
if len(taille_fichier_a_voir) <> 0 then
%>
<%= taille_fichier_a_voir %>
<%
end if
else
%>
<% end if %>
|
<% if rs.Fields("fichier_a_telecharger").Value <> "" and not isNull(rs.Fields("fichier_a_telecharger").Value) then %>
");return document.MM_returnValue" onMouseOut="MM_displayStatusMsg('');return document.MM_returnValue">
<%
if len(taille_fichier_a_telecharger) <> 0 then
%>
<%= taille_fichier_a_telecharger %>
<%
end if
else
%>
<% end if %>
|
| |
<%
rs.MoveNext
wend
rs.Close
set rs = nothing
end sub
%>
Institut d'aménagement de la Vilaine/Rapports
 |
|
|
| Pour
le bon suivi de la diffusion des rapports et de leurs modifications,
il serait pratique que vous adressiez au secrétariat du SAGE
un courrier électronique (en cliquant sur Nous contacter)
indiquant les dossiers et cartes que vous avez téléchargés.
Nouveau
|
<%
ouvrirConnection
afficherSommaire
%>
| |
<%
if request.QueryString("selection") <> "" then afficherRapports(request.QueryString("selection"))
fermerConnection
%>
|
Consultez
et enregistrez nos documents dans les meilleures conditions avec
|
|
