<%@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 %> 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())%>
<% If rsMagazinesAustralia.EOF And rsMagazinesAustralia.BOF Then %> <% End If ' end rsMagazinesAustralia.EOF And rsMagazinesAustralia.BOF %> <% While ((Repeat1__numRows <> 0) AND (NOT rsMagazinesAustralia.EOF)) %> <% If Not rsMagazinesAustralia.EOF Or Not rsMagazinesAustralia.BOF Then %> <% End If ' end Not rsMagazinesAustralia.EOF Or NOT rsMagazinesAustralia.BOF %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMagazinesAustralia.MoveNext() Wend %> <% If rsMagazinesBritish.EOF And rsMagazinesBritish.BOF Then %> <% End If ' end rsMagazinesBritish.EOF And rsMagazinesBritish.BOF %> <% While ((Repeat2__numRows <> 0) AND (NOT rsMagazinesBritish.EOF)) %> <% If Not rsMagazinesBritish.EOF Or Not rsMagazinesBritish.BOF Then %> <% End If ' end Not rsMagazinesBritish.EOF Or NOT rsMagazinesBritish.BOF %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsMagazinesBritish.MoveNext() Wend %>
Below are listed the magazines we currently have in stock. Click on the Volume (for Australian issues) or the Year (for British issues) to see details.
Australian
We currently have no magazines in stock
&magazine_country=A" class="main_text"><%=(rsMagazinesAustralia.Fields.Item("magazine_volume").Value)%>
British
We currently have no magazines in stock
<%=(rsMagazinesBritish.Fields.Item("magazine_year").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 %> <% rsMagazinesAustralia.Close() Set rsMagazinesAustralia = Nothing %> <% rsMagazinesBritish.Close() Set rsMagazinesBritish = Nothing %>