<% Dim DEmpresa, wSenha
DEmpresa=Request.item("DEmpresa")
wSenha=Request.item("Senha")
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open session("stringconexaobomdesorte")
Set rsCliente = DataBase.Execute("SELECT DISTINCT c.cliente, c.NOME, c.DT_NASCIMENTO, c.E_MAIL FROM TICKETS A, CLIENTES C WHERE A.CD_CLIENTE = C.CLIENTE AND A.CD_EMPRESA = " & DEmpresa & " ORDER BY C.Nome")
Set rsEmpresa = DataBase.Execute("SELECT NOME FROM EMPRESAS WHERE EMPRESA = " & DEmpresa & " ")
%>
