Coupon Index

These are the Categories used to help you find coupons on Rummage Wisconsin.com. The Subject list changes over time. Your comments are welcomed. Click here for a more detailed search.

<% dim coupon_cats dim results Set coupon_cats = objConn.Execute("select cat_name,cat_id from coupon_cat order by cat_name") if coupon_cats.EOF then response.write("No Categories available") else do while NOT coupon_cats.EOF set results = objConn.Execute("select id from coupon where cat = '"& coupon_cats("cat_name") &"' AND active = '1' AND startaddate <= getdate() AND endaddate >= getdate()") if results.EOF then response.write("
• "& coupon_cats("cat_name")) response.write(" (0)") else response.write("
• "& coupon_cats("cat_name") &"") response.write(" ("& results.RecordCount &")") end if response.write("
") coupon_cats.MoveNext loop end if objConn.Close %>