<%
Dim objConBD
Dim objRSHome, objMenu
Dim rsAcademicos
Dim rsTpAcademicos
Dim StrConn
Dim strsql
Dim strMensagem
Dim Status
Dim cdTipoAcademico
strMensagem = ""
Set objConBD = New ConexaoBD
Set objMenu = New Menu
Set objRSHome = objConBD.objConn.Execute("SELECT * FROM tbansp_Home")
Function Completa(strMasc, strEntr)
Dim strSaida
strSaida = ""
If Len(strMasc) > Len(strEntr) Then strSaida = Left(strMasc, Len(strMasc) - Len(strEntr))
strSaida = strSaida & strEntr
Completa = strSaida
End Function
strMensagem = request("strMsg")
'Carrega lista de Tipos Academicos
strSql = ""
strSql = strSql & " SELECT nr_dhID_tipo_academico, ds_tipo_academicos"
strSql = strSql & " FROM tbansp_tipo_academicos"
Set rsTpAcademicos = objConBD.objConn.Execute(strSql)
cdTipoAcademico = request("selTpAcademico")
if cdTipoAcademico = "" then
cdTipoAcademico = 1
end if
'Carrega lista de Academicos
strSql = ""
strSql = strSql & " SELECT nr_dhID, ds_nome_foto,"
strSql = strSql & " ds_nome_academico, ds_resumo, ds_nome_curriculo"
strSql = strSql & " FROM tbansp_Academicos"
strSql = strSql & " WHERE nr_dhID_tipo_academico = " & cdTipoAcademico
strSql = strSql & " AND nr_stID = 2"
strSql = strSql & " ORDER BY ds_nome_academico"
Set rsAcademicos = objConBD.objConn.Execute(strSql)
%>
ANSP - Academia Nacional de Seguros e Previdência
<%
Call objMenu.AdmEsq()
%>
<%
Set rsAcademicos = nothing
Set rsTpAcademicos = nothing
Set objMenu = Nothing
Set objConBD = Nothing
%>
