<% If Request.Form("logado") = "D" then %> <% 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:

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