|
|
Business Category Index
These are the categories used to help you find businesses
on Rummage Wisconsin.com. The
category list changes over time. Your comments are welcomed.
If you are insterested in shopping categories, Click
Here
GREAT
WISCONSIN BUSINESSES
|
<%
dim business_cats
dim results
Set business_cats = objConn.Execute("select cat_name,cat_id from business_cat order by cat_name")
if business_cats.EOF then
response.write("No Categories available")
else
do while NOT business_cats.EOF
set results = objConn.Execute("select id from business where cat = '"& business_cats("cat_name") &"' AND active='1' AND startaddate <= getdate() AND endaddate >= getdate()")
if results.EOF then
response.write(" "& business_cats("cat_name"))
response.write(" (0)")
else
response.write(""& business_cats("cat_name") &"")
response.write(" ("& results.RecordCount &")")
end if
response.write("")
business_cats.MoveNext
loop
end if
objConn.Close
%>
|
|
*If
you don't see the business category you are looking for,
suggest one now.
Thanks!
|