<%@Language="VBScript"%> <%Option Explicit%> <%Dim sCod, sPag sCod=Request.QueryString("cod") If sCod = Empty Then sCod = 1 End If Select Case sCod Case 1 sPag = "atitude.htm" Case 2 sPag = "porque.htm" Case 3 sPag = "contato.htm" Case 4 sPag = "portfolio.asp?qualPort=1" 'Anuncio Case 5 sPag = "portfolio.asp?qualPort=2" 'Catalogo Case 6 sPag = "portfolio.asp?qualPort=5" 'Editorial Case 7 sPag = "portfolio.asp?qualPort=6" 'Embalagem Case 8 sPag = "portfolio.asp?qualPort=9" 'Filmes Case 9 sPag = "portfolio.asp?qualPort=4" 'Ident Visual Case 10 sPag = "portfolio.asp?qualPort=7" 'Mala Direta Case 11 sPag = "portfolio.asp?qualPort=3" 'Promocao Case 12 sPag = "portfolio.asp?qualPort=8" 'Web End Select %>