<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: ADM_lista_categoria.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 12/09/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&"") %>

<% 'abre o banco de dados Call abre_conexao(conexao) msg_resultado = request("msg_resultado") ' Le informacoes das RS_Categorias Set RS_Categorias = Server.CreateObject("ADODB.Recordset") RS_Categorias.CursorLocation = 3 RS_Categorias.CursorType = 0 RS_Categorias.LockType = 3 RS_Categorias.Open "SELECT codigo_chave, codigo_categoria, nome_categoria, descricao_categoria, sigla_idioma FROM Categorias WHERE Categorias.sigla_idioma = '" & varLang & "'", Conexao %> • Verificar categorias <% If msg_resultado <> "" Then %> <% End If %> <% If RS_Categorias.Eof Then %> <% Else ' Mostra tabela de Categorias While Not RS_Categorias.EOF If RS_Categorias.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If %> onMouseOver="this.style.backgroundColor='#FFECEC'; this.style.cursor='hand';" onMouseOut="this.style.backgroundColor='';" onclick="javascript: window.location='adm_altera_categoria.asp?codigo_categoria=<%= RS_Categorias("codigo_categoria") %>';"> <% RS_Categorias.MoveNext Wend End if RS_Categorias.Close Set RS_Categorias = Nothing Conexao.Close %> <%=msg_resultado%> CÓDIGO CATEGORIA Nenhuma categoria cadastrada <%= RS_Categorias ("codigo_categoria") %> <%= RS_Categorias("nome_categoria") %>