<%
select case cidade
case "Belo Horizonte"
response.Write("Capital de Minas Gerais.")
case "São Paulo"
response.Write("Capital de São Paulo.")
case "Rio de Janeiro"
response.Write("Capital de Rio de Janeiro.")
case "Vitória"
response.Write("Capital de Espírito Santo.")
case else
response.Write("Não é uma capital de um estado do Sudeste.")
end select
%>
Fonte: http://www.forumweb.com.br/artigos/artigos.php?action=file&id=368
