<% set conn = server.CreateObject("ADODB.Connection") conn.connectionstring = session("connStr") conn.Open vsql = "SELECT * FROM Category ORDER BY cat_Code" vsqlMain = "SELECT TOP 1 * FROM Main" set rs = conn.Execute(vsql) set rsMain = conn.Execute(vsqlMain) %>
 
<% do while not rs.EOF Response.Write "" Response.Write "" %> <% rs.MoveNext loop rs.Close set rs = Nothing %>
PRODUCTS CATEGORY
" %> ';return true" onmouseout="window.status=' ';" href="subcategory.asp?vcat=<%=rTRIM(rs("cat_Code"))%>"><%=rs("cat_Name")%> <% Response.Write "
<%if rsMain("main_Title")<>"" then%> <%end if%> <%if rsMain("main_Subtitle")<>"" then%> <%end if%> <%if rsMain("main_Description1")<>"" then%> <%end if%> <%if rsMain("main_Description2")<>"" then%> <%end if%>
">
  
<%=rsMain("main_Title")%>  
<%=rsMain("main_Subtitle")%>  
<%=rsMain("main_Description1")%>  
<%=rsMain("main_Description2")%>  
     
<% rsMain.Close conn.Close set rsMain = Nothing %>