<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_genre Dim rs_genre_numRows Set rs_genre = Server.CreateObject("ADODB.Recordset") rs_genre.ActiveConnection = MM_connexion_STRING rs_genre.Source = "SELECT * FROM genre_film" rs_genre.CursorType = 0 rs_genre.CursorLocation = 2 rs_genre.LockType = 1 rs_genre.Open() rs_genre_numRows = 0 %> <% Dim rs_1__MMColParam rs_1__MMColParam = 1 If (Request("MM_EmptyValue") <> "") Then rs_1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_1 Dim rs_1_numRows Set rs_1 = Server.CreateObject("ADODB.Recordset") rs_1.ActiveConnection = MM_connexion_STRING rs_1.Source = "SELECT * FROM boutiquefilms WHERE une = " + Replace(rs_1__MMColParam, "'", "''") + "" rs_1.CursorType = 0 rs_1.CursorLocation = 2 rs_1.LockType = 1 rs_1.Open() rs_1_numRows = 0 %> <% Dim rs_2__MMColParam rs_2__MMColParam = 1 If (Request("MM_EmptyValue") <> "") Then rs_2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_2 Dim rs_2_numRows Set rs_2 = Server.CreateObject("ADODB.Recordset") rs_2.ActiveConnection = MM_connexion_STRING rs_2.Source = "SELECT * FROM boutiquefilms WHERE vitrine = " + Replace(rs_2__MMColParam, "'", "''") + "" rs_2.CursorType = 0 rs_2.CursorLocation = 2 rs_2.LockType = 1 rs_2.Open() rs_2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 rs_2_numRows = rs_2_numRows + Repeat1__numRows %> BAZ'ART-Le coin des artistes
   

 
 
  
<% If Not rs_2.EOF Or Not rs_2.BOF Then %> <% End If ' end Not rs_2.EOF Or NOT rs_2.BOF %>
 
Catalogue de videos
 
 Vous cherchez
Genre :
 Recherche Realisateur :
Nos coups de coeur Les nouveautés A découvrir
 
 La sélection du mois

Résumé :

<%=(rs_1.Fields.Item("resume_film").Value)%>

<%=(rs_1.Fields.Item("commentaire_film").Value)%>

">" width="128"128"" height="207" border="0"127>
 
 Découvrez la sélecton PlaNet DZ du moment
<% While ((Repeat1__numRows <> 0) AND (NOT rs_2.EOF)) %> <% if i = 3 then response.Write("") i = 0 end if %> <% i = i + 1 %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_2.MoveNext() Wend %>
">" width="160" height="245" border="0">
 
 

 

 

 
 Planet-dz @ 2003
 

 

<% rs_genre.Close() Set rs_genre = Nothing %> <% rs_1.Close() Set rs_1 = Nothing %> <% rs_2.Close() Set rs_2 = Nothing %>