<% If vtopico = 1 then Select Case vlng%> <%Case "1"%> <%Case "2"%> <%Case "3"%> <%End Select End if %> <% If vtopico = 2 then Select Case vlng%> <%Case "1"%> <%Case "2"%> <%Case "3"%> <%End Select End if%> <% If vtopico = 3 then Select Case vlng%> <%Case "1"%> <%Case "2"%> <%Case "3"%> <%End Select End if %> <% If vtopico = 4 then Select Case vlng%> <%Case "1"%> <%Case "2"%> <%Case "3"%> <%End Select End if %> <% If vtopico = 5 then Select Case vlng%> <%Case "1"%> <%Case "2"%> <%Case "3"%> <%End Select End if %>