<% // // Página login.msp // // Primeiro recolhe os dados submetidos `a pagina cUsuario:= MSPFieldValue("USUARIO") cSenha:= MSPFieldValue("SENHA") // Abre o banco de dados "Usuarios" // com o indice Nomes //(indexado previamente pelo campo NOME) USE Usuarios INDEX IndUsuario if ! USED() ? "ERRO: Não conseguiu abrir arquivo" quit endif // Localiza o nome de usuario SEEK cUsuario // Testa se os dados submetidos sao validos if ! Found() or usuarios->senha != cSenha // Se o nome de usuario nao for encontrado // ou a senha associada nao coincidir, // exibe o formulario de entrada de dados // para uma nova tentativa. %> Forneça-nos seu nome de usuário e senha:

<% ELSE // Usuario e senha validados ! // Exibir conteudo normal. %> Seja benvindo <%= cUsuario %> !

<% ENDIF %>