<%'response.Write now 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 5 'if Serie = (N & "S") or Serie ="J1" or Serie ="J2" then if Serie = (N & "S") then bMostra = True exit for end if Next if (bMostra) then %> <% end if end if%> <% If Request.Form("logado") = "T" then %> <% 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:

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