<% Call ThemeStart Dim iSID Select Case Request.QueryString("P") Case "ViewSub" Call ListSubCat Case "ViewProd" Call ListProd End Select Call ThemeEnd '------------------------------------------------------------------------------------------------------------------------------------------------------- Sub ListSubCat 'Call OpenConn sSQL = "Select Top 1 M.MainCatID, M.BImageID, MainCatName, MainCatDesc, LogoImageID, M.ImageID, M.ShopImageID, M.WorkImageID, " & _ "SubCatName, SubCatDesc " If Request.QueryString("SID") <> "" Then sSQL = sSQL & ", S.ImageID, S.BImageID, S.ShopImageID, S.WorkImageID " sSQL = sSQL & "From MainCategory M, UploadImage I, SubCategory S " & _ "Where M.MainCatID = S.MainCatID " & _ "And M.MainCatID = " & Request.QueryString("MID") If Request.QueryString("SID") <> "" Then sSQL = sSQL & " And S.SubCatID = " & Request.QueryString("SID") sSQL = sSQL & " Order By S.SubCatName " oRs.Open sSQL,,0,1,1 If Not oRs.EOF Then sBigImageName = oRS(1) sMainCatName = oRS(2) sMainCatDesc = oRS(3) sLogoImageName = oRS(4) sLinkImageName = oRS(5) sShopmageName = oRS(6) sWorkImageName = oRS(7) If Request.QueryString("SID") <> "" Then sSubCatName = oRS(8) sSubCatDesc = oRS(9) sSubLogoImageName = oRs(10) sSubBigImageName = oRs(11) sSubShopImageName = oRs(12) sSubWorkImageName = oRs(13) End If End If oRs.close bShowMainOnly = True If Request.QueryString("MID") = 25 And Request.QueryString("SID") <> "" Then bShowMainOnly = False If bShowMainOnly = True Then sLogoImage = "MainCategory/" & sLogoImageName sBigImage = "MainCategory/" & sBigImageName sShopImage = "MainCategory/" & sShopmageName sWorkImage = "MainCategory/" & sWorkImageName Else sLogoImage = "SubCategory/" & sSubLogoImageName sBigImage = "SubCategory/" & sSubBigImageName sShopImage = "SubCategory/" & sSubShopImageName sWorkImage = "SubCategory/" & sSubWorkImageName End If 'Call CloseConn%>

<%Call ArtistMenu(False)%>

<% If sMainCatName <> "" Then %>

<% If bShowMainOnly = False Then response.write sSubCatName sShoppingLink = "Shopping.asp?MID=" & Request.QueryString("MID") & "&SID=" & Request.QueryString("SID") Else response.write sMainCatName sShoppingLink = "Shopping.asp?MID=" & Request.QueryString("MID") End If%>

<% If Request.QueryString("SID") <> "" Then response.write sSubCatDesc Else response.write sMainCatDesc End If%>

&SID=<%=Request.QueryString("SID")%>&<%=ProcessID%>','jarportwin',650,575)" onfocus="this.blur()">

<% Else %>

Coming Soon!

<% End Sub '------------------------------------------------------------------------------%>