<%@LANGUAGE="VBSCRIPT"%> <% Response.Redirect "http://iabsp.org.br/index.php/iab-sao-paulo/representantes/" %> <% pagina = "representantes"%> <% Dim representantes Dim representantes_numRows Set representantes = Server.CreateObject("ADODB.Recordset") representantes.ActiveConnection = MM_representantes_STRING representantes.Source = "SELECT * FROM Representantes ORDER BY Entidade ASC" representantes.CursorType = 0 representantes.CursorLocation = 2 representantes.LockType = 1 representantes.Open() representantes_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 representantes_numRows = representantes_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT representantes.EOF)) %> <% suplente = (representantes.Fields.Item("Suplente").Value)%> <%if suplente&"a"<>"a" then%> <%end if%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 representantes.MoveNext() Wend %>   <%=(representantes.Fields.Item("Entidade").Value)%> <%=(representantes.Fields.Item("Titular").Value)%> <%=suplente%>

<% representantes.Close() Set representantes = Nothing %>