Your browser does not support HTML5
video
.
ShoesNetWorld
Empresa
Catálogos
Página Catálogos
Acessórios
Componentes em Geral
Calçados Infantis
Máquinas e Equipamentos
Serviços
Materiais | Couros e Sintéticos
Calçados femininos
Calçados Masculinos
Calçados Esportivos
Categoria
Pedidos | Contratos
Contatos
Categorias
<% //------------------------------------------------------- //BLOCO QUE TRAS TABELA (g01t0014 -- Categorias - MENU Ordem Alabetica) vsDES = "" VS_STRING_SQL_SELECT = "SELECT CATEGORIA, DESCRICAO FROM g01t0014 WHERE g01t0014.CNPJ = '" & VS_DocSujei & "' AND g01t0014.CNPJ_RESP = '" & VS_DocSujei & "'GROUP BY g01t0014.CATEGORIA ORDER BY g01t0014.CNPJ, g01t0014.CNPJ_RESP, g01t0014.DESCRICAO, g01t0014.CATEGORIA" iRecCou = 0 Set RS_0014 = Conn.Execute(VS_STRING_SQL_SELECT) DO WHILE NOT RS_0014.EOF iRecCou = iRecCou + 1 vsDES = Trim(RS_0014("DESCRICAO")) %>
<%=vsDES%>
<% //------------------------------------------------------- //BLOCO QUE TRAS TABELA (g01t0015 -- Grupos - MENU Ordem Alabetica) vsDES = "" VS_STRING_SQL_SELECT = "SELECT GRUPO, DESCRICAO FROM g01t0015 WHERE g01t0015.CNPJ = '" & VS_DocSujei & "' AND g01t0015.CNPJ_RESP = '" & VS_DocSujei & "' AND g01t0015.CATEGORIA = '" & RS_0014("CATEGORIA") & "' GROUP BY g01t0015.GRUPO ORDER BY g01t0015.CNPJ, g01t0015.CNPJ_RESP, g01t0015.DESCRICAO, g01t0015.CATEGORIA, g01t0015.GRUPO" iRecCou = 0 Set RS_0015 = Conn.Execute(VS_STRING_SQL_SELECT) DO WHILE NOT RS_0015.EOF iRecCou = iRecCou + 1 vsDES = Trim(RS_0015("DESCRICAO")) %>
<%=vsDES%>
<% //------------------------------------------------------- //BLOCO QUE TRAS TABELA (g01t0015 -- Grupos - MENU Ordem Alabetica) vsDES = "" VS_STRING_SQL_SELECT = "SELECT SUBGRUPO, DESCRICAO FROM g01t0016 WHERE g01t0016.CNPJ = '" & VS_DocSujei & "' AND g01t0016.CNPJ_RESP = '" & VS_DocSujei & "' AND g01t0016.GRUPO = '" & RS_0015("GRUPO") & "' GROUP BY g01t0016.SUBGRUPO ORDER BY g01t0016.CNPJ, g01t0016.CNPJ_RESP, g01t0016.GRUPO, g01t0016.SUBGRUPO" iRecCou = 0 Set RS_0016 = Conn.Execute(VS_STRING_SQL_SELECT) DO WHILE NOT RS_0016.EOF iRecCou = iRecCou + 1 vsDES = Trim(RS_0016("DESCRICAO")) %>
','1','<%=RS_0016("SUBGRUPO")%>','0','0','0','<%=RS_0015("GRUPO")%>')" href="#"><%=vsDES%>
<% ' Proximo Registro. RS_0016.MoveNext Loop %>
<% ' Proximo Registro. RS_0015.MoveNext Loop %>
<% ' Proximo Registro. RS_0014.MoveNext Loop %>
Promoção
Produtos
Catálogos
>
Empresa
Catálogos
Categoria
Pedidos | Contratos
Contatos
Categorias
<% //------------------------------------------------------- //BLOCO QUE TRAS TABELA (g01t0014 -- Categorias - MENU Ordem Alabetica) vsDES = "" VS_STRING_SQL_SELECT = "SELECT CATEGORIA, DESCRICAO FROM g01t0014 WHERE g01t0014.CNPJ = '" & VS_DocSujei & "' AND g01t0014.CNPJ_RESP = '" & VS_DocSujei & "'GROUP BY g01t0014.CATEGORIA ORDER BY g01t0014.CNPJ, g01t0014.CNPJ_RESP, g01t0014.DESCRICAO, g01t0014.CATEGORIA" iRecCou = 0 Set RS_0014 = Conn.Execute(VS_STRING_SQL_SELECT) DO WHILE NOT RS_0014.EOF iRecCou = iRecCou + 1 vsDES = Trim(RS_0014("DESCRICAO")) %>
<%=vsDES%>
<% //------------------------------------------------------- //BLOCO QUE TRAS TABELA (g01t0015 -- Grupos - MENU Ordem Alabetica) vsDES = "" VS_STRING_SQL_SELECT = "SELECT GRUPO, DESCRICAO FROM g01t0015 WHERE g01t0015.CNPJ = '" & VS_DocSujei & "' AND g01t0015.CNPJ_RESP = '" & VS_DocSujei & "' AND g01t0015.CATEGORIA = '" & RS_0014("CATEGORIA") & "' GROUP BY g01t0015.GRUPO ORDER BY g01t0015.CNPJ, g01t0015.CNPJ_RESP, g01t0015.DESCRICAO, g01t0015.CATEGORIA, g01t0015.GRUPO" iRecCou = 0 Set RS_0015 = Conn.Execute(VS_STRING_SQL_SELECT) DO WHILE NOT RS_0015.EOF iRecCou = iRecCou + 1 vsDES = Trim(RS_0015("DESCRICAO")) %>
<%=vsDES%>
<% //------------------------------------------------------- //BLOCO QUE TRAS TABELA (g01t0015 -- Grupos - MENU Ordem Alabetica) vsDES = "" VS_STRING_SQL_SELECT = "SELECT SUBGRUPO, DESCRICAO FROM g01t0016 WHERE g01t0016.CNPJ = '" & VS_DocSujei & "' AND g01t0016.CNPJ_RESP = '" & VS_DocSujei & "' AND g01t0016.GRUPO = '" & RS_0015("GRUPO") & "' GROUP BY g01t0016.SUBGRUPO ORDER BY g01t0016.CNPJ, g01t0016.CNPJ_RESP, g01t0016.GRUPO, g01t0016.SUBGRUPO" iRecCou = 0 Set RS_0016 = Conn.Execute(VS_STRING_SQL_SELECT) DO WHILE NOT RS_0016.EOF iRecCou = iRecCou + 1 vsDES = Trim(RS_0016("DESCRICAO")) %>
','1','<%=RS_0016("SUBGRUPO")%>','0','0','0','<%=RS_0015("GRUPO")%>')" href="#"><%=vsDES%>
<% ' Proximo Registro. RS_0016.MoveNext Loop %>
<% ' Proximo Registro. RS_0015.MoveNext Loop %>
<% ' Proximo Registro. RS_0014.MoveNext Loop %>
Promoção
Produtos
Catálogos
>
Telefone
+55 (11) 9 9836-9995
Contato
contatosnw@shoesnetworld.com.br
Endereço
Rua Direita, 53 – Sobre Loja - Cep: 01002-001
Centro - São Paulo - SP – Brasil