<%@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_musique" rs_genre.CursorType = 0 rs_genre.CursorLocation = 2 rs_genre.LockType = 1 rs_genre.Open() rs_genre_numRows = 0 %> <% 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 boutiquecd WHERE une = " & 1 rs_1.CursorType = 0 rs_1.CursorLocation = 2 rs_1.LockType = 1 rs_1.Open() rs_1_numRows = 0 %> <% 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 boutiquecd WHERE vitrine = " & 1 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
   

 
 
  
 
Catalogue de cd
 
 Vous cherchez
Genre musical :
 Recherche Auteur, titre d'album:
Nos coups de coeur Les nouveautés Albums avec extraits sonores
 
 A découvrir

Résumé :


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

">" width="150"128"" height="146" 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="160" 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 %>