Problema con select case

[optime]

prova cosi'

if var_red="entra" then
   select case bb
      case "adm" 
         Response.Redirect ("guida.asp")
      case "amm"
         Response.Redirect ("guidaamm.asp")
      case "direz"
         Response.Redirect ("guidadirez.asp")
      case "fm"
         Response.Redirect ("guidafarm.asp")
      case "fmc"
         Response.Redirect ("guidafarmacia.asp")
      case "med"
         Response.Redirect ("guidamed.asp")
      case "segr"
         Response.Redirect ("guidasegr.asp")
      case else
         Response.Write "bb vale...: " & bb
         Response.Flush
   end select
Else
   Response.Write "var_red vale...: " & var_red
   Response.Flush
   Response.Redirect ("riprova.htm")
end if