<%@LANGUAGE="VBSCRIPT"%> <% set rs_bag1 = Server.CreateObject("ADODB.Recordset") rs_bag1.ActiveConnection = MM_Stunning_Tents_STRING rs_bag1.Source = "SELECT * FROM products WHERE product_category='protect_bag'" rs_bag1.CursorType = 0 rs_bag1.CursorLocation = 2 rs_bag1.LockType = 3 rs_bag1.Open() rs_bag1_numRows = 0 %> <% set rs_bag2 = Server.CreateObject("ADODB.Recordset") rs_bag2.ActiveConnection = MM_Stunning_Tents_STRING rs_bag2.Source = "SELECT * FROM products WHERE product_category='protect_bag2'" rs_bag2.CursorType = 0 rs_bag2.CursorLocation = 2 rs_bag2.LockType = 3 rs_bag2.Open() rs_bag2_numRows = 0 %> <% set rs_bag3 = Server.CreateObject("ADODB.Recordset") rs_bag3.ActiveConnection = MM_Stunning_Tents_STRING rs_bag3.Source = "SELECT * FROM products WHERE product_category='protect_bag3'" rs_bag3.CursorType = 0 rs_bag3.CursorLocation = 2 rs_bag3.LockType = 3 rs_bag3.Open() rs_bag3_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> The Stunning Tents Company


       ABOUT US     NEWS     CONTACT     WHAT PEOPLE SAY      FAQs      VACANCIES     



Click to email

DELIVERY
 

Protective bag



A protective bag which will accommodate, for example, a grill hob, a propane burner and a grill spatula. (Protective bag 48 shown above)

1. Protective bag 100
Made specially made for the Muurikka 100 and 100 plus.

2. Protective bag 58
Made specially made for the Muurikka 58 plus.

3. Protective bag 48
Made specially made for the Muurikka 48. Can also be used with the Muurikka wok.
<%=(rs_bag1.Fields.Item("product_code").Value)%>
<%=(rs_bag1.Fields.Item("product_name").Value)%>
£<%=FormatNumber(rs_bag1.Fields.Item("product_price").Value)%> incl.VAT
£<%=FormatNumber(rs_bag1.Fields.Item("product_exc_vat").Value)%> excl. VAT

"> "> "> "> ">


<%=(rs_bag2.Fields.Item("product_code").Value)%>
<%=(rs_bag2.Fields.Item("product_name").Value)%>
£<%=FormatNumber(rs_bag2.Fields.Item("product_price").Value)%> incl.VAT
£<%=FormatNumber(rs_bag2.Fields.Item("product_exc_vat").Value)%> excl. VAT

"> "> "> "> ">


<%=(rs_bag3.Fields.Item("product_code").Value)%>
<%=(rs_bag3.Fields.Item("product_name").Value)%>
£<%=FormatNumber(rs_bag3.Fields.Item("product_price").Value)%> incl.VAT
£<%=FormatNumber(rs_bag3.Fields.Item("product_exc_vat").Value)%> excl. VAT

"> "> "> "> ">

Copyright © 2005 - 2008 The Stunning Tents Company.
Branding and web site: wyldebydesign
<% rs_bag1.Close() %> <% rs_bag2.Close() %> <% rs_bag3.Close() %>