<TR><TD align=center width="91%" bgcolor="#FFFFCC">
<P style="margin-top: 0; margin-bottom: 0"><b>
<font color='#008000' size='4' face='Tahoma'>
<%
dim conn
dim LibNom
dim rs
dim sql
Dim ChaineConnexion
Dim LoginConnexion
Dim MotDePasseConnexion
ChaineConnexion="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Bases/Base_don.mdb")
LoginConnexion=""
MotDePasseConnexion=""
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ChaineConnexion, LoginConnexion, MotDePasseConnexion
sql = "SELECT Nom, Prénoms, Agence FROM RqtDatesBis;"
set rs=conn.execute(sql)
LibNom = ""
Do while not rs.eof
LibNom = rs("Prénoms") & " " & rs("Nom") & " - " & rs("Agence")
response.write("<p><i>" & LibNom)
rs.movenext
Loop
If LibNom = "" then
response.write("<p align='center'><font color='#000000' size='2' face='Tahoma'>AUCUN pour AUJOURD'HUI !</font></p>")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</font></b></TD></TR>