Acesso
Rápido
|
<%
statusErro = request("statusErro")
if ( len(statusErro) > 0 ) then
sMsg = "Login inválido!"
end if
if request("logar") = "ok" then
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
Set db = server.CreateObject("ADODB.Connection")
db.open Application("BD2")
' Coloca em memória o owner do banco e dados
session("userBD") = "DBQUALIFICACAO"
strUsuario = request("w_no_login_usuario")
strSenha = request("w_ds_senha")
sQuery = ""
' Select de pesquisa na base d usuário
sQuery = "SELECT u.co_seq_usuario, u.co_municipio_ibge,u.st_perfil_usuario, m.no_municipio, m.sg_uf, "
sQuery = sQuery & "u.no_login_usuario, u.ds_senha, u.nu_telefone, u.ds_email, u.co_usuario_master "
sQuery = sQuery & "FROM " & session("userBD") & ".tb_usuario u, " & session("userBD") & ".vw_municipio_inscrito m "
sQuery = sQuery & "WHERE u.co_municipio_ibge = m.co_municipio_ibge "
sQuery = sQuery & "and u.no_login_usuario = '" & strUsuario & "' and u.ds_senha = '" & strSenha & "' "
sQuery = sQuery & "and u.st_ativo = 'S'"
'response.Write(sQuery)
'response.end
Set rs = db.execute(sQuery)
if ( not rs.eof ) then
session("co_usuario_master") = rs("co_usuario_master")
session("codMunicipioIbge") = rs("co_municipio_ibge")
session("no_login_usuario") = strUsuario
session("co_seq_usuario") = rs("co_seq_usuario")
session("ufMunicipioIbge") = rs("sg_uf")
session("nomeMunicipio") = rs("no_municipio")
session("nu_telefone") = rs("nu_telefone")
session("ds_senha") = rs("ds_senha")
session("ds_email") = rs("ds_email")
session("stPerfil") = rs("st_perfil_usuario")
rs.close
session("MENUESF") = ""
sRedirect = ""
else
response.redirect "Login.asp?statusErro=Sim"
end if
session("sCodRegSel") = ""
session("sCodMicroSel") = ""
session("sCodMicro") = ""
session("sCodUsfSel") = 0
end if
%>
<%' Response.write sRedirect %>
<%
statusErro = request("statusErro")
if ( len(statusErro) > 0 ) then
sMsg = "Login inválido!"
end if
if request("logar") = "ok" then
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
Set db = server.CreateObject("ADODB.Connection")
db.open Application("BD2")
' Coloca em memória o owner do banco e dados
session("userBD") = "DBQUALIFICACAO"
strUsuario = request("w_no_login_usuario")
strSenha = request("w_ds_senha")
sQuery = ""
' Select de pesquisa na base d usuário
sQuery = "SELECT u.co_seq_usuario, u.co_municipio_ibge,u.st_perfil_usuario, m.no_municipio, m.sg_uf, "
sQuery = sQuery & "u.no_login_usuario, u.ds_senha, u.nu_telefone, u.ds_email, u.co_usuario_master "
sQuery = sQuery & "FROM " & session("userBD") & ".tb_usuario u, " & session("userBD") & ".vw_municipio_inscrito m "
sQuery = sQuery & "WHERE u.co_municipio_ibge = m.co_municipio_ibge "
sQuery = sQuery & "and u.no_login_usuario = '" & strUsuario & "' and u.ds_senha = '" & strSenha & "' "
sQuery = sQuery & "and u.st_ativo = 'S'"
'response.Write(sQuery)
'response.end
Set rs = db.execute(sQuery)
if ( not rs.eof ) then
session("co_usuario_master") = rs("co_usuario_master")
session("codMunicipioIbge") = rs("co_municipio_ibge")
session("no_login_usuario") = strUsuario
session("co_seq_usuario") = rs("co_seq_usuario")
session("ufMunicipioIbge") = rs("sg_uf")
session("nomeMunicipio") = rs("no_municipio")
session("nu_telefone") = rs("nu_telefone")
session("ds_senha") = rs("ds_senha")
session("ds_email") = rs("ds_email")
session("stPerfil") = rs("st_perfil_usuario")
rs.close
session("MENUESF") = ""
sRedirect = ""
else
response.redirect "Login.asp?statusErro=Sim"
end if
session("sCodRegSel") = ""
session("sCodMicroSel") = ""
session("sCodMicro") = ""
session("sCodUsfSel") = 0
end if
%>
Questionario de Auto Avaliação - ESF
<% Response.write sRedirect %>
|
|
Oficinas Macrorregionais
Fortaleza/São Paulo/Brasília/ Porto Alegre
-
Conteúdos Disponibilizados.
|
|
|
|
