% 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 Right(Dados("SERIE"),1) = "C" then
curso="EM"
elseif Right(Dados("SERIE"),1) = "S" then
if (CInt(Left(Dados("SERIE"),1)) > 0) and (CInt(Left(Dados("SERIE"),1)) < 6) then '1 a 5 = F1
curso="F1"
else
curso="F2"
end if
else
curso="EI"
end if
sSQL = "Select File,Descri from Downloads where 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 %>