| |
 |
 |
<%
for i=1 to compteur
nomFichier = journees(i)
if Session("journee")=journees(i) then nomFichier=nomFichier&"_hi"
Response.Write("![]() | ")
next
%>
|
 |
: San Francisco, États
Unis |
|
 |
|
 |
| <%
if Session("journee")<>"" then
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; "& "DBQ=" & Server.MapPath(".") & "/breves.mdb; PWD=;"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open("SELECT * FROM BREVES WHERE (JOUR='"&Session("journee")&"' AND ZOOM=1) ORDER BY ORDRE DESC"),conn,3,3
if rs.RecordCount>0 then
rs.movefirst
%>
<%
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
|
|
|
|
|
 .gif"> |
<%
if Session("journee")="" then
%>
Merci de choisir l'une des
journées ci-dessous
<%
for i = 1 to compteur
%>
-<%=txtJournees(i)%>
<%
next
%>
|
<%
else
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; "& "DBQ=" & Server.MapPath(".") & "/breves.mdb; PWD=;"
' conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; "& "DBQ=/ejournaux/ats2007/breves/breves.mdb; PWD=;"
set rs=Server.CreateObject("ADODB.RecordSet")
set tmp=Server.CreateObject("ADODB.RecordSet")
rs.open("SELECT DISTINCT CATEGORIE, ORDRE FROM BREVES WHERE JOUR='"&Session("journee")&"' ORDER BY ORDRE DESC"),conn,3,3
if rs.RecordCount>0 then rs.movefirst
categorieEC="%%%---"
%>
<%
do until rs.EOF
if instr(categorieEC,rs("CATEGORIE")&"---")<1 then
tmp.open("SELECT * FROM BREVES WHERE (CATEGORIE='"&rs("CATEGORIE")&"' AND JOUR='"&Session("journee")&"') ORDER BY ORDRE DESC"),conn,3,3
if tmp.RecordCount>0 then tmp.Movefirst
Response.Write("![]() "&rs("CATEGORIE")&"
")
do until tmp.EOF
Response.Write("-"&tmp("TITRE")&"")
tmp.movenext
loop
Response.Write("
")
tmp.close
categorieEC=categorieEC&rs("CATEGORIE")&"---"
end if
rs.movenext
loop
if rs.RecordCount>0 then rs.movefirst
%>
|
|
<%
compteur = 0
categorieEC="%%%---"
do until rs.EOF
if instr(categorieEC,rs("CATEGORIE")&"---")<1 then
%>
| |
<%
Response.Write("
")
Response.Write(""&rs("CATEGORIE")&" | ")
%>
<%
tmp.open("SELECT * FROM BREVES WHERE (CATEGORIE='"&rs("CATEGORIE")&"' AND JOUR='"&Session("journee")&"') ORDER BY ORDRE DESC"),conn,3,3
if tmp.RecordCount>0 then tmp.movefirst
do until tmp.EOF
compteur = compteur+1
%>
<%
set blou=Server.CreateObject("ADODB.RecordSet")
blou.open("SELECT * FROM DIAPOSITIVES WHERE ID_BREVE="&tmp("ID")&" ORDER BY ORDRE DESC"),conn,3,3
if blou.RecordCount>0 then blou.MoveFirst
do until blou.EOF
%>
 " onclick="MM_openBrWindow('diapositives/<%=blou("ID_BREVE")&"_"&blou("ORDRE")&"."&blou("EXTENSION")%>','Figure','width=800,height=600')" border="0">
[+]','Figure','width=800,height=600')">Agrandir
<%
blou.movenext
loop
blou.close
set blou=nothing
%> |
<%
styleFond = "texteNormalFdbleu"
if (compteur MOD 2)=1 then styleFond = "texteNormalFdJaune"
Response.Write("")
Response.Write("")
Response.Write(" ")
Response.Write(" ")
Response.Write(" "&tmp("TITRE")&"")
if tmp("ABSTRACT")<>"" then Response.Write(" ("&tmp("ABSTRACT")&")")
Response.Write(tmp("CONTENT")&" ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | ")
if tmp("AUTEUR")>0 then
set blou=Server.CreateObject("ADODB.RecordSet")
blou.open("SELECT * FROM AUTEURS WHERE ID="&tmp("AUTEUR")),conn,3,3
Response.Write(blou("NOM")&" - ")
blou.close
set blou=nothing
end if
Response.Write("[Haut de page] | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | ")
Response.Write(" ")
Response.Write("
")
%>
|
<%
tmp.movenext
loop
tmp.close
categorieEC=categorieEC&rs("CATEGORIE")&"---"
end if
rs.movenext
loop
rs.close
set tmp=nothing
set rs=nothing
conn.close
set conn=nothing
end if
%>
| |
|
|
| |
Ceci est un compte-rendu de congres dont l’objectif
est de fournir des informations sur l’état actuel
de la recherche ; ainsi, les données présentées
sont susceptibles de ne pas être validées par la
commission d’autorisation de mise sur le marché
de l’agence française de sécurité
sanitaire des produits de santé (AFSSAPS) et ne doivent
donc pas être mises en pratique. |
|
|
|
|
|
