Case

[Marcos-rj]

case.asp

<%
' Declarar variaveis
Dim iChoice

' Ler a escolha do click do utilizador.
' Isto é igual a "" (uma string vazia) se não houve escolha

iChoice = Request.QueryString("choice")

' Executa a acção apropriada baseada no valor da variavel que escolhemos.

Select Case iChoice
Case "1"
%>
<H3>Isto é o que acontece quando clica em Case 1</H3>
<%
Case "2"
%>
<H3>Isto é o que acontece quando clica em Case 2</H3>
<%
Case "3"
%>
<H3>Surpresa, Isto é o que acontece quando clica em Case 3</H3>
<%
Case Else
' Isto é o que é executado se nenhuma situação for encontrada

End Select
%>

Clica num case diferente :<BR>

<A HREF="case.asp?choice=1">Case 1</A>&nbsp;

<A HREF="case.asp?choice=2">Case 2</A>&nbsp;

<A HREF="case.asp?choice=3">Case 3</A>