%@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 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||
|
<% rs_genre.Close() Set rs_genre = Nothing %> <% rs_1.Close() Set rs_1 = Nothing %> <% rs_2.Close() Set rs_2 = Nothing %>