Customzing Cactushop pages ?????

  If numNewestProductsList > 0 then
   '-----------------------------------------------
   'PULL OUT THE TOP 50 NEWEST PRODUCTS
   '-----------------------------------------------
   if strDatabaseType = "access" then strTblProd = "tblCactuShop" & TABLE_PREFIX & "Products." else strTblProd = ""
strSelectValues = "P_ID, P_OrderVersionsBy, P_StrapLine" & CInt(numLanguageID) & ", " & strTblProd & castSQL("P_Desc" & CInt(numLanguageID)) & " as P_Desc" & CInt(numLanguageID) & ", P_Name" & CInt(numLanguageID) & ", P_VersionDisplayType, P_Featured"
strselectvalues2 = Replace(strSelectValues, "as P_Desc" & CInt(numLanguageID),"")
   numCount = 0
   strQuery = LimitSQL("tblCactuShop" & TABLE_PREFIX & "Products.P_ID, tblCactuShop" & TABLE_PREFIX & "Products.P_Name" & numLanguageID & " FROM (((tblCactuShop" & TABLE_PREFIX & "Versions INNER JOIN tblCactuShop" & TABLE_PREFIX & "Products ON tblCactuShop" & TABLE_PREFIX & "Versions.V_ProductID = tblCactuShop" & TABLE_PREFIX & "Products.P_ID) INNER JOIN tblCactuShop" & TABLE_PREFIX & "ProductCategoryLink ON tblCactuShop" & TABLE_PREFIX & "Products.P_ID = tblCactuShop" & TABLE_PREFIX & "ProductCategoryLink.PCAT_ProductID) INNER JOIN tblCactuShop" & TABLE_PREFIX & "Categories ON tblCactuShop" & TABLE_PREFIX & "ProductCategoryLink.PCAT_CategoryID = tblCactuShop" & TABLE_PREFIX & "Categories.CAT_ID) LEFT OUTER JOIN tblCactuShop" & TABLE_PREFIX & "Suppliers ON tblCactuShop" & TABLE_PREFIX & "Products.P_SupplierID = tblCactuShop" & TABLE_PREFIX & "Suppliers.SUP_ID WHERE P_Name" & CInt(numLanguageID)  & " <> '' AND V_Live ='y' AND P_Live = 'y' AND CAT_Live = 'y' AND V_CustomerGroupID IN (0," & DB_CG_ID & ") AND P_CustomerGroupID IN (0," & DB_CG_ID & ") AND CAT_CustomerGroupID IN (0," & DB_CG_ID & ") AND (SUP_Live <> 'n' OR SUP_Live IS NULL) ORDER BY P_ID DESC", numNewestProductsList, true)
   Call ExecuteRS(strQuery, objRecordSet)
   if Not (objRecordSet.BOF And objRecordSet.EOF) then
    'Run it in to an array: bound 0 is ID, 1 is name of product %>
    <div class="box">
     <h4><!-- <% WriteString("ContentText_NewProductsList") %> --></h4>
     <div class="pad">
     <div><% 
      Do While not objRecordSet.EOF and numCount < numNewestProductsList
       numCount = numCount + 1
       numProductID = objRecordSet("P_ID")
       numProductName = objRecordSet("P_Name" & CInt(numLanguageID))
       If numNewestProductsTruncate > 0 then 
        if len(numProductName) > numNewestProductsTruncate then numProductName = left(numProductName, numNewestProductsTruncate - 3) & "..."
       End If %>    
       <table border="1" width="800" height="" frame="">
<tr>
<td width=""><a href="product.asp?<%= objCactuSession.QS %>P_ID=<%= numProductID %>"><%= numProductName %><br /><br /><img src="uploads//images_products/<%= numProductID %>.jpg" /></a><Br /><Br /></td>
<td width=""><a href="product.asp?<%= objCactuSession.QS %>P_ID=<%= numProductID %>"><%= numProductName %><br /><br /><img src="uploads//images_products/<%= numProductID %>.jpg" /></a><Br /><Br /></td>
<td width=""><a href="product.asp?<%= objCactuSession.QS %>P_ID=<%= numProductID %>"><%= numProductName %><br /><br /><img src="uploads//images_products/<%= numProductID %>.jpg" /></a><Br /><Br /></td>
</tr><% 
       objRecordSet.MoveNext
      Loop %>
     </table></div>
    </div></div>
   <% end if
   objRecordSet.Close
  end if %>
            <%
end if %>