<%
//
// 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: