<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: ADM_lista_marca.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 25/07/08 ' '----------------------------------------------------------------------------- ' 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&"") %> <% If Request.QueryString("PN") = "" THEN PaginaCorrente = 1 Else PaginaCorrente = Request.QueryString("PN") End If If Request.QueryString("FctIntervalo")= "" THEN VarIntervalo = "20" Else VarIntervalo = Request.QueryString("FctIntervalo") End If 'abre o banco de dados Call abre_conexao(conexao) ' Le informacoes das Marcas Set RS_Marcas = Server.CreateObject("ADODB.Recordset") RS_Marcas.CursorLocation = 3 RS_Marcas.CursorType = 0 RS_Marcas.LockType = 3 RS_Marcas.Open "SELECT codigo_marca, nome_marca, descricao_marca, url_imagem FROM Marcas", Conexao %>

• Verificar Marcas <% If RS_Marcas.Eof Then %> <% Else RS_Marcas.PageSize = CInt(VarIntervalo) VarTotalPaginas= RS_Marcas.PageCount Var_TotalRegistros = RS_Marcas.recordcount RS_Marcas.AbsolutePage = CInt(PaginaCorrente) ' Mostra tabela de Marcas Do Until RS_Marcas.AbsolutePage <> CInt(PaginaCorrente) OR RS_Marcas.EOF If RS_Marcas.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_marca.asp?codigo_marca=<%= RS_Marcas("codigo_Marca") %>';"> <% RS_Marcas.MoveNext Loop %> <% End if RS_Marcas.Close Set RS_Marcas = Nothing Conexao.Close %> CÓDIGO MARCA Nenhuma Marca cadastrada. <%= RS_Marcas("codigo_Marca") %> <%= RS_Marcas("nome_Marca")%> <% 'Chama a páginação Call paginacao(VarStrAdicional,VarTotalPaginas,VarIntervalo) %> RESUMO DESTA CONSULTA Total de Registros: <%=Var_TotalRegistros%> Total de Páginas: <%=VarTotalPaginas%>