%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim rsMagazinesAustralia__MMColParam rsMagazinesAustralia__MMColParam = "A" If (Request("MM_EmptyValue") <> "") Then rsMagazinesAustralia__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsMagazinesAustralia Dim rsMagazinesAustralia_numRows Set rsMagazinesAustralia = Server.CreateObject("ADODB.Recordset") rsMagazinesAustralia.ActiveConnection = MM_connLogCabin_STRING rsMagazinesAustralia.Source = "SELECT DISTINCT magazine_volume FROM Magazines WHERE magazine_country = '" + Replace(rsMagazinesAustralia__MMColParam, "'", "''") + "' AND catid = 10 ORDER BY magazine_volume ASC" rsMagazinesAustralia.CursorType = 0 rsMagazinesAustralia.CursorLocation = 2 rsMagazinesAustralia.LockType = 1 rsMagazinesAustralia.Open() rsMagazinesAustralia_numRows = 0 %> <% Dim rsMagazinesBritish__MMColParam rsMagazinesBritish__MMColParam = "B" If (Request("MM_EmptyValue") <> "") Then rsMagazinesBritish__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsMagazinesBritish Dim rsMagazinesBritish_numRows Set rsMagazinesBritish = Server.CreateObject("ADODB.Recordset") rsMagazinesBritish.ActiveConnection = MM_connLogCabin_STRING rsMagazinesBritish.Source = "SELECT DISTINCT magazine_year FROM Magazines WHERE magazine_country = '" + Replace(rsMagazinesBritish__MMColParam, "'", "''") + "' AND catid = 10 ORDER BY magazine_year ASC" rsMagazinesBritish.CursorType = 0 rsMagazinesBritish.CursorLocation = 2 rsMagazinesBritish.LockType = 1 rsMagazinesBritish.Open() rsMagazinesBritish_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsMagazinesAustralia_numRows = rsMagazinesAustralia_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsMagazinesBritish_numRows = rsMagazinesBritish_numRows + Repeat2__numRows %>
|