<% cache.name="Skins_Category" 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_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) If Error_Skins_Category = 0 Then For i = 0 To UBound(Data_Skins_Category,2) Select Case show_html Case "0" Select Case ISAPI_Rewrite Case "0" Select Case Config_Lebi_Eshop(16) Case "0" : url = "showsort.asp?sort_id="& Data_Skins_Category(0,i) Case "1" : url = "category/"& Data_Skins_Category(2,i) &"/" Case "2" : url = "category/"& Data_Skins_Category(2,i) &"/default.asp" End Select Case "1" url = "category-"& Data_Skins_Category(2,i) &".html" End Select Case "1" : url = Folder(2) & Data_Skins_Category(3,i) &".1.html" End Select Response.Write(""& Data_Skins_Category(1,i) &"") Next End If %>