<!--#include file="templates\templateLogin.asp"-->
<!--#include file="templates\MetToolbar.asp"-->
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>ACME</title>
    <link rel="STYLESHEET" type="text/css" href="css/padrao.css">
  </head>
  <body bgcolor="#99CCCC" marginheight=0 marginwidth=5 topmargin=0>
<%
  dim mytoolbar
  set mytoolbar = new toolbar
  mytoolbar.Configura "corpo", true, false, true, false	
  select Case Request.QueryString("PRG")
   Case "PONTO"
    Select Case Request.QueryString("TP")  'Tipo da barra de botões
       Case "LST"  'Lista
         mytoolbar.addBotaoOperacao "Incluir","incluir()",120, "a","b"
         mytoolbar.addBotaoOperacao "Excluir","excluir()",120, "",""
         mytoolbar.addBotaoOperacao "Voltar","voltar()",120, "",""					
       Case "INC"  'Inclusão de nova instância
         mytoolbar.addBotaoOperacao "Salvar","salvar()",120, "",""
         mytoolbar.addBotaoOperacao "Salvar e Sair","salvar(true)",120, "",""
         mytoolbar.addBotaoOperacao "Voltar","voltar()",120, "",""
       Case "ALT"  'Alteração de uma instância
         mytoolbar.addBotaoOperacao "Salvar","salvar()",120, "",""
         mytoolbar.addBotaoOperacao "Salvar e Sair","salvar(true)",120, "",""
         mytoolbar.addBotaoOperacao "Excluir","excluir()",120, "",""
         mytoolbar.addBotaoOperacao "Voltar","voltar()",120, "",""					
    End Select
  End Select
  mytoolbar.SetCores "#000000", "#FFFFFF", "#009CE8", "#009CE8", "Navy", "#BFEBFF"
  mytoolbar.monta 
  set mytoolbar = nothing
%>
  </body>
</html>