<%@ Language=VBScript %> <% Option Explicit %> <% 'on error resume next dim rsCategories, strsql, rssettings, storefont, rsCount, icount, rsSub, iHalfway, i set rsCount = conn.execute("stor_Count_Categories") iCount = rsCount("the_count") iHalfway = cint(iCount/2) set rssettings = server.CreateObject("ADODB.Recordset") rssettings.CursorLocation = adUseClient strsql = "stor_Settings_select" set rssettings = conn.execute(strsql) storefont = rssettings("StoreFontFace") rssettings.Close set rssettings = nothing set rsCategories = server.CreateObject("ADODB.RECORDSET") rsCategories.CursorLocation = adUseClient set rsCategories = conn.execute("SELECT * FROM [Categories] WHERE Display=1 AND Parent_ID = 0 ORDER BY Priority") set rsSub = server.CreateObject("ADODB.RECORDSET") rsSub.CursorLocation = adUseClient %> size=2>

Welcome to Our Store Front Click on the product categories below to see product selections: <% i = 1 do while not rsCategories.EOF%> <%if i <> 1 then%> <%end if%> "><%=rsCategories("Name")%> <% set rsSub = conn.execute("SELECT * FROM Categories WHERE Display = 1 AND Parent_ID=" & rsCategories("Category_ID") & " ORDER BY Priority") do while not rsSub.EOF %>          "><%=rsSub("Name")%> <% 'i = i + 1 rsSub.MoveNext loop rsSub.Close %> <% i = i + 1 rsCategories.MoveNext%> <%if not rsCategories.EOF then%> <% if i >= iHalfway then i = -300 response.Write(" ") end if %> <%if i <> -300 then%> <%end if%> "><%=rsCategories("Name")%> <% set rsSub = conn.execute("SELECT * FROM Categories WHERE Display = 1 AND Parent_ID=" & rsCategories("Category_ID") & " ORDER BY Priority") do while not rsSub.EOF %>          "><%=rsSub("Name")%> <% 'i = i + 1 rsSub.MoveNext loop rsSub.Close %> <%end if%> <% if not rsCategories.EOF then rsCategories.MoveNext i = i + 1 end if loop %> Or search by key word:

<% conn.close set conn = nothing %>