Not Quite Selecting a Case

Well, I was going to try to do some fun, year-end post. But, with server troubles and aparantly no one working today, I figured I'll just share with you code left behind for Rob to maintain from a (you guessed it) highly-paid consultant.

selectthese = "" 
Select Case Request.QueryString("category") 
  Case "1" 
      selectthese = "1" 
  Case "2" 
      selectthese = "2" 
  Case "3" 
      selectthese = "3" 
  Case "4" 
      selectthese = "4" 
  Case "5" 
      selectthese = "5" 
  Case "6" 
      selectthese = "6" 
  Case "7" 
      selectthese = "7" 
  Case "8" 
      selectthese = "8" 
  Case "9" 
      selectthese = "9" 
  End Select 
If selectthese = "" Then 
  selectthese = "1" 
End If