<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If %> <% DIM cart Dim Message Dim Qty Dim item_number item_number = "" cart = "" Message = "" If (request("cart") <> "" ) Then cart = cart & Request.Form("qty") & "|" Qty = Request.Form("qty") cart = cart & Request.Form("item_name") & "|" Message = Request.Form("item_name") cart = cart & Request.Form("amount") item_number = Request.Form("item_number") 'response.Write(item_number) Response.Cookies("splat")(Request.Form("item_number")) = cart End If %> <% Dim RSproduct__MMColParam RSproduct__MMColParam = "1" If (Request.QueryString("catID") <> "") Then RSproduct__MMColParam = Request.QueryString("catID") End If %> <% Dim RSproduct Dim RSproduct_cmd Dim RSproduct_numRows Set RSproduct_cmd = Server.CreateObject ("ADODB.Command") RSproduct_cmd.ActiveConnection = MM_allaid_STRING RSproduct_cmd.CommandText = "SELECT * FROM productQuery WHERE catID = ?" RSproduct_cmd.Prepared = true RSproduct_cmd.Parameters.Append RSproduct_cmd.CreateParameter("param1", 5, 1, -1, RSproduct__MMColParam) ' adDouble Set RSproduct = RSproduct_cmd.Execute RSproduct_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RSproduct_numRows = RSproduct_numRows + Repeat1__numRows %> <% Dim Check_cart Check_cart = 0 For Each strKeyname in Request.Cookies("splat") if Request.Cookies("splat")(strKeyname) <> "" then Check_cart = Check_cart + 1 End If Next %> <% Dim Cat_name Cat_name = (RSproduct.Fields.Item("catName").Value) %> First Aid Medical Supplies
       
about us

All Aid Supplies is a venture that joins the forces of a contemporary and exciting first aid training company, All Aid Training, and a specialist outdoor supply business, Equipped Outdoors. Both organisations bring a wealth of industry and product knowledge and expertise to this business.

It is the All Aid Supplies mission to tailor a product, or indeed a suite of products, to meet the idiosyncratic needs of organisations small to large. Our experience allows us to work with all industries, from outdoor adventure companies to schools to heavy industry and corporate bodies. The list goes on.

We also take pride in offering individuals tailored service when choosing a product for their home, motor vehicle, boat, camping expedition or overseas trip. We believe first aid supplies, and the knowledge and skill to us them, greatly enhance travel and adventure as they give confidence.

Please contact us for any questions or comments.
pimento design
<% RSproduct.Close() Set RSproduct = Nothing %>