<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Redirect "http://iabsp.org.br/index.php/iab-sao-paulo/estatuto/" %> <% pagina = "iabpresente"%> <% Dim nota_presente nota_presente = 0 if request("nota_presente")&"a" <> "a" then nota_presente = nota_presente + request("nota_presente")%> <% Dim noticia Dim noticia_numRows Set noticia = Server.CreateObject("ADODB.Recordset") noticia.ActiveConnection = MM_iabsp_STRING if nota_presente > 0 then noticia.Source = "SELECT data, ID_noticia, quente, Str_email, Str_Imagem, Str_site, Str_Texto, Str_Titulo FROM IAB_Presente where ID_noticia = "& nota_presente &"" else noticia.Source = "SELECT data, ID_noticia, quente, Str_email, Str_Imagem, Str_site, Str_Texto, Str_Titulo FROM IAB_Presente order by ID_noticia Desc" end if noticia.CursorType = 0 noticia.CursorLocation = 2 noticia.LockType = 1 noticia.Open() noticia_numRows = 0 %> <% if nota_presente = 0 then nota_presente = (noticia.Fields.Item("ID_noticia").Value)%> <% Dim noticias Dim noticias_numRows Set noticias = Server.CreateObject("ADODB.Recordset") noticias.ActiveConnection = MM_iabsp_STRING noticias.Source = "SELECT aparece, ID_noticia, Str_Titulo FROM IAB_Presente WHERE aparece = 1 Order by ID_noticia desc" noticias.CursorType = 0 noticias.CursorLocation = 2 noticias.LockType = 1 noticias.Open() noticias_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 noticias_numRows = noticias_numRows + Repeat1__numRows %> Instituto de Arquitetos do Brasil - Departamento de São Paulo
<% foto =(noticia.Fields.Item("Str_Imagem").Value) if foto&"a" <> "a" then%> <%end if%> <% site =(noticia.Fields.Item("Str_site").Value) if "a"&site <> "a" then %> <%end if%> <% email =(noticia.Fields.Item("Str_email").Value) if "a"&email <> "a" then %> <%end if%>
 
<%=(noticia.Fields.Item("Str_Titulo").Value)%>
 
<%= replace ((noticia.Fields.Item("Str_Texto").Value),chr(13), "
")%>
<% = site%>
<%=email%>
<%=(noticia.Fields.Item("data").Value)%>
 
    <% While ((Repeat1__numRows <> 0) AND (NOT noticias.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 noticias.MoveNext() Wend %>
Estatuto IAB-SP
<%ID_noticia=(noticias.Fields.Item("ID_noticia").Value)%> <%if ID_noticia <> nota_presente then%> <%=(noticias.Fields.Item("Str_Titulo").Value)%> <%else%> <%=(noticias.Fields.Item("Str_Titulo").Value)%> <%end if%>
 
<% noticia.Close() Set noticia = Nothing %> <% noticias.Close() Set noticias = Nothing %>