BD avec ordre de rendez vous, a optimiser

Bon je gere des rendez vous au 15 min et meme 2 des fois
Presetement je fais un request pour  chaque heure de rendez vous, si rendez vous affiche, si nom des ligne pointille ou diner ou autre chose
donc tres long a faire la demande au serveur 2 a 3 seconde , a chaque refresh de la page (a jout de rendez vous ou suppression)

Ps. pour les rendez vous je gere plein de chose suplementaire, si paye , a paye , pas venu , affiche d'un autre couleur..., et les heure
d'ouverture sont pas les meme pour chaque jour

peu etre passe par un tableau interne, ou cree un BD temporaire pour la semiane , une par jour (jour1, jour2...)
je ne sais plus

un bout du cote plus bas
Base de donne access(plus de 5000+ rendez vous, 100 par semaine)
merci oli

vendredi 31 Mars (20)
8:30	-----------------
8:45	-----------------
9:00	un nom ici
9:15	Un autre
9:30	Un autre
9:30	Un autre
9:45	-----------------
10:00	Un autrel
10:15	Un autre
10:15	Un autre
10:30	-----------------
10:45	Un autre
11:00	Un autre
11:15	Un autre
11:30	Laisse Libre
11:45	Laisse Libre
12:00	Pause pour la bouffe
12:15	Pause pour la bouffe
12:30	Pause pour la bouffe
12:45	Pause pour la bouffe
13:00	Un autre
13:15	Un autre
13:30	Un autre
13:45	-----------------
14:00	Un autre
14:15	Un autre
14:30	Un autre
14:45	-----------------
15:00	Un autre
15:15	-----------------
15:30	Un autre
15:45	Un autre
16:00	Un autre
16:15	Laisse Libre
16:30	Laisse Libre

un bout du code
if jour<>5 then
    'tous les jour sauve jeudi
    Minutes=30
    Heures=8
    FinMinutes=30
    FinHeures=16
else
    ' jeudi
    Minutes=30
    Heures=9
    FinMinutes=0
    FinHeures=20
end if
        QuartMin=minutes/15
        MinutesDebut=Minutes
        HeureDebut=Heures

    ' fin du en tete, debut remplir tableau
   
   
    rs.Open "SELECT * FROM Agenda WHERE ( (InStr(date,'"&DateFormatAcces&"')<>0) AND (Action='Actif' OR Action='Paye' OR Action='Fact' OR Action='Pas' OR Action='Ctrl')) ORDER BY Heure , QuartHeure", conn, 3, 3
    MaxEnr=Rs.recordcount
                        
      
           do while not Rs.eof   

                    RefClient=Rs.Fields("RefClient")
                    IdAgenda=Rs.Fields("IdAgenda")
                    RefFacture=Rs.Fields("RefFacture")
                    RefFacture2=Rs.Fields("RefFacture")
                    QuartHeure=Rs.Fields("QuartHeure")
                    Heure=Rs.Fields("Heure")
                    Mode=Rs.Fields("Mode")
                    RefItems=Rs.Fields("RefItems")
                    Action=Rs.Fields("Action")

                   
                    if RefFacture=0 then
                        RefFacture=""
                        LaClasse="STYLE=""COLOR: "& rendezvous& ";"""
                    else
                        RefFacture=" <font style='FONT-SIZE: 9px;'>" & RefFacture & "</font>"
                        RefFacture=RefFacture & "<font style='FONT-SIZE: 8px;'>" & left(mode,2)
                        If RefItems=2 then
                            LaClasse="STYLE=""COLOR: "& payerEnf & ";"""
                            else                       
                            LaClasse="STYLE=""COLOR: "& payer & ";"""
                        end if   
                        If RefItems=7 then LaClasse="STYLE=""COLOR: "& payerNew & ";"""
                    end if   
                    Note=trim(Rs.Fields("Commentaire"))
                    if note<>"" then NoteAffiche="Note" else NoteAffiche=""
                    'if Telephone<>"" then Rs.Fields("Telephone")=Telephone

          
           if Action="Pas" then LaClasse="STYLE=""COLOR: "& enretard& ";"""
           if Action="Fact" then LaClasse="STYLE=""COLOR: "& recevoir& ";"""
           if Action="Ctrl" then LaClasse="STYLE=""COLOR: "& ctrl & ";"""
           if minutes=0 Or minutes=30 then inversion="CLASS=""boxcontent"" " else inversion=""
        'if minutes=0 then unautre="0" else unautre=""
       
                                      
        'If (minutes=QuartHeure*15 AND Heures=Heure) OR Heure<HeureDebut OR Heure>=FinHeures then
        If (minutes=QuartHeure*15 AND Heures=Heure) OR Heure<HeureDebut OR (Heure=FinHeures AND Minutes>FinMinutes) OR Heure>FinHeures then

                       'if unautre="0" and QuartHeure=0 then unautre="0" else unautre=""
                       if (minutes=0 Or minutes=30)  AND (QuartHeure=0 or QuartHeure=2) then inversion="CLASS=""boxcontent"" " else inversion=""
                      
                    if (Minutes=FinMinutes AND Heures=FinHeures) then
                        enbas="border-bottom:  1px solid #000000;"
                    else
                        enbas=""   
                    end if
                   
                    if QuartHeure=0 Then unautre="0" else unautre=""
                   
%> 
  <tr width=190>
    <td width="10%" align="center" STYLE="padding:0; border-left: 1px solid #000000; <%=enbas%>" <%=inversion%>><%=Heure%>:<%=QuartHeure*15%><%=unautre%></td>
    <td width="90%" <%=Laclasse%> align="center" STYLE="padding:0; border-right: 1px solid #000000; <%=enbas%>"<%=inversion%>><a <%=Laclasse%> HREF="javascript:Winpopup('../rendezvous.asp?idclient=<%=Refclient%>&heures=<%=heure%>&quartmin=<%=QuartHeure%>&daterendez=<%=formatdatetime(datejour,2)%>&Fenetre=<%=fenetre%>&IdAgenda=<%=IdAgenda%>&RefFacture=<%=RefFacture2%>&Nom=<%=Session("LesNom"& refclient)%>')" title="Dernier <%=Session("Last"& refclient)%> et Age:<%=Session("Age"& refclient)%>"><%=Session("LesNom"& refclient)%> <%=RefFacture%></a>  <a  title="<%=note%>" ><i><%=noteaffiche%></i></a></td>
  </tr>
<%           
                    Rs.MoveNext
                    if not Rs.eof then
                        QuartHeure=Rs.Fields("QuartHeure")
                        Heure=Rs.Fields("Heure")
                        If not(minutes=QuartHeure*15 AND Heures=Heure) then
                            QuartMin=QuartMin+1
                            minutes=minutes+15
                            if minutes=60 then
                                minutes=0
                                QuartMin=0
                                Heures=heures+1
                            end if
                        end if
                    else
                        QuartMin=QuartMin+1
                            minutes=minutes+15
                            if minutes=60 then
                                minutes=0
                                QuartMin=0
                                Heures=heures+1
                            end if
                   
                    end if

re bonjour
Une petit erreur
Presetement je fais un request pour  chaque heure de rendez vous,

S'est pour chaque jour et non chaque heure, mais c'est long quand meme il y a des verification a faire, si c'est la bonne heure le rendez vous si non , il faut ajouter une ligne pointiller..
ainsi de suite