Discussion :

[avaya969]

Bonjour,
Je suis actuellement en stage pour un service IT dans un grande société qu'il est inutile de citer.

Un des projets que je doit réaliser et la 'migration' du site intranet sur Joomla pour en faciliter la future administration ( NB : j'ai un niveau assez faible en php, zéro connaissance en asp et je manipule Joomla depuis le début de mon stage c'est a dire début mars ).

Un 'élément' du site me pose problème, il s'agit d'une page en .asp qui permet aux employés de l'entreprise de réserver des salles (4) selon un calendrier et un planning horaire. Après de nombreuses recherches de module, composant, ou même de script php indépendant ; je vous soumet le script d'origine en asp afin de savoir si éventuellement l'un d'entre vous serait capable de le 'traduire/convertir' en php, ou bien de le transformer en module/composant joomla ?

<%@LANGUAGE="VBSCRIPT"%>
<% Response.Expires = 0 %>
<!--#include file="../Connections/EXPERIAN_INTRANET.asp" -->
<% ' *********************** Module login / pwd à créer
' ************************* MODELISATION
'Session("login") = "toto@toto.com"
'Session("reservation") = 1
' ***********************************************
'response.write "<p>Session Call : "& Session("call")& "</p>"

if request.querystring("date") <> "" then
ddate = CDate(request.querystring("date"))
Else
'ddate = FormatDateTime(Date(),1)
ddate = Date()
End if
%>
<%
Dim RsSalle
Dim RsSalle_numRows

Set RsSalle = Server.CreateObject("ADODB.Recordset")
RsSalle.ActiveConnection = MM_EXPERIAN_INTRANET_STRING
RsSalle.Source = "SELECT * FROM SALLE WHERE Salle <= 4 and resa= #" & ddate & "#"
'RsSalle.Source = "SELECT * FROM SALLE WHERE resa > Now()"
'RsSalle.Source = "SELECT * FROM SALLE"
RsSalle.CursorType = 0
RsSalle.CursorLocation = 2
RsSalle.LockType = 1
RsSalle.Open()

RsSalle_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RsSalle_numRows = RsSalle_numRows + Repeat1__numRows
%>
<%'option explicit%>
<%response.buffer=true%>
<%
Dim nLang ' Langue utilisée / Language
Dim nDate ' Date du calendrier / Calendar date
Dim nURL ' URL de la page / URL of the HTML document
Dim nDatePrev ' Mois précédent / Previous month
Dim nDateSuiv ' Mois suivant / Next month
Dim nJour ' Jour du calendrier / Calendar day
Dim nMois ' Mois du calendrier / Calendar month
Dim nAnnee ' Année du calendrier / Calendar year
Dim nDate1 ' Date du premier jour du mois / First day date
Dim nJour2 ' Dernier jour du mois / Last day
Dim nDate2 ' Date du dernier jour du mois / Last day date
Dim nDateDebut ' Première journée de la semaine / First weekday
Dim nDateFin ' Dernière journée de la semaine / Last weekday
Dim nbrCase ' Nombre de case total du calendrier / Total cells
Dim nNomJour ' Jour de la semaine pour boucle / weekday loop
Dim n ' Compteur pour boucle / loop

' '''''''''''''''''''''''''''''''''''''''''''
' en = english
' autre = langue des tableaux plus bas
' other = array language, see nMoisNom...
' '''''''''''''''''''''''''''''''''''''''''''
nLang = "en"

' '''''''''''''''''''''''''''''''''''''''''''
' Récupération de la date du la requète http
' Utilisation de la date courrante si aucune.
' '''''''''''''''''''''''''''''''''''''''''''
if request("date") = "" then
nDate = Date()
else
nDate = cDate(request.querystring("date"))
end if

' '''''''''''''''''''''''''''''''''''''''''''
' Configuration des variables
' '''''''''''''''''''''''''''''''''''''''''''
nURL = Request.ServerVariables("URL")
nDatePrev = DateAdd("m", -1, nDate)
nDateSuiv = DateAdd("m", 1, nDate)
nJour = Day(nDate)
nMois = Month(nDate)
nAnnee = Year(nDate)
nDate1 = DateSerial(nAnnee, nMois, 1)
Dim nTemp
nTemp = DateAdd("m", 1, nDate1)
nJour2 = Day(DateAdd("d", -1, nTemp))
nDate2 = DateSerial(nAnnee, nMois, nJour2)
nDateDebut = WeekDay(nDate1, vbSunday)
nDateFin = WeekDay(nDate2, vbSunday)
nbrCase = Day(nDate2) + (nDateDebut-1) + (7-nDateFin)
nNomJour = 1

' '''''''''''''''''''''''''''''''''''''''''''
' Changer les deux tableaux suivant
' si vous désirez une autre langue.
' '''''''''''''''''''''''''''''''''''''''''''
'---- Mois en français ----
Dim nMoisNom(12)
nMoisNom(0) = "Mois"
nMoisNom(1) = "Janvier"
nMoisNom(2) = "F&eacute;vrier"
nMoisNom(3) = "Mars"
nMoisNom(4) = "Avril"
nMoisNom(5) = "Mai"
nMoisNom(6) = "Juin"
nMoisNom(7) = "Juillet"
nMoisNom(8) = "Ao&ucirc;t"
nMoisNom(9) = "Septembre"
nMoisNom(10) = "Octobre"
nMoisNom(11) = "Novembre"
nMoisNom(12) = "D&eacute;cembre"

'---- Jours abrégé en français ----
Dim nJourAbr(7)
nJourAbr(0) = "Jour"
nJourAbr(1) = "Dim"
nJourAbr(2) = "Lun"
nJourAbr(3) = "Mar"
nJourAbr(4) = "Mer"
nJourAbr(5) = "Jeu"
nJourAbr(6) = "Ven"
nJourAbr(7) = "Sam"
%>
<!-- ************************************************************ -->
<!-- * Coller tout le code précédent avant votre document HTML * -->
<!-- ************************************************************ -->
<html><!-- InstanceBegin template="/Templates/experian_page.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Intranet : R&eacute;servation de salles</title>
<!-- InstanceEndEditable --><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/experian.css" rel="stylesheet" type="text/css">
<!-- InstanceBeginEditable name="head" -->
<!-- ******************************************************* -->
<!-- * Coller ce code dans le HEAD de votre document HTML * -->
<!-- * Paste this code into the HEAD of your HTML document * -->
<!-- ******************************************************* -->
<style>
TH.calMois { font-size : 10px; font-weight: bold; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #ffffff; background : #7B849C; }
TD.calSing { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #7B849C; }
TD.calSemaine { font-size : 9px; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #B5B5C6; }
TD.calJour { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #C0C8D6; }
TD.calJour A { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #C0C8D6; text-decoration: none; }
TD.calJour A:hover { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #ffffff; background : #C0C8D6; text-decoration: none; }
TD.calJourSel { font-size : 9px; font-weight: bold; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #EEEEEE; }
.petit {
font-family: Arial, Helvetica, sans-serif;
font-size: 10px;
}
</style>
<!-- *********** -->
<!-- * Fin CSS * -->
<!-- * CSS end * -->
<!-- *********** -->
<!-- InstanceEndEditable -->
<script src="../scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>
<body bgcolor="#fff8f6">
<table border="1" cellpadding="0" cellspacing="0" width="900">
<tr>
<td><img src="../images_accueil/spacer.gif" width="13" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="172" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="205" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="9" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="220" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="8" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="219" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="43" height="1" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>

<tr>
<td colspan="12"><img name="intra1_r1_c1" src="../images_accueil/intra1_r1_c1.jpg" width="900" height="12" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="12" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="6"><img name="intra1_r2_c1" src="../images_accueil/intra1_r2_c1.jpg" width="13" height="598" border="0" alt=""></td>
<td colspan="2"><a href="../default.asp"><img name="intra1_r2_c2" src="../images_accueil/intra1_r2_c2.jpg" width="173" height="89" border="0" alt=""></a></td>
<td rowspan="3"><img name="intra1_r2_c4" src="../images_accueil/intra1_r2_c4.jpg" width="8" height="137" border="0" alt=""></td>
<td><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0','width','205','height','89','src','../flash/menu1a','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','../flash/menu1a' );
//end AC code
</script><noscript><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="205" height="89">
<param name="movie" value="../flash/menu1a.swf">
<param name="quality" value="high">
<embed src="../flash/menu1a.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="205" height="89"></embed>
</object></noscript></td>
<td rowspan="3"><img name="intra1_r2_c6" src="../images_accueil/intra1_r2_c6.jpg" width="9" height="137" border="0" alt=""></td>
<td><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0','width','220','height','89','src','../flash/menu2a','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','../flash/menu2a' ); //end AC code
</script><noscript><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="220" height="89">
<param name="movie" value="../flash/menu2a.swf">
<param name="quality" value="high">
<embed src="../flash/menu2a.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="220" height="89"></embed>
</object></noscript></td>
<td rowspan="3"><img name="intra1_r2_c8" src="../images_accueil/intra1_r2_c8.jpg" width="8" height="137" border="0" alt=""></td>
<td colspan="2"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0','width','220','height','89','src','../flash/menu3a','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','../flash/menu3a' ); //end AC code
</script><noscript><object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="220" height="89">
<param name="movie" value="../flash/menu3a.swf">
<param name="quality" value="high">
<embed src="../flash/menu3a.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="220" height="89"></embed>
</object></noscript></td>
<td rowspan="4" colspan="2"><img name="intra1_r2_c11" src="../images_accueil/intra1_r2_c11.jpg" width="44" height="182" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="89" border="0" alt=""></td>
</tr>
<tr>
<td colspan="2" bgcolor="#015CAE"><span class="grispetit">&nbsp;&nbsp;&nbsp;
<script language=JavaScript src="../scripts/aujourdui.js" type=text/javascript></script>
</span></td>
<td bgcolor="#015CAE" class="grispetit"><!-- InstanceBeginEditable name="chemindefer" -->&nbsp;&gt; R&eacute;servation Triangle <!-- InstanceEndEditable --></td>
<td bgcolor="#015CAE" class="grispetit">
<% if session("login") <> "" then %>
&nbsp;&nbsp;> Vous êtes logué
<% Else %>
<table width="220" border="0" cellpadding="0" cellspacing="0">
<form name="SELOGUER" action="../fiche/code-login.asp" method="post">
<tr>
<td class="grispetit">&nbsp;LOG</td>
<td><span class="normalpetit">
<input name="login" type="text" size="6">
</span></td>
<td class="grispetit">PWD</td>
<td><span class="normalpetit">
<input name="pwd" type="password" size="6">
</span></td>
<td width="20"><input name="GO2" type="image" id="GO2" src="../images_accueil/rechercher-go-new.jpg" width="25" height="28"></td>
</tr>
</form>
</table>
<% End if %>
</td>
<td colspan="2" bgcolor="#015CAE"><table width="220" height="28" border="0" cellpadding="0" cellspacing="0">
<form name ="MOTEUR" action="../searchUPLOAD.asp" method="GET">
<tr>
<td class="normalpetit">&nbsp;&nbsp;
<input name="searchPhrase" type="text" size="12"></td>
<td align="right" class="grispetit"><input name="GO" type="image" id="GO" src="../images_accueil/rechercher.jpg" width="109" height="28"></td>
</tr>
</form>
</table></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="28" border="0" alt=""></td>
</tr>
<tr>
<td colspan="2"><img name="intra1_r4_c2" src="../images_accueil/intra1_r4_c2.jpg" width="173" height="20" border="0" alt=""></td>
<td><img name="intra1_r4_c5" src="../images_accueil/intra1_r4_c5.jpg" width="205" height="20" border="0" alt=""></td>
<td><img name="intra1_r4_c7" src="../images_accueil/intra1_r4_c7.jpg" width="220" height="20" border="0" alt=""></td>
<td colspan="2"><img name="intra1_r4_c9" src="../images_accueil/intra1_r4_c9.jpg" width="220" height="20" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="20" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2" background="../images_accueil/intra1_r5_c2.jpg"><img name="intra1_r5_c2" src="../images_accueil/intra1_r5_c2.jpg" width="1" height="453" border="0" alt=""></td>
<td colspan="2" rowspan="2" valign="top"><!-- InstanceBeginEditable name="icone" -->
<p><img src="../icones/reservation.jpg" width="180" height="200"></p>
<p align="center" class="normal">&nbsp;</p>
<p align="center" class="normal">&nbsp;</p>
<p align="center" class="normal">&nbsp;</p>
<p align="center" class="normal">Les caract&eacute;ristiques des<br>
salles : <a href="salle.asp?site=Triangle">cliquez ici </a></p>
<p align="center" class="normal"><img src="../images_accueil/message_reservation.gif" width="180" height="200"></p>
<p align="center" class="normal">&nbsp;</p>
<!-- InstanceEndEditable --></td>
<td colspan="5" valign="top"><!-- InstanceBeginEditable name="titre" -->
<h1>R&eacute;servation</h1>
<!-- InstanceEndEditable --></td>
<td rowspan="2"><img name="intra1_r5_c10" src="../images_accueil/intra1_r5_c10.jpg" width="1" height="453" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="45" border="0" alt=""></td>
</tr>
<tr>
<td colspan="5" valign="top" class="normal"><!-- InstanceBeginEditable name="texte" --><span class="implantation">Salles de r&eacute;union du Triangle &amp; Conf. call</span><!-- ******************************************************* -->
<!-- ************************ -->
<P>&gt;&gt; pour lire les infos d'une r&eacute;servation, positionner votre curseur dessus (bulle). </P>
<div id="Layer2" style="position:absolute; width:177px; height:115px; z-index:7; left: 15px; top: 331px;">
<table border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0">
<!-- D&eacute;but en-t&ecirc;te mois, ann&eacute;e et bouton -->
<!-- Start month, year and button header -->
<tr>
<th class="calMois"><a href="<%=nURL%>?date=<%=nDatePrev%>"><img src="b_prev.gif" width="14" height="13" border="0" vspace="2" align="absmiddle" alt="Mois pr&eacute;c&eacute;dent"></a></th>
<% if nLang = "en" then %>
<th colspan="5" class="calMois"><%=MonthName(nMois)%>&nbsp;<%=nAnnee%></th>
<% else %>
<th colspan="5" class="calMois"><%=nMoisNom(nMois)%>&nbsp;<%=nAnnee%></th>
<% end if %>
<th class="calMois"><a href="<%=nURL%>?date=<%=nDateSuiv%>"><img src="b_suiv.gif" width="14" height="13" border="0" vspace="2" align="absmiddle" alt="Mois suivant"></a></th>
</tr>
<!-- Fin en-t&ecirc;te mois, ann&eacute;e et bouton -->
<!-- D&eacute;but en-t&ecirc;te des jours -->
<tr>
<% for n = 1 to 7 %>
<% if nLang = "en" then %>
<td width="14%" align="center" valign="middle" class="calSemaine"><%=WeekDayName(n, true, vbSunday)%></td>
<% else %>
<td width="14%" align="center" valign="middle" class="calSemaine"><%=nJourAbr(n)%></td>
<% end if %>
<% next ' Boucle des noms du jour / WeekName for %>
</tr>
<!-- Fin en-t&ecirc;te des jours -->
<!-- D&eacute;but boucle des jours -->
<%
Dim njTemp
For n = 1 to nbrCase
njTemp = n - nDateDebut+1
if nNomJour = 1 then response.write "<tr>"
if (njTemp) = nJour then
response.write "<td align=""center"" valign=""middle"" class=""calJourSel"">"
else
response.write "<td align=""center"" valign=""middle"" class=""calJour"">"
end if
if n < (nDateDebut) or n > (nJour2+nDateDebut-1) then
response.write "&nbsp;"
else
if (njTemp) = nJour then
response.write (njTemp)
else
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&""">"
response.write (njTemp) & "</a>"
end if
end if
response.write "</td>"
if nNomJour = 7 then response.write "</tr>"
if nNomJour = 7 then nNomJour = 1 else nNomJour = nNomJour + 1 end if
next ' Boucle des jour / Day for
%>
<!-- Fin boucle des jours -->
<tr>
<td class="calSing" colspan="7"></td>
</tr>
</table>
</div>
<% ' **************************************** Table d'affichage des réservations de salles ********************** %>
<table width="530" align="left" class="petit">
<tr align="center" bgcolor="#99A9C2">
<td width="50" valign="bottom"><strong>Heure</strong></td>
<td width="120" valign="top"><strong>CIT&Eacute; DES SCIENCES<br>
<font color="#FFFFFF">7&egrave;me - 10pl<br>
Visio</font></strong></td>
<td width="120" valign="top" bgcolor="#99A9C2"><strong>OPERA<br>
&nbsp;<br>
<font color="#FFFFFF"> 7&egrave;me - 10pl<br>
</font></strong></td>
<td width="120" valign="top"><strong>SAINT- GERMAIN<br>
<font color="#FFFFFF"><br>
7&egrave;me - 10pl<br>
</font></strong></td>
<td width="120" valign="top" bgcolor="#FF9966"><strong>CONF. CALL<br>
<font color="#FFFFFF"><br>
Genesys Corporate<br>
</font></strong></td>
</tr>
<%
Dim Matrice (5,25)
For i=1 to 25
For j=1 to 5
if j=5 then
color="#FFDECE"
else
color="#CCCCCC"
End if
if (session("reservation") = 1 or session("reservation")=2) AND (j<>5 or (j=5 and Session("call")=1)) then
Matrice (j,i)= "<td bgcolor=""" & color & """ title=""Ins&eacute;rer une r&eacute;servation""><a href=""insertion-resa1.asp?resa="&ddate&"&salle="&j-1&"&h1="&i+15&"&lieu=1"">X</a> </td>"

Else
Matrice (j,i)= "<td bgcolor=""" & color & """> - </td>"
End if
Next
Next

While ((Repeat1__numRows <> 0) AND (NOT RsSalle.EOF))

h1 = RsSalle.Fields.Item("h1").Value
h2 = RsSalle.Fields.Item("h2").Value
salle = RsSalle.Fields.Item("salle").Value
Nom = RsSalle.Fields.Item("nom").Value
prenom = RsSalle.Fields.Item("prenom").Value
email = RsSalle.Fields.Item("email").Value
' ------------ couleur differente
if nb_couleur = 0 then couleur ="#CC4FF5"
if nb_couleur = 1 then couleur ="#99CC33"
if nb_couleur = 2 then couleur ="#124999"
if nb_couleur = 3 then couleur ="#FG4RT8"
if nb_couleur = 4 then couleur ="#44488F"
if nb_couleur = 5 then couleur ="#FFFFFF"
if nb_couleur = 6 then couleur ="#898989"
nb_couleur = nb_couleur +1
if nb_couleur = 10 then nb_couleur = 0
'---------- Fin couleur

' ------ ne va afficher en suppression que les enregistrement avec le bon login
if (email = session("login") and session("reservation")=1) or (session("reservation")=2) then
reserve = "RES. - <a href=""supp-resa1.asp?resa="& ddate &"&salle="& salle &"&h1="& h1 &"&h2="& h2 &"&email="& email &"&prenom="& prenom &"&nom="& Nom &"&lieu=1"">SUP</a>"
Else
reserve = "RES."
End if
for m=1 to ((h2-h1))
' ----------------- Fin RESERVE
Matrice(salle+1,(h1-15)+m-1) = "<td title=""R&eacute;serv&eacute; &agrave; " & Prenom & " - " & Nom & " par " & replace(email,"@experian.com","")& """ bgcolor="""&couleur&""">"&reserve&"</td>"
reserve = "RES."
next

Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RsSalle.MoveNext()
Wend

for i=16 to 40
Matrice (1,i-15)="<td valign=""top"" bgcolor=""#E6E6E6"" height=""17"">" & i/2 & "h</td>"
Matrice (1,i-15)=replace(Matrice (1,i-15),".5h","h30")
Next

for i = 1 to 25
response.write "<tr>"
for j=1 to 5
response.write Matrice(j,i)
Next
response.write "</tr>"
Next %>
</table>

<!-- InstanceEndEditable --></td>
<td background="../images_accueil/intra1_r6_c11.jpg"><img name="intra1_r6_c11" src="../images_accueil/intra1_r6_c11.jpg" width="1" height="408" border="0" alt=""></td>
<td><img name="intra1_r6_c12" src="../images_accueil/intra1_r6_c12.jpg" width="43" height="408" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="408" border="0" alt=""></td>
</tr>
<tr>
<td colspan="10"><img name="intra1_r7_c2" src="../images_accueil/intra1_r7_c2.jpg" width="844" height="8" border="0" alt=""></td>
<td><img name="intra1_r7_c12" src="../images_accueil/intra1_r7_c12.jpg" width="43" height="8" border="0" alt=""></td>
<td><img src="../images_accueil/spacer.gif" width="1" height="8" border="0" alt=""></td>
</tr>
</table>
</body>
<!-- InstanceEnd --></html>
<%
RsSalle.Close()
Set RsSalle = Nothing
%>

merci à ceux qui se pencheront sur mon cas