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

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

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