<%Language = "VBSCRIPT" %>
<%
if time < "12:00:00" then
r_hora = "Bom dia"
elseif time > "12:00:00" then
r_hora = "Boa tarde"
if time > "19:00:00" then
r_hora = "Boa noite"
end if
end if
icoexe = ""
icorel = ""
icobd = ""
arqfundo = ""
r_login = trim(Request.form("txtlogin"))
r_senha = trim(Request.form("txtsenha"))
r_orgao = trim(Request.form("txtorgao"))
r_todos = "Todos"
r_chave = r_login & r_senha
if r_login = "" then
'response.redirect "http://internet/error.asp"
'response.redirect "http://www.vdf.com.br/error.asp"
end if
vdf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= d:\domains\vdf.com.br\db\vdf.mdb" & ";"
set vdfDB = server.createobject ("ADODB.Connection")
vdfDB.open vdf ,"",""
con_thesql = "select * from usuarios where chave = '"&r_chave&"'"
set userset = vdfDB.Execute(con_thesql)
if userset.eof then
'response.redirect "http://vdf.com.br/error.asp"
response.redirect "http://internet/error.asp"
'else
'response.redirect "http://vdf.com.br/downloadvdf.asp"
'response.redirect "http://internet/downloadvdf.asp"
end if
'r_nome = userset("nome")
con_exe = "select * from arquivos where tipo = 'Executável' order by sistema"
set userset2 = vdfDB.Execute(con_exe)
con_rpt = "select * from arquivos where tipo = 'Relatório' order by sistema"
set userset3 = vdfDB.Execute(con_rpt)
con_mdb = "select * from arquivos where tipo = 'Banco de Dados' order by sistema"
set userset4 = vdfDB.Execute(con_mdb)
%>
VDF Sistemas - Contas Públicas
Estamos trabalhando para que esse setor possa estar disponível para acesso, visando maior transparência das contas públicas. Neste setor poderão ser acessadas importantes informações geradas pela administração pública.
