<%
conecta = request("conecta")
usuario = request("usuario")
senha = request("senha")
v_desconectar = request("desconectar")
if v_desconectar = "sim" then
desconectar()
end if
abre()
acesso()
if conecta = "sim" then
if (len(usuario) <> 11) and (len(usuario) <> 14) then
w ""
grava = "nao"
end if
if grava <> "nao" then
If (len(usuario) = 11) then
SQL = "SELECT * FROM CLNT WHERE (CPF = '"+usuario+"') and (SENHA = '"+senha+"') and (CONF = True)"
else
SQL = "SELECT * FROM CLNT WHERE (CNPJ = '"+usuario+"') and (SENHA = '"+senha+"') and (CONF = True)"
end if
set rsquery = objCon.Execute(SQL)
If rsquery.eof Then
w ""
Else
'logar(usuario)
logar_site(usuario)
acesso()
End If
end if
end if
%>
Relatório RH