% 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)
'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 %>:.
|
|
CGM: |
<%=Dados("RGM")%> |
NOME: |
<%=Dados("NOME")%> |
SÉRIE: |
<%=Dados("SERIE")%> |
TURMA: |
<%=Dados("TURMA")%> |
Nº: |
<%=Dados("NUMERO")%> |
<%SQLSTMT = "SELECT * FROM OCORREN WHERE cod_descri<>'20' and RGM = '" &RGM& "' ORDER BY DATA DESC"
Set Dados = Banco.Execute(SQLSTMT)
If Dados.EOF Then%>
Nenhum
registro encontrado!
<% Else %>
Mês
|
Ocorrência
|
<%Do While not Dados.EOF%>
<%=Dados("MES")%>
|
<%=Dados("DESCRI")%>
|
<%Dados.Movenext
Loop%>
<% End If %>
[
Log-Out
] |
|
|
<%'Dados.Close
'Set Dados = Nothing
Banco.Close
Set Banco = Nothing%>
<% End if %>