<% If Request.Form("logado") = "T" then RGM = Request.Form("RGM") Set Dados = Banco.Execute("Select SERIE From ALUNOS Where RGM = '" & RGM & "'") if not dados.eof then Serie = Dados(0) end if Dados.Close : Set Dados = Nothing Dim bMostra : bMostra = false For N = 1 to 9 if Serie = (N & "S") or Serie = (N & "C") then bMostra = True exit for end if Next if (bMostra) then %> <% end if end if%>
     
 
<% strMSG = "Para ter acesso as opções do menu acima entre com  o RGM e Senha. " If Request.Form("logado") = "T" Then SQLSTMT = "SELECT NOME FROM ALUNOS WHERE RGM = '" &Request.Form("RGM")& "'" Set Dados = Banco.Execute(SQLSTMT) if not dados.eof then Nome = Dados(0) strMSG = Nome & "
Selecione uma opção do menu!" if dados.state = 1 then Dados.Close Set Dados = Nothing Banco.Close Set Banco = Nothing End If If (Request.Form("logado") = "F") Or (Request.QueryString("logado") = "F") Then strMSG = "Dados inválidos! Tente novamente!" End If 'Response.Write("logado é: " & Request.Form("logado")&"
") 'Response.Write(request.Form("logado") = false) 'Response.Write("entrou no ultimo") Response.Write(strMSG) %>
RGM:
Senha:

"> ">
"> ">
"> ">
"> ">
"> ">
"> ">
"> ">