<% Dim strCategoria If Request.QueryString("Categoria") = "ART" Then strCategoria = "ARTE E INSTALAÇÕES" ElseIf Request.QueryString("Categoria") = "ARQ" Then strCategoria = "ARQUITETURA" ElseIf Request.QueryString("Categoria") = "EMB" Then strCategoria = "EMBALAGEM" ElseIf Request.QueryString("Categoria") = "MES" Then strCategoria = "OBJETOS" ElseIf Request.QueryString("Categoria") = "MOB" Then strCategoria = "MOBILIÁRIO" Else strCategoria = "PRODUTOS" End If %>

&Produto=<%=Request.QueryString("Produto")%>" method="post">

<%=strCategoria%> <% If Request.QueryString("Categoria") = "ART" Then %> ',1)"> ',2)"> ',3)"> ',4)"> ',5)"> <% ElseIf Request.QueryString("Categoria") = "ARQ" Then %> ',1)"> ',2)"> ',3)"> ',4)"> ',5)"> <% ElseIf Request.QueryString("Categoria") = "EMB" Then %> ',1)"> ',2)"> ',3)"> ',4)"> ',5)"> <% ElseIf Request.QueryString("Categoria") = "MES" Then %> ',1)"> ',2)"> ',3)">',4)">',5)"> <% ElseIf Request.QueryString("Categoria") = "MOB" Then %> ',6)"> ',1)"> ',2)"> ',3)"> ',4)"> ',5)"> <% Else %> ',6)"> ',1)"> ',2)"> ',3)"> ',4)"> ',5)"> <% End If %>   Copyright © 2007 Karim Rashid Inc.