<%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("titre")%> -   <% =rs("tate")%>



<% do while not rs5.eof %> <% rs5.movenext loop %>
 
 
تابعوا أخر أخبارنا
 
 RSS
 
 
الأحــــداث
 
<%=rs5("titre")%>
 
" width=100 height=140>
" class="type1" target="_blank"><%=rs5("detail1")%>
 
 
 
   
دفـــاتر التحملات
 
 
   
المتعلق بدعم رقمنة وتحديث وإنشاء
(pdf) القاعات السينمائية
 
(pdf) المتعلق بدعم إنتاج الأعمال السينمائية  
   
(pdf) المتعلق بدعم تنظيم المهرجانات السينمائية