<%DSN_BASE = "DBQ=" & Server.Mappath("inter/actualite.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25" Set conn = Server.CreateObject("ADODB.Connection") conn.Open DSN_BASE %> <% SQL = "SELECT * FROM der where situation=1 and cat=0 order by tate desc" SQL1 = "SELECT * FROM der where situation=1 and cat=1 order by tate desc" SQL2 = "SELECT * FROM der where situation=1 and cat=2 order by tate desc" SQL3 = "SELECT * FROM der where situation=1 and cat=3 order by tate desc" SQL4 = "SELECT * FROM der where situation=1 and cat=4 order by tate desc" SQL5 = "SELECT * FROM eve where situation=1 and cat=5 order by tate desc" Set rs = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") Set rs3 = Server.CreateObject("ADODB.Recordset") Set rs4 = Server.CreateObject("ADODB.Recordset") Set rs5 = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn rs1.Open SQL1, conn rs2.Open SQL2, conn rs3.Open SQL3, conn rs4.Open SQL4, conn rs5.Open SQL5, conn %> :: CENTRE CINEMATOGRAPHIQUE MAROCAIN ::
 
 
  
 
<% SQL0 = "SELECT * FROM der where acc=1 order by tate desc" Set rs0 = Server.CreateObject("ADODB.Recordset") rs0.Open SQL0, conn,3,3 mm = rs0.recordcount i=1 do while not rs0.eof %> <% if i <> rs0.recordcount then %> " width="450" height="200" alt="" title="<%=rs0("titreacc")%>"> <% else %> " width="450" height="200" alt="" title="<%=rs0("titreacc")%>"> <% End If %> <% i = i + 1 rs0.movenext loop %>
   
<% do while not rs1.eof %> <% =rs1("tate")%>
<% =rs1("titre")%>
                 
<% rs1.movenext loop %>


<% do while not rs.eof %> <% rs.movenext loop %>

 .  <% =rs("tate")%> <%=rs("titre")%>


<% do while not rs2.eof %> <% rs2.movenext loop %>
 . <% =rs2("tate")%> <%=rs2("titre")%>


<% do while not rs3.eof %> <% rs3.movenext loop %>
 . <% =rs3("tate")%> <%=rs3("titre")%>


<% do while not rs4.eof %> <% rs4.movenext loop %>
 . <% =rs4("tate")%> <%=rs4("titre")%>


<% do while not rs5.eof %> <% rs5.movenext loop %>
 
 
Follow our news
 
 - RSS  
 
 
Events
 
<%=rs5("titre")%>
 
" width=100 height=140>
" class="type1" target="_blank"><%=rs5("detail1")%>