% 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 %>:.
|
|
CGM: |
<%=Dados("RGM")%> |
NOME: |
<%=Dados("NOME")%> |
SÉRIE: |
<%=Dados("SERIE")%> |
TURMA: |
<%=Dados("TURMA")%> |
Nº: |
<%=Dados("NUMERO")%> |
<%
if Dados("SERIE") = "JD" then curso="EI"
if Dados("SERIE") = "P1" then curso="EI"
if Dados("SERIE") = "P2" then curso="EI"
if Dados("SERIE") = "1A" then curso="F1"
if Dados("SERIE") = "2A" then curso="F1"
if Dados("SERIE") = "3A" then curso="F1"
if Dados("SERIE") = "4A" then curso="F1"
if Dados("SERIE") = "5A" then curso="F2"
if Dados("SERIE") = "6A" then curso="F2"
if Dados("SERIE") = "7A" then curso="F2"
if Dados("SERIE") = "8A" then curso="F2"
if Dados("SERIE") = "9A" then curso="EM"
if Dados("SERIE") = "1C" then curso="EM"
if Dados("SERIE") = "2C" then curso="EM"
if Dados("SERIE") = "3C" then curso="EM"
sSQL = "Select File,Descri from Downloads where tipo=1 and ativo=1 and curso='" & Curso & "' order by data desc"
'response.write SQLSTMT
call AbreRS(sSQL)
If rs.EOF Then%>
Nenhum registro encontrado!
<% Else %>
Arquivo
|
<%Do While not rs.EOF%>
|
<%rs.Movenext
Loop
FechaRs(rs)
FechaBD(oBD)%>
<% End If %>
[
Log-Out
] |
|
|
<%'Dados.Close
'Set Dados = Nothing
Banco.Close
Set Banco = Nothing%>
<% End if %>