sub volumeSort_onclick()
   data.sortColumn =  "Year ; Volume ; Page"
   data.reset()
end sub

sub yearFilter_onchange()
   showYear = yearFilter.options(yearFilter.selectedIndex).text
   if showYear = "All" then
      data.FilterColumn = ""
      data.FilterCriterion = ""
      data.FilterValue = ""
      data.Reset()
      volumeSort.disabled = false
   else
      data.FilterColumn = "Year"
      data.FilterCriterion = "="
      data.FilterValue = showYear
      data.Reset()
      volumeSort.disabled = true
   end if
end sub

sub subjFilter_onchange()
   showCompID = subjFilter.options(subjFilter.selectedIndex).text
   if showCompID = "All" then
      data.FilterColumn = ""
      data.FilterCriterion = ""
      data.FilterValue = ""
      data.Reset()
   else
      data.FilterColumn = "COMP_ID"
      data.FilterCriterion = "="
      data.FilterValue = showCompID
      data.Reset()
   end if
end sub