<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% URL = Request.ServerVariables("QUERY_STRING") URL_S = Split(URL, "/") %> <% If URL_S(3) = "pagina" Then Pagina_ID = URL_S(4) %> <% ElseIf URL_S(3) = "formulario" Then Formulario_ID = URL_S(4) %> <% ElseIf URL_S(3) = "noticia" Then Noticia_ID = URL_S(4) %> <% ElseIf URL_S(3) = "noticias" Then Noticias = "Todas" %> <% ElseIf URL_S(3) = "album" Then Album_ID = URL_S(4) %> <% ElseIf URL_S(3) = "busca" Then Busca = Replace(Replace(URL_S(4),"&Submit.x=0&Submit.y=0&Submit=Buscar",""),"?Busca=","")%> <% ElseIf URL_S(3) = "notcategoria" Then NoticiaCategoria = Replace(URL_S(4),"?CategoriaID=","")%> <% ElseIf URL_S(3) = "prodcategoria" Then%> <%Elseif URL_S(3) = "buscaprod" then Busca = Replace(Replace(URL_S(4),"?buscar=",""),"&btt.x=0&btt.y=0","") %> <%Elseif URL_S(3) = "carrinho" then%> <% Elseif URL_S(3) = "fechaorcamento" then FormularioID = URL_S(4) %> <% Elseif URL_S(3) = "produtos" then CategoriaProduto = URL_S(4) %> <% ElseIf URL_S(3) = "produto" Then ProdutoID = URL_S(4) %> <% ElseIf URL_S(3) = "enquetes" Then %> <% ElseIf URL_S(3) = "videos" Then %> <% ElseIf URL_S(3) = "video" Then Video_ID = URL_S(4) %> <% Else %> <% End If %>