<%
IndLinks = "-over"
%>
<%
sqltext = "SELECT * FROM Links ORDER BY Category"
rs.open sqltext,conn,2,2
If not rs.bof then
Do While not rs.eof
Category = rs("Category") * 1
if Category <> LastCategory then
select case Category
case 1
CategoryName = "Industry"
case 2
CategoryName = "Suppliers"
case 3
CategoryName = "Customers"
case 4
CategoryName = "Vendors"
case 5
case else
end select
Links = Links & "
"
end if
LastCategory = Category
Links = Links & "" & rs("header") & "
"
rs.MoveNext
Loop
end if
rs.close
%>
<%= Links %>
