<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Redirect "http://iabsp.org.br/index.php/iab-sao-paulo/diretoria/" %> <% pagina = "conselhodiretor"%> <% Dim Presidencia Dim Presidencia_numRows Set Presidencia = Server.CreateObject("ADODB.Recordset") Presidencia.ActiveConnection = MM_iabsp_STRING Presidencia.Source = "SELECT email, Nome, Ordem, Titulo FROM Presidencia ORDER BY Ordem ASC" Presidencia.CursorType = 0 Presidencia.CursorLocation = 2 Presidencia.LockType = 1 Presidencia.Open() Presidencia_numRows = 0 %> <% Dim superior Dim superior_numRows Set superior = Server.CreateObject("ADODB.Recordset") superior.ActiveConnection = MM_iabsp_STRING superior.Source = "SELECT * FROM Superior ORDER BY Nome ASC" superior.CursorType = 0 superior.CursorLocation = 2 superior.LockType = 1 superior.Open() superior_numRows = 0 %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 superior_numRows = superior_numRows + Repeat4__numRows %>

<% Dim secretaria Dim secretaria_numRows Set secretaria = Server.CreateObject("ADODB.Recordset") secretaria.ActiveConnection = MM_iabsp_STRING secretaria.Source = "SELECT email, ID_secretaria, Nome, Ordem, Titulo FROM Secretaria ORDER BY Ordem ASC" secretaria.CursorType = 0 secretaria.CursorLocation = 2 secretaria.LockType = 1 secretaria.Open() secretaria_numRows = 0 %> <% Dim Diretoria Dim Diretoria_numRows Set Diretoria = Server.CreateObject("ADODB.Recordset") Diretoria.ActiveConnection = MM_iabsp_STRING Diretoria.Source = "SELECT email, Nome, Titulo FROM Diretoria ORDER BY Ordem ASC" Diretoria.CursorType = 0 Diretoria.CursorLocation = 2 Diretoria.LockType = 1 Diretoria.Open() Diretoria_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Presidencia_numRows = Presidencia_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 secretaria_numRows = secretaria_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Diretoria_numRows = Diretoria_numRows + Repeat3__numRows %> <% While ((Repeat1__numRows <> 0) AND (NOT Presidencia.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Presidencia.MoveNext() Wend %> <% While ((Repeat2__numRows <> 0) AND (NOT secretaria.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 secretaria.MoveNext() Wend %> <% While ((Repeat3__numRows <> 0) AND (NOT Diretoria.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Diretoria.MoveNext() Wend %> <% While ((Repeat4__numRows <> 0) AND (NOT superior.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 superior.MoveNext() Wend %>   Presidência <%=(Presidencia.Fields.Item("Titulo").Value)%> <%=(Presidencia.Fields.Item("Nome").Value)%> <% email=(Presidencia.Fields.Item("email").Value)%> <% if "a"&email <> "a" then %> e-mail: <% = email %> <% end if %>   Secretaria <%=(secretaria.Fields.Item("Titulo").Value)%> <%=(secretaria.Fields.Item("Nome").Value)%> <% email=(secretaria.Fields.Item("email").Value)%> <% if "a"&email <> "a" then %> e-mail: <% = email %> <% end if %>   Diretoria <%=(Diretoria.Fields.Item("Titulo").Value)%> <%=(Diretoria.Fields.Item("Nome").Value)%> <% email=(diretoria.Fields.Item("email").Value)%> <% if "a"&email <> "a" then %> e-mail: <% = email %> <% end if %>   Conselho Superior <%=(superior.Fields.Item("Nome").Value)%> <% email=(superior.Fields.Item("email").Value)%> <% if "a"&email <> "a" then %> e-mail: <% = email %> <% end if %>

<% Presidencia.Close() Set Presidencia = Nothing %> <% secretaria.Close() Set secretaria = Nothing %> <% Diretoria.Close() Set Diretoria = Nothing %> <% superior.Close() Set superior = Nothing %>