<% Set objConn = CreateObject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/App_Data/back.mdb")) Set RsListerChambre = CreateObject("ADODB.Recordset") Set RsListerChambre.ActiveConnection = objConn RsListerChambre.locktype = 2 RsListerChambre.CursorLocation = 3 RsListerChambre.open("Select * from chambre") Set RsListerEntete = CreateObject("ADODB.Recordset") Set RsListerEntete.ActiveConnection = objConn RsListerEntete.locktype = 2 RsListerEntete.CursorLocation = 3 RsListerEntete.open("Select * from Debut") %> Au coeur de la ville de Qu�bec, L'Auberge Maison Roy est l'endroit tout indiqu� pour votre s�jour dans la vieille capitale.
 
 
 
 
 
 
     
 

LISTE DE PRIX

 
     
  <%=RsListerEntete("Entete")%>  
     
  <% x = 2 do while not RsListerChambre.eof if (x mod 2) = 0 then fondcell = "#FCFCED" else fondcell = "#FFFFFF" end if if RsListerChambre("OccSimple") = "" then DspOccSimple = "-----" else DspOccSimple = RsListerChambre("OccSimple") & "" end if if RsListerChambre("OccDouble") = "" then DspOccDouble = "-----" else DspOccDouble = RsListerChambre("OccDouble") & "" end if if RsListerChambre("OccTriple") = "" then DspOccTriple = "-----" else DspOccTriple = RsListerChambre("OccTriple") & "" end if if RsListerChambre("OccQuadruple") = "" then DspOccQuadruple = "-----" else DspOccQuadruple = RsListerChambre("OccQuadruple") & "" end if if RsListerChambre("DeuxAdulte") = "" then DspDeuxAdulte = "-----" else DspDeuxAdulte = RsListerChambre("DeuxAdulte") & "" end if %> <% x = x +1 RsListerChambre.movenext loop %>
Chambres Occ. Simple Occ. Double Occ. Triple Occ. Quadruple 2 adultes et 2 enfants  
<%=RsListerChambre("Nochambre")%>
 <%=DspOccSimple%>
 <%=DspOccDouble%>
 <%=DspOccTriple%>
 <%=DspOccQuadruple%>
 <%=DspDeuxAdulte%>
<%=RsListerChambre("Remarque")%>
 
     
  Lit pliant sur demande.
Lavabo dans chaque chambre.
Petit déjeuner $2.49.
Taxes en sus.
Visa - Master Card - Argent - Chèque de voyage