Western Fireworks, Inc. Staff

General Manager/Sales Brent Pavlicek
<%'brentp@westernfireworks.com %> Email Brent
Office Specialist Cindy Wason
<%'cindyw@westernfireworks.com %> Email Cindy
Sales Dave Matteson
<%'davem@westernfireworks.com %> Email Dave
Sales Mark Madeira
<%'markm@westernfireworks.com %> Email Mark
<% Call OpenDB() sql = "select * from categoryTbl where featurecat=1 and catActive=1 order by catsort" 'and ParentCatID = 0 set rs = DBConn.Execute(sql) if not rs.eof then mysidenavlist = "" rs.movefirst Do while not rs.eof if isNumeric(rs("catActive")) AND cint(rs("catActive")) <> 0 then cls = IIF(rs.AbsolutePosition = 1,"class=""first""","") mysidenavlist = mysidenavlist & "
  • " & rs("catedesc") & "
    • " end if rs.movenext Loop 'whole thing rs.close set rs= nothing end if 'write out categories If len(mysidenavlist) > 0 Then response.Write mysidenavlist End If Call CloseDB() %>