<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% pagina = "dir_anteriores"%> <%classifica = 0 + request("classifica")%> <%if classifica > 0 then complemento = "where id_diretoria = "&classifica%> <% Dim diretoria Dim diretoria_numRows Set diretoria = Server.CreateObject("ADODB.Recordset") diretoria.ActiveConnection = MM_iabsp_STRING diretoria.Source = "SELECT * FROM Dir_anteriores "&complemento&" ORDER BY periodo ASC" diretoria.CursorType = 0 diretoria.CursorLocation = 2 diretoria.LockType = 1 diretoria.Open() diretoria_numRows = 0 %> <% Dim rs_periodos Dim rs_periodos_numRows Set rs_periodos = Server.CreateObject("ADODB.Recordset") rs_periodos.ActiveConnection = MM_iabsp_STRING rs_periodos.Source = "SELECT * FROM periodos " rs_periodos.CursorType = 0 rs_periodos.CursorLocation = 2 rs_periodos.LockType = 1 rs_periodos.Open() rs_periodos_numRows = 0 %> Instituto de Arquitetos do Brasil - Departamento de São Paulo
<% foto =(diretoria.Fields.Item("foto").Value)%> <% tabela_foto = ""%> <% tabela_normal = ""%> <%=tabela_foto%><%else%><%=tabela_normal%><%end if%> <% cons_diretor =(diretoria.Fields.Item("cons_diretor").Value)%><% if cons_diretor&"a" <> "a" then %><% end if %> <% cons_fiscal =(diretoria.Fields.Item("cons_fiscal").Value)%><% if cons_fiscal&"a" <> "a" then %><% end if %> <% cons_sup_tit =(diretoria.Fields.Item("cons_sup_tit").Value)%><% if cons_sup_tit&"a" <> "a" then %><% end if %> <% cons_sup_supl =(diretoria.Fields.Item("cons_sup_supl").Value)%><% if cons_sup_supl&"a" <> "a" then %><% end if %>
 
"&(diretoria.Fields.Item("periodo").Value)&"
Presidente
"&(diretoria.Fields.Item("periodo").Value)&"
<% if foto&"a" <> "a" then %>
 
Conselho Diretor
<%= replace((cons_diretor), chr(13),"
")%>
Conselho Fiscal
<%= replace((cons_fiscal), chr(13),"
")%>
Conselho Superior - Titulares
<%= replace((cons_sup_tit), chr(13),"
")%>
Conselho Superior - Suplentes
<%= replace((cons_sup_supl), chr(13),"
")%>
<% rs_periodos.Close() Set rs_periodos = Nothing %> <% diretoria.Close() Set diretoria = Nothing %>