|
|
Events and Sales Index
These
are the categories used to help you find sales and events
on Rummage Wisconsin.com. The
category list may change over time. Your comments are welcomed.
Click here
for a more detailed search.
<%
dim event_cats
dim results
Set event_cats = objConn.Execute("select cat_name,cat_id from event_cat order by cat_name")
if event_cats.EOF then
response.write("No Categories available")
else
do while NOT event_cats.EOF
set results = objConn.Execute("select id from event where cat LIKE '%"& event_cats("cat_name") &"%' AND active = '1' AND startaddate <= getdate() AND endaddate >= getdate()")
if results.EOF then
response.write("- "& event_cats("cat_name"))
response.write(" (0)")
else
response.write("
- "& event_cats("cat_name") &"")
response.write(" ("& results.RecordCount &")")
end if
response.write("
")
event_cats.MoveNext
loop
end if
objConn.Close
%>
|
|
*If
you don't see the event category you are looking for, suggest
one now. Thanks!
|
