<% If Request.Form("logado") <> "T" Then Banco.Close Response.Redirect("menu.asp?logado=F") Else %> <% RGM = Request.Form("RGM") 'SENHA = Session("SENHA") IP = Request.ServerVariables("REMOTE_ADDR") DATA = DATE HORA = TIME LOCAL = "BOLETIM" SQLSTMT = "SELECT * FROM alunos WHERE RGM = '" &RGM& "'" Set Dados = Banco.Execute(SQLSTMT) vserie= dados("serie") 'Set Controle = Banco.Execute("INSERT INTO CONTROLE (IP,DATA,HORA,LOCAL,RGM) VALUES ('"& IP &"','"& DATA &"','"& HORA &"','"& LOCAL &"','"& RGM &"')") 'Set Controle = Nothing %> .: Escola OnLine - <%= NOME_ESCOLA %>:.
 
      
   
<%= NOME_ESCOLA %>
RGM:
Senha:

CGM: <%=Dados("RGM")%> NOME: <%=Dados("NOME")%> SÉRIE: <%=Dados("SERIE")%> TURMA: <%=Dados("TURMA")%> Nº: <%=Dados("NUMERO")%>
<%SQLSTMT = "SELECT * FROM carnes WHERE rgm = '"&rgm&"' ORDER BY dt_venc" 'response.write SQLSTMT Set Dados = Banco.Execute(SQLSTMT) If Dados.EOF Then%>

Nenhum registro encontrado!

<% Else %>

<%Do While not Dados.EOF%> <%Dados.Movenext Loop%>
Valor
Vencto
Pagto
VER
<%=Dados("Val_car")%>
<%=Dados("dt_venc")%>
<%=Dados("dt_pag")%>
<%if isNull(Dados("dt_pag")) then %> &nosso=<%=Dados("nosso_no")%>&data=<%=Dados("dt_venc")%>', 'JANELA', 'height = 480, width = 720,scrollbars=yes');">Boleto <%end if%>
<% End If %>

[ Log-Out ]

<%'Dados.Close 'Set Dados = Nothing Banco.Close Set Banco = Nothing%> <% End if %>