<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.3 ' Data: 12/09/06 ' Arquivo: ADM_lista_caixa.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) ' Le informacoes das Caixas Set RS_Caixas = Server.CreateObject("ADODB.Recordset") RS_Caixas.CursorLocation = 3 RS_Caixas.CursorType = 0 RS_Caixas.LockType = 3 RS_Caixas.Open "SELECT codigo_caixa, nome_caixa, descricao_caixa, altura_caixa, comprimento_caixa, largura_caixa FROM Caixas ORDER BY nome_caixa", Conexao %>

• Verificar Caixas <% If RS_Caixas.Eof Then %> <% Else ' Mostra tabela de Caixas While Not RS_Caixas.EOF If RS_Caixas.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_caixa.asp?codigo_caixa=<%= RS_Caixas("codigo_caixa") %>';"> <% RS_Caixas.MoveNext Wend End if RS_Caixas.Close Set RS_Caixas = nothing Conexao.Close %> CÓDIGO CAIXA Nenhuma caixa cadastrada <%= RS_Caixas("codigo_caixa") %> <%= RS_Caixas("nome_caixa")%>