<% login = request("usuario") senha = request("senha") login = replace(login,"'","") senha = replace(senha,"'","") %> <%if login <> "" then%> <%if senha <> "" then%> <%strSQL = "Select * from funcionarios where login ='" & login & "' and senha = '" & senha & "' and status = 1" Set RS4 = conexao.Execute(strSQL) if Not RS4.eof then passou = "ok" Response.Cookies("email") = "" if RS4("email") <> "" Then session("email") = RS4("email") Response.Cookies("email") = session("email") end If if RS4("setor") <> "" Then session("categoria") = RS4("setor") Response.cookies("categoria") = session("categoria") else session("categoria") = "0" Response.cookies("categoria") = "0" end If session("MM_Username") = RS4("NomeFuncionario") response.cookies("MM_Username") = session("MM_Username") session("permissao") = RS4("autorizacao") response.cookies("permissao") = session("permissao") session("nome") = RS4("NomeFuncionario") response.cookies("nome") = session("nome") session("funcao") = RS4("funcao") response.cookies("funcao") = session("funcao") session("id") = RS4("id") response.cookies("id") = session("id") session("codigoFuncionario") = RS4("codigoFuncionario") response.cookies("codigoFuncionario") = session("codigoFuncionario") If RS4("turmas") <> "" Then session("curso") = RS4("turmas") response.cookies("curso") = session("curso") session("cursos") = RS4("turmas") response.cookies("cursos") = session("cursos") Else session("curso") = "" response.cookies("curso") = "" session("cursos") = "" response.cookies("cursos") = "" End If session("pessoa") = request.Cookies("id") Response.Cookies("pessoa") = session("pessoa") Response.Cookies("aluno") = "" Response.Cookies("responsavel") = "" session("autorizacao") = RS4("autorizacao") response.Cookies("autorizacao") = session("autorizacao") session("tipo") = "Funcionário" response.Cookies("tipo") = "Funcionário" session("categoria1") = RS4("categoria") response.Cookies("categoria1") = session("categoria1") session("categoria2") = RS4("categoria2") response.Cookies("categoria2") = session("categoria2") session("categoria3") = RS4("categoria3") response.Cookies("categoria3") = session("categoria3") session("categoria4") = RS4("categoria4") response.Cookies("categoria4") = session("categoria4") 'strSQLT = "insert into controle_acesso (ip,professor,aluno,data,hora,responsavel,pais) values ('"&request.servervariableS("REMOTE_ADDR")&"','1','0','"&year(date)&"/"&month(date)&"/"&day(date)&"','"&time()&"','"&request.Cookies("pessoa")&"',0)" 'Set RST = Conexao.Execute(strSQLT) End if %> <%else%> <%msg = "Campo senha está em branco"%> <%end if%> <%end if%> <% If request.cookies("pessoa") <> "" Then %>
Bem vindo,
<%=request.cookies("MM_Username")%>
Clique aqui para acessar sua área restrita

Sair
<% If request.cookies("pessoa") = "56" Then Response.redirect("graficarapida/index.asp") else Response.redirect("adm/form_editar_funcionario.asp") End if Else %> Colégio Madre Cabrini - Login
Colégio Madre Cabrini

Login
<% If request.form("login") <> "" And request.form("senha") <> "" Then Response.write "

Login/Senha Incorreto(s)
" End If %> <%End If%>