<%@ Language=VBScript%> <% ON ERROR RESUME NEXT SalvaTela Dim login, senha, msg, erro, cor, RS,pagina1 '----------------------------------------------------------------------------------------------------- ' Checa se houve a entrada de dados '----------------------------------------------------------------------------------------------------- If Request.Form.Count > 0 Then login = Ucase(Request.Form("login")) senha = Ucase(Request.Form("senha")) msg = Request.Form("msg") if login = "" and senha = "" then msg = "Informar usuario e/ou senha!" close else '----------------------------------------------------------------------------------------------------- ' Abre Banco de dados '----------------------------------------------------------------------------------------------------- abreDB '----------------------------------------------------------------------------------------------------- ' Executa SQL de busca de dados. '----------------------------------------------------------------------------------------------------- sql="SELECT * FROM usuario WHERE login='"&login&"' and senha='"&senha&"'" Set RS = DB.Execute(sql) '----------------------------------------------------------------------------------------------------- ' verifica se o usuário ou senha é válido. '----------------------------------------------------------------------------------------------------- If rs.fields("login") <> login or rs.fields("senha") <> senha then msg = "Login/Senha inválido" Else usuario = rs.fields("login") grupo = rs.fields("grupo") msg = "Login aceito!" Session("usuario") = usuario Session("grupo") = grupo response.Redirect("adm.asp") end if end If end if %>

Organograma