<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim Login, Senha
Function Fun_Hora()
hora = hour(now)
minutos = minute(now)
segundos = second(now)
if len(hora) = 1 or hora < 10 or hora = 0 then
hora = "0" + CStr(hora)
end if
if len(minutos) = 1 or minutos < 10 then
minutos = "0" + CStr(minutos)
end if
if len(segundos) = 1 or segundos < 10 then
segundos = "0" + CStr(segundos)
end if
Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)
End Function
Function Fun_Data()
dia = day(now)
mes = monthname(month(now))
ano = year(now)
Fun_Data = CStr(dia) + "/" + mes + "/" + CStr(ano)
End Function
if Request("entrar")<>"" then
Login = Replace(Request("login"),"'","''")
Senha = Replace(Request("Senha"),"'","''")
if login = "" or Senha = "" Then
session("erro") = "Preencha todos campos."
else
SET RS = conexao.execute("select * from usuario where login = '"&Login&"' and Senha = '"&Senha&"'")
If not RS.eof Then
codigo = RS("codigo")
varcontador = RS("contador")
varcontador = varcontador + 1
Session("login") = RS("login")
session("cod") = RS("codigo")
session("cod_login") = RS("codigo")
conexao.execute("Update usuario set contador = '"&varcontador&"' where codigo = "&codigo&"")
hora = Fun_Hora
data = Fun_Data
conexao.execute("insert into acesso(data, hora, cod_cli) values('"&data&"','"&hora&"',"&codigo&")")
response.Redirect("principal.asp")
rs.close : Set rs = Nothing
Else
session("erro") = "Login/Senha incorreto."
End if
End if
End if
Function Fun_Hora()
hora = hour(now)
minutos = minute(now)
segundos =second(now)
if len(hora) = 1 or hora < 10 or hora = 0 then
hora = "0" + CStr(hora)
end if
if len(minutos) = 1 or minutos < 10 then
minutos = "0" + CStr(minutos)
end if
if len(segundos) = 1 or segundos < 10 then
segundos = "0" + CStr(segundos)
end if
Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)
End Function
Function Fun_Data()
dia = day(now)
mes = monthname(month(now))
ano = year(now)
Fun_Data = CStr(dia) + "/" + mes + "/" + CStr(ano)
End Function
%>
Instituto de Justiça Social
