<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wCPF=request.item("CPF") wDT_Nascimento=request.item("DT_Nascimento") wCPF=replace(wCPF, ".", "") wCPF=replace(wCPF, "-", "") wCPF=replace(wCPF, "/", "") wCPF=replace(wCPF, " ", "") if not IsCPF(wCPF) then response.redirect("MSG_CPF_Invalido.asp?CPF="&wCPF) else wCPF=FormatarCPF(wCPF) end if wDT_Nascimento=InverteData(wDT_Nascimento) SQL="SELECT * FROM RET_PROPOSTA_POR_CPF('" & wCPF & "','" & wDT_Nascimento & "')" Set TabPropostas = Database.Execute(SQL) %>

Imprimir Boleto
 
 
<% While NOT TabPropostas.EoF %> <% TabPropostas.MoveNext Wend %>
Proposta Cliente Plano Valor Plano  

<%=TabPropostas("RID_Proposta")%>

 <%=TabPropostas("RNOME_CLIENTE")%> <%=TabPropostas("RDESCRICAO_PLANO")%> <%=TabPropostas("RVALOR_PLANO")%>

">Abrir