<%@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 %> The Log Cabin, Brentwood - Quilting and Patchwork essentials

Selector

100% Cotton Fabrics
Waddings
Books & Videos
Magazines
Notions
Threads
Sewing Machines
Wools
Special Offers
Just select the area of the shop you wish to browse from the list above.
Site © The Log Cabin <%response.write Year(Now())%>
Design © k web design <%response.write Year(Now())%>
Below are listed the magazines we currently have in stock.
Australian
<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not rsMagazines.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsMagazines.EOF)) %> <% startrw = startrw + 1 rsMagazines.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
<%=(rsMagazines.Fields.Item("magazine_title").Value)%>
 
 
 
You have <%=objCart.TotalNumberItems%> items in your trolley, total value £<%= FormatNumber(objCart.GrandTotal, 2, -2, -2, -2) %>

How to find us

Click here for a local map.
<% Set objCart=Nothing %> <% rsMagazines.Close() Set rsMagazines = Nothing %>