<%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 art=1 order by tate desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn %> <% do while not rs.eof %> <% rs.movenext loop %>
Programme salle 7ème Art  
   
A partir du : <%=rs("tate")%>
   
<%=rs("detail")%>  " width="140" height="180">
<%=rs("detail1")%>   
<%=rs("detail2")%>  " width="140" height="180">