Show / Hide BTO Category

Hello, this is my first time modifying ProductCart. I am a ASP newb with a deep design background. My question is, how do i hide and show certain bto categories from displaying in the cart through ASP and not the control panel. I'm trying to modify an existing altered productcart and i think i have found where the trigger is to hide or show certain items. Am I correct? btw, RDL is a programmer who altered the product cart.

Filename: configurePRDcode.asp

"<table class="pcBTOmainTable">
    <%
    dim jCnt
    CB_CatCnt = 0
    jCnt=0
   
    '*******************************************
    '******* START BTO Categories
       IF NOT rsSSobj.eof then 
        Dim strCol
        strCol = "class=pcBTOsecondRow"
        checkVar=0
        checkVarCat=0

        pcv_tmpArr=rsSSobj.GetRows()
        pcv_ArrCount=ubound(pcv_tmpArr,2)
       
        set rsSSobj=nothing
       
        'RDL Update Array with new defaults passed here
        'RDL Create array with list of prods for each category
        Dim ArrayRow
        Dim catproducts()
        redim catproducts(200)                           
        Dim catnumb
        Dim maxleadtime
        maxleadtime = 0
        Dim temprow
        Dim writecatlead
        Dim NewCat
       
        NewCat = False
        For ArrayRow = 0 to pcv_ArrCount-1
            if pcv_tmpArr(0,ArrayRow) <> catnumb then
                NewCat = True
            Else
                NewCat = False
            End if
            catnumb = pcv_tmpArr(0,ArrayRow)
            catproducts(catnumb) = catproducts(catnumb) & pcv_tmpArr(5,ArrayRow) & ","
            writecatlead = false
            for temprow = lbound(ArrProduct) to (UBound(ArrProduct)-1)
                if Clng(ArrCategory(i))=Clng(catnumb) then
                    maxleadtime = cint(pcv_tmpArr(24,ArrayRow))
                    writecatlead = true
                end if
            next
            if writecatlead and NewCat then%>
                <input type="hidden" ID="CAG<%=catnumb%>LT" value="<%=pcv_tmpArr(24,ArrayRow)%>">                                   
            <%end if
        Next
       
       
       
        LeadDays = maxleadtime
        response.redirect("msgb.asp?message="&LeadDays)
        ShipDate = GetShipDate() %>
       
        <%'RDL Capture ShipDate%>
        <input name="LeadDays" type="hidden" value="<%=leaddays%>">
        <input id="shipdatebuffer" name="shipdatebuffer" type="hidden" value="<%=Shipdate%>">   
        <%session("shipdate") = shipdate           

        '*********** LOOP CATs"




Edited by Fseminario - 27-November-2010 at 6:10pm

Mind posting the solution if it's simple? I can think of a couple different ways to do this. Thanks