Problema con select case

[Grinder]

Ho questo select che si occupa, almeno così vorrei, di gestire la query:

select case session("tabella_selezionata")
  case 1
     Set con = GetDBConnection()
     Set rs = Server.CreateObject("ADODB.Recordset")
     strsql = "SELECT * FROM modelli"
     rs.Open strsql, con, 1, 2
	
     If rs.EOF Then
     rs.AddNew()
     rs("famiglia") = Request.querystring("famiglia_mod")
     rs("data") = Request.querystring("data_mod")
     rs.Update()
  case 2
     Set con = GetDBConnection()
     Set rs = Server.CreateObject("ADODB.Recordset")
     strsql = "SELECT * FROM configurazioni"
     rs.Open strsql, con, 1, 2
	
    If rs.EOF Then
     rs.AddNew()
     rs("cat_comp") = Request.querystring("cat_comp")
     rs("comp_base") = Request.querystring("comp_base")
     rs("comp_cons") = Request.querystring("comp_cons")
  rs.Update()
  case 3
     Set con = GetDBConnection()
     Set rs = Server.CreateObject("ADODB.Recordset")
     strsql = "SELECT * FROM componenti"
     rs.Open strsql, con, 1, 2
	
     If rs.EOF Then
     rs.AddNew()
     rs("flag_desc") = Request.querystring("flag_desc")
     rs("desc") = Request.querystring("desc")
     rs.Update()
end select

però mi da come errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/remtech/Admin/gestione_db.asp, line 53
case 2

Dov'è che sbaglio?