%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim rsMagazines__MMColParam rsMagazines__MMColParam = "1" If (Request.QueryString("magazine_volume") <> "") Then rsMagazines__MMColParam = Request.QueryString("magazine_volume") End If %> <% Dim rsMagazines Dim rsMagazines_numRows Set rsMagazines = Server.CreateObject("ADODB.Recordset") rsMagazines.ActiveConnection = MM_connLogCabin_STRING rsMagazines.Source = "SELECT * FROM Magazines WHERE magazine_volume = " + Replace(rsMagazines__MMColParam, "'", "''") + " ORDER BY magazine_no ASC" rsMagazines.CursorType = 0 rsMagazines.CursorLocation = 2 rsMagazines.LockType = 1 rsMagazines.Open() rsMagazines_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rsMagazines_numRows = rsMagazines_numRows + HLooper1__numRows %>
![]() |
|