<%@LANGUAGE="VBSCRIPT"%> <% Response.Redirect "http://iabsp.org.br/index.php/iab-sao-paulo/departamentos/" %> <% pagina = "departamentosestaduais"%> <% Dim IAB_Brasil Dim IAB_Brasil_numRows Set IAB_Brasil = Server.CreateObject("ADODB.Recordset") IAB_Brasil.ActiveConnection = MM_iabsp_STRING IAB_Brasil.Source = "SELECT celular, cep, cidade, DDD, email, email2, endereco, estado, FAX, fone1, fone2, fone3, Nome, pagina_web, regiao FROM IAB_BRASIL ORDER BY regiao ASC" IAB_Brasil.CursorType = 0 IAB_Brasil.CursorLocation = 2 IAB_Brasil.LockType = 1 IAB_Brasil.Open() IAB_Brasil_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 IAB_Brasil_numRows = IAB_Brasil_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT IAB_Brasil.EOF)) %> <% fax =(IAB_Brasil.Fields.Item("FAX").Value)%> <% if "a"&fax <> "a" then%> <% end if %> <% site =(IAB_Brasil.Fields.Item("pagina_web").Value)%> <% if "a"&site <> "a" then %> <% end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 IAB_Brasil.MoveNext() Wend %>   <%=(IAB_Brasil.Fields.Item("regiao").Value)%> Presidente: <%=(IAB_Brasil.Fields.Item("Nome").Value)%> <%=(IAB_Brasil.Fields.Item("endereco").Value)%> <%=(IAB_Brasil.Fields.Item("cep").Value)%> - <%=(IAB_Brasil.Fields.Item("cidade").Value)%>-<%=(IAB_Brasil.Fields.Item("estado").Value)%> (<%=(IAB_Brasil.Fields.Item("DDD").Value)%>) <% fone1=(IAB_Brasil.Fields.Item("fone1").Value)%> <% if "a"&fone1 <> "a" then %> <% = fone1 %> <% end if %> <% fone2=(IAB_Brasil.Fields.Item("fone2").Value)%> <% if "a"&fone2 <> "a" then %> . <% = fone2 %> <% end if %> <% fone3=(IAB_Brasil.Fields.Item("fone3").Value)%> <% if "a"&fone3 <> "a" then %> . <% = fone3 %> <% end if %> (<%=(IAB_Brasil.Fields.Item("DDD").Value)%>) <%= fax%> <% email=(IAB_Brasil.Fields.Item("email").Value)%> <% if "a"&email <> "a" then %> <% = email %> <% end if %> <% email2=(IAB_Brasil.Fields.Item("email2").Value)%> <% if "a"&email2 <> "a" then %>   .  <% = email2 %> <% end if %> <% = site %>

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