<$ cache.name="Skins_Category"& LangTxt cache.reloadtime= 5000 If cache.objisempty() Then set rs = LB.Sql("select top 5 c_id,c_name"& LangTxt &",c_foldername,c_filename from [Lebi_category] where c_menu = 1 and c_father = 1 and is_hide=0 order by c_order desc") If rs.eof And rs.bof Then Error_Skins_Category = 1 Else Error_Skins_Category = 0 cache.value = rs.getrows End If rs.close : Set rs = Nothing End If Data_Skins_Category = cache.value CategoryNum = UBound(Data_Skins_Category,2) $>
{$ProductSearchmenu(0)}