<% Dim Codigo Codigo=Request.item("Codigo") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaobomdesorte") Set rsCliente = Database.Execute("Select * From CLIENTES where CLIENTE =" & Codigo) Set rsTicket = Database.Execute("Select * From TICKETS where CD_CLIENTE =" & Codigo) %>
  <% While NOT rsTicket.EoF %> <% rsTicket.MoveNext %> <% Wend %>

CLIENTES - Detalhes
Cliente : ;" target="principal_Cliente"><%=rsCliente("CLIENTE")%>
Nome : <%=rsCliente("NOME")%>
CPF : <%=rsCliente("CPF")%>
Data de Nasc. : <%=rsCliente("DT_NASCIMENTO")%>
Endereço : <%=rsCliente("ENDERECO")%> - <%=rsCliente("NUMERO")%>
Bairro : <%=rsCliente("BAIRRO")%>
Cidade : <%=rsCliente("CIDADE")%> - <%=rsCliente("ESTADO")%>
CEP : <%=rsCliente("CEP")%>
Telefone : (<%=rsCliente("DDD")%>) - <%=rsCliente("TELEFONE")%>
E-Mail : ><%=RsCliente("E_Mail")%>
 
Ticket : <%=rsTicket("TICKET")%> Vigencia : <%=rsTicket("MES_VIGENCIA")%> - <%=rsTicket("ANO_VIGENCIA")%> Cadastro : <%=rsTicket("DT_CADASTRO")%>