<%=nome_do_site%>

<% vtopico = Trim(Request.QueryString("topico")) If vTopico = "" then vtopico=1 End if vlng = Request.QueryString("lng") %> <%=nome_do_site%>




<% Select Case vtopico%> <%Case "1"%> <%Case "2"%> <%End Select %>