<% 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)
%>
|