<% ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\extinil\dados\bancomestre.mdb;" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConnString ConnString1="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\extinil\dados\acesso.mdb;" Set Conexao1 = Server.CreateObject("ADODB.Connection") Conexao1.Open ConnString1 Set Registros = Server.CreateObject("ADODB.Recordset") %> <% ' VI 6.0 Scripting Object Model Enabled %> <% if StartPageProcessing() Then Response.End() %>

<% Label1.display %>

  <% t1.display %>

<% Label2.display %>

  <% t2.display %>

<% Label3.display %>

  <% p1.display %>

<% Button1.display %>

                     <% Button3.display %>

                                              <% Button2.display %>

<% ' VI 6.0 Scripting Object Model Enabled %> <% EndPageProcessing() %>
<% conexao.Close conexao1.Close set conexao = nothing set conexao1 = nothing set registros = nothing %>