<%@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
guarantee
All Aid Supplies is committed to maintaining the highest standards in customer service, quality control and product delivery.
