<!-- #INCLUDE VIRTUAL="/common/includes/functions.asp"-->
<%
META_DESCRIPTION=""
META_KEYWORDS=""
META_TITLE = ""
PAGE_TITLE = "Shop Online"
PAGE_KEY = "shoponline"
TITLE_TAG = ""

Dim intSubCategoryId:	intSubCategoryId										= Request.QueryString("ID")
Dim strCategoryInfo: strCategoryInfo											= "SELECT mlb_categories.id, mlb_categories_lang.name, mlb_categories.image, mlb_categories_lang.description, mlb_sub_categories.id, mlb_sub_categories_lang.name, mlb_sub_categories.image, mlb_sub_categories_lang.description, mlb_categories_lang.sell_sheet FROM (mlb_categories INNER JOIN mlb_categories_lang ON mlb_categories.id = mlb_categories_lang.record_id) INNER JOIN (mlb_sub_categories INNER JOIN mlb_sub_categories_lang ON mlb_sub_categories.id = mlb_sub_categories_lang.record_id) ON mlb_categories.id = mlb_sub_categories.category_id WHERE mlb_categories.is_on=1 AND mlb_sub_categories.id = " & intSubCategoryId & " AND mlb_categories_lang.[language] = '" & selLang & "' AND mlb_sub_categories_lang.[language] = '" & selLang & "'"
Dim strSelectAllSubCategories: strSelectAllSubCategories	= "SELECT mlb_sub_categories.id, mlb_sub_categories_lang.name, mlb_sub_categories.image FROM mlb_sub_categories INNER JOIN mlb_sub_categories_lang ON mlb_sub_categories.id = mlb_sub_categories_lang.record_id WHERE mlb_sub_categories.is_on=1 AND mlb_sub_categories_lang.[language] = '" & selLang & "' AND mlb_sub_categories.category_id={CATEGORY_ID}"
Dim strSelectAllProducts: strSelectAllProducts						= "SELECT mlb_products.id, mlb_products_lang.name, mlb_products.image, mlb_products.cad_price, mlb_sub_categories.category_id FROM (mlb_sub_categories INNER JOIN mlb_sub_categories_lang ON mlb_sub_categories.id = mlb_sub_categories_lang.record_id) INNER JOIN ((mlb_products INNER JOIN mlb_products_lang ON mlb_products.id = mlb_products_lang.record_id) INNER JOIN mlb_products_sub_categories ON mlb_products.id = mlb_products_sub_categories.product_id) ON mlb_sub_categories.id = mlb_products_sub_categories.sub_category_id WHERE mlb_products.is_on=1 AND mlb_sub_categories.id=" & intSubCategoryId & " AND mlb_sub_categories_lang.[language] = '" & selLang & "' AND mlb_products_lang.[language] = '" & selLang & "' ORDER BY mlb_products.ordering, mlb_products_lang.name;"
Dim strSelectAccessories: strSelectAccessories						= "SELECT mlb_accessories.id, mlb_accessories_lang.name, mlb_accessories.image, mlb_accessories.cad_price FROM (mlb_sub_categories INNER JOIN mlb_sub_categories_lang ON mlb_sub_categories.id = mlb_sub_categories_lang.record_id) INNER JOIN ((mlb_accessories INNER JOIN mlb_accessories_lang ON mlb_accessories.id = mlb_accessories_lang.record_id) INNER JOIN mlb_accessories_categories ON mlb_accessories.id = mlb_accessories_categories.accessory_id) ON mlb_sub_categories.category_id = mlb_accessories_categories.category_id WHERE mlb_sub_categories.id=" & intSubCategoryId & " AND mlb_accessories.is_on=1 AND mlb_sub_categories_lang.[language] = '" & selLang & "' AND mlb_accessories_lang.[language] = '" & selLang & "' ORDER BY mlb_accessories.ordering, mlb_accessories_lang.name;"
Dim intProductImgWidth: intProductImgWidth								= 144
Dim intProductImgHeight: intProductImgHeight							= 144
Dim intImgWidth: intImgWidth															= 50
Dim intImgHeight: intImgHeight														= 50
Dim blnDoResize: blnDoResize															= IsObjectInstalled("Persits.Jpeg")
Dim arrGridInfo: arrGridInfo															= Array(intProductImgWidth, intProductImgHeight, 20, 20, 3)
Dim arrAllProducts
Dim arrAllAccessories
Dim arrCategoryInfo
Dim arrAllSubCategories
Dim intNumOfRecords
Dim intCategoryId
Dim arrAllItems()

If intSubCategoryId = "" Then
	blnHasError = True
ElseIf Not IsNumeric(intSubCategoryId) Then
	blnHasError = True
Else
	intSubCategoryId = CInt(intSubCategoryId)
End If

If blnHasError Then Response.Redirect "/error.asp"

Set DB = New clsDatabase
	DB.OpenDatabase SQL_DATABASE_NAME, SQL_USR, SQL_PWD

	intNumOfRecords = DB.RunQuery(strCategoryInfo) - 1
	If intNumOfCategories > -1 Then
		arrCategoryInfo = DB.GetLastResults()
		intCategoryId = arrCategoryInfo(0, 0)
	Else
		blnHasError = True
	End If

	intNumOfProducts = DB.RunQuery(strSelectAllProducts) - 1
	If intNumOfProducts > -1 Then arrAllProducts = DB.GetLastResults()

	intNumOfAccessories = DB.RunQuery(strSelectAccessories) - 1
	If intNumOfAccessories > -1 Then arrAllAccessories = DB.GetLastResults()
	
	intNumOfRecords = DB.RunQuery(Replace(strSelectAllSubCategories, "{CATEGORY_ID}", intCategoryId)) - 1
	If intNumOfRecords > -1 Then arrAllSubCategories = DB.GetLastResults()

	Call loadSideCategories(arrAllCats)
Set DB = Nothing

If blnHasError Then Response.Redirect "/error.asp"

%>
<!--#INCLUDE VIRTUAL="/fr/_includes/main_page_top.asp" -->

<table cellpadding="0" cellspacing="0" border="0">
	<tr>
		<td width="501" bgcolor="#E2F4FD" valign="top" align="left">
<%
strLastCat = ""
                
If LenB("" & arrCategoryInfo(2, 0)) = 0 Then
	strProductImgPath = "/common/images/spacer.gif"
Else
	strProductImgPath = CATEGORIES_IMG_PATH & arrCategoryInfo(2, 0)
End If
				
If blnDoResize Then
	strProductImgPath = "/common/img.asp?path=" & strProductImgPath & "&amp;w=" & intImgHeight & "&amp;h=" & intImgHeight
End If

If LenB("" & arrCategoryInfo(6, 0)) = 0 Then
	strImgPath = "/common/images/spacer.gif"
Else
	strImgPath = SUB_CATEGORIES_IMG_PATH & arrCategoryInfo(6, 0)
End If

If blnDoResize Then
	strImgPath = "/common/img.asp?path=" & strImgPath & "&amp;w=" & intImgWidth & "&amp;h=" & intImgHeight
End If				

If LenB("" & arrCategoryInfo(8, 0)) > 0 Then
	strSellSheet = SELL_SHEET_PATH & arrCategoryInfo(8, 0)
	strSellSheet = "<a href=""" & strSellSheet & """ target=""_blank"" class=""lnkNormal""><img src=""/common/images/pdf_icon.gif"" width=""12"" height=""12"" border=""0"" alt="""" style=""vertical-align:middle;margin-right:3px;"" />Sell Sheet</a>"
Else
	strSellSheet = ""
End If
				
If IsArray(arrAllSubCategories) Then strSubCategoryList = BuiltList(arrAllSubCategories, 2, False)		                
strSubCategoryList = Replace(strSubCategoryList, "value=""" & intSubCategoryId & """", "value=""" & intSubCategoryId & """ selected")

Response.Write "" & _
"<table width=""467"" height=""50"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & _
"  <tr>" & _
"    <td width=""281"" height=""45"" align=""left"" valign=""middle""> <h1 style=""margin:0px"">" & LCase("" & arrCategoryInfo(1, 0)) & " <span class=""txtLightBlue"">products</span></h1></td>" & _
"    <td width=""186"" align=""right"" valign=""top""><a href=""index.asp#" & Replace(arrCategoryInfo(1, 0), " ", "") & """><img src=""/fr/images/backtoproducts.gif"" width=""60"" height=""50"" border=""0"" alt="""" /></a><img src=""" & strImgPath & """ width=""" & intImgWidth & """ height=""" & intImgHeight & """ hspace=""10""><img src=""" & strProductImgPath & """ width=""" & intImgWidth & """ height=""" & intImgHeight & """></td>" & _
"  </tr>" & _
"  <tr>" & _
"    <td width=""467"" height=""44"" colspan=""2"" align=""left"" valign=""top""> <form name=""form1""><select name=""select4"" onChange=""if(this[this.selectedIndex].value!=''){document.location='displayproduct.asp?ID=' + this[this.selectedIndex].value;}"" style=""width:200px;""><option value="""">Please make a selection</option><option value="""">..............................................</option>" & strSubCategoryList & "</select><span class=""minilids"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</span>" & strSellSheet & "</form>" & _
"      <p><span class=""minilids"">" & Replace(arrCategoryInfo(3, 0) & "", vbLf, "<br />") & "</span></p>" & _
"    </td>" & _
"  </tr>" & _
"  <tr>" & _
"    <td width=""467"" height=""10"" colspan=""2""><img src=""/common/images/spacer.gif"" width=""1"" height=""1"" border=""0"" alt="""" /></td>" & _
"  </tr>" & _                  
"</table>" & _
"<table width=""500"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & _
"  <tr>" & _
"    <td width=""500"" height=""9"" bgcolor=""#FFFFFF""><img src=""/common/images/spacer.gif"" width=""1"" height=""1"" border=""0"" alt="""" /></td>" & _
"  </tr>" & _                  
"</table>"
                
'Response.Write "" & _
'"<table width=""500"" height=""9"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & _
'"  <tr>" & _
'"    <td width=""500"" height=""10""><img src=""/common/images/spacer.gif"" width=""1"" height=""1"" border=""0"" alt="""" /></td>" & _
'"  </tr>" & _   		                
'"</table>"

intNumOfItems = -1
intProdX = -1
intAccX = -1

Do Until (intProdX >= intNumOfProducts) AND (intAccX >= intNumOfAccessories)
	'Response.Write intProdX & "<BR>"
	
	If intProdX <= intNumOfProducts Then
  	For x = intProdX+1 To intProdX + 3
  		intNumOfItems = intNumOfItems + 1
  		
  		Redim Preserve arrAllItems(4, intNumOfItems)
  		
  		If x <= intNumOfProducts AND intNumOfProducts > -1 Then
    		arrAllItems(0, intNumOfItems) = arrAllProducts(0, x)
    		arrAllItems(1, intNumOfItems) = arrAllProducts(1, x)
    		arrAllItems(2, intNumOfItems) = arrAllProducts(2, x)
    		arrAllItems(3, intNumOfItems) = arrAllProducts(3, x)
    		arrAllItems(4, intNumOfItems) = cTypeProduct
    	End If
  	Next
  	intProdX = x-1
  End If

	If intAccX <= intNumOfAccessories AND intNumOfAccessories > -1 Then
  	For x = intAccX+1 To intAccX + 3
  		intNumOfItems = intNumOfItems + 1
  		
  		Redim Preserve arrAllItems(4, intNumOfItems)
  		
  		If x <= intNumOfAccessories Then
    		arrAllItems(0, intNumOfItems) = arrAllAccessories(0, x)
    		arrAllItems(1, intNumOfItems) = arrAllAccessories(1, x)
    		arrAllItems(2, intNumOfItems) = arrAllAccessories(2, x)
    		arrAllItems(3, intNumOfItems) = arrAllAccessories(3, x)
    		arrAllItems(4, intNumOfItems) = cTypeAccessory
    	End If
  	Next
  	intAccX = x-1
  End If
Loop

If intNumOfAccessories > -1 OR intNumOfProducts > -1 Then
  Response.Write "" & _
  DisplayItems(arrAllItems, "", PRODUCT_IMG_PATH, True, True, arrGridInfo) & _
	"<img src=""/common/images/spacer.gif"" width=""1"" height=""10"" border=""0"" alt="""" />"
End If
%>
		</td>
	</tr>
	<!--<tr>
		<td width="501" height="10" bgcolor="#FFFFFF"><img src="/common/images/spacer.gif" width="1" height="1" alt=""></td>
	</tr>-->
</table>

<!--#INCLUDE VIRTUAL="/fr/_includes/main_page_bottom.asp" -->