%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim rsMagazines__MMColParam rsMagazines__MMColParam = "1" If (Request.QueryString("magazine_id") <> "") Then rsMagazines__MMColParam = Request.QueryString("magazine_id") 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_id = " + Replace(rsMagazines__MMColParam, "'", "''") + "" rsMagazines.CursorType = 0 rsMagazines.CursorLocation = 2 rsMagazines.LockType = 1 rsMagazines.Open() rsMagazines_numRows = 0 %>
![]() |
|