<%
If Session("UsuarioLogado") <> "" Then
Response.Redirect "acompanhe_login.asp"
End If
%>
<%
Acao = Request.QueryString("Acao")
If Acao = "Login" Then
Email = Request.Form("Email")
Senha = Request.Form("Senha")
If Email = "" OR Senha="" Then
Response.write ""
Else
SQL = "Select Id,Nome,Email From Usuarios Where Email = '" & Email & "' And Senha = '" & Senha &"' "
Set Rs = db.Execute(sql)
If Not rs.eof then
Session("Nome") = Rs("Nome")
Session("Email") = Rs("Email")
Session("Id") = Rs("Id")
Session("UsuarioLogado") = True
Rs.Close
Set Rs=Nothing
response.redirect "acompanhe_login.asp"
Else
Response.write ""
End If
End If
End If
%>
Ticket to Mind
