<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_lista_produto.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 10/11/06 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMProd&"") %> <% Call abre_conexao(conexao) 'Mensagem enviada na exclusão de um produto. msg_resultado = request("msg_resultado") msg_resultadoProduto = request("msg_resultadoProduto") %>

• Verificar produtos <% If Not VerificaExistenciaDado("codigo_categoria","categorias",VAZIO,VAZIO) Then %> <%Else%> <% If msg_resultadoProduto <> "" Then %> <% End If %> <%If VerificaExistenciaDado("codigo_categoria","subcategorias",VAZIO,VAZIO) Then%> <%End if%> <%If VerificaExistenciaDado("codigo_marca","marcas",VAZIO,VAZIO) Then%> <%End if%> Não há Categorias cadastradas, isto é um indicativo de que a loja não possui produtos cadastrados. Para cadastrar produtos é necessário seguir os seguintes passos: 1º) Cadastrar Categorias (Obrigatório); 2º) Cadastrar Sucategorias (Se necessário); 3º) Cadastrar Marcas (Se necessário); 4º) Cadastrar Tamanhos (Se necessário); 5º) Cadastrar Cores (Se necessário). IMPORTANTE: O item Categoria é obrigatório no cadastro de produtos <%=msg_resultadoProduto%> ESCOLHA ABAIXO UM DOS TIPOS DE PESQUISAS Categoria: <%Call Cria_Combo_Categoria_ADM(codigo_categoria,vazio,varLang)%> <%If VerificaExistenciaDado("codigo_categoria","categorias",VAZIO,VAZIO) <> "Sem Categorias" then%><%Else%><%End if%> Subcategoria: <%Call Cria_Combo_SubCategoria(codigo_subcategoria,vazio,varLang)%> Marca: <%Call Cria_Combo_Marca(codigo_marca)%> Buscas Diversas: Selecione Produtos na Vitrine Produtos em Promoção Código de produto da loja: <% If request("pesquisar") <> "" Then Set RS_Produto = Server.CreateObject("ADODB.Recordset") RS_Produto.CursorLocation = 3 RS_Produto.CursorType = 0 RS_Produto.LockType = 3 query = "SELECT Produtos.codigo_produto, Produtos.nome_produto, Categorias.codigo_categoria, Categorias.nome_categoria FROM Produtos INNER JOIN Categorias ON Produtos.codigo_categoria = Categorias.codigo_categoria WHERE Produtos.sigla_idioma = '" & varLang & "' AND Categorias.sigla_idioma = '" & varLang & "'" If request("codigo_categoria") <> "" Then query = query & " AND produtos.codigo_categoria= " & request("codigo_categoria") End If If request("codigo_subcategoria") <> "" Then query = query & " AND produtos.codigo_subcategoria= " & request("codigo_subcategoria") End If If request("codigo_marca") <> "" Then query = query & " AND produtos.codigo_marca= " & request("codigo_marca") End If If request("codigo_loja") <> "" Then query = query & " AND produtos.codigo_produto_loja= '" & request("codigo_loja") & "'" End If If request("diversas") <> "" Then If request("diversas") = "vitrine" then query = query & " AND produtos.destaque_vitrine=1" ElseIf request("diversas") = "promocao" then query = query & " AND produtos.promocao=1" End if End If RS_Produto.Open query, conexao If RS_Produto.EOF Then %> <% Else While Not RS_Produto.EOF If RS_Produto.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If If CDbl(norep) <> RS_Produto("codigo_produto") Then %> onMouseOver="this.style.backgroundColor='#FFECEC'; this.style.cursor='hand';" onMouseOut="this.style.backgroundColor='';" onclick="javascript: window.location='ADM_altera_produto.asp?codigo_produto=<%=RS_Produto("codigo_produto")%>&codigo_categoria=<%=RS_Produto("codigo_categoria")%>';"> <% norep = RS_Produto("codigo_produto") End if RS_Produto.MoveNext Wend End If RS_Produto.Close Set RS_Produto = nothing Else %> <% End if %> COD PRODUTO CATEGORIA Sem resultado para sua pesquisa. <%=RS_Produto("codigo_produto")%>   <%=RS_Produto("nome_produto")%> <%=RS_Produto("nome_categoria")%> O resultado da busca será exibido aqui. <% If msg_resultado <> "" Then %> <% End If %> <%End if%> CADASTRO DE PRODUTOS <%=msg_resultado%> Selecione a Categoria: <%Call Cria_Combo_Categoria_ADM(codigo_categoria,vazio,varLang)%>