<% abainicial = getform("abainicial") If( abainicial <> "")Then If( abainicial = "0")Then%> <%Else%> <%End If End If %>
<% strSql = "SELECT * FROM Noticia WHERE FlagPublico = True AND categoria_id = 1 ORDER BY Data DESC;" 'Response.Write(strSql) 'Response.End() Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open strSql, application("strConnection"), 1, 2 while not rs.eof %> <% Rs.movenext wend Set Rs = Nothing %>
<% strSql = "SELECT * FROM Noticia WHERE FlagPublico = True AND categoria_id = 2 ORDER BY Data DESC;" 'Response.Write(strSql) 'Response.End() Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open strSql, application("strConnection"), 1, 2 while not rs.eof %> <% Rs.movenext wend Set Rs = Nothing %>

 

<% abainicial = getform("abaInicial") If( abainicial = "")Then abaInicial = "0" End If If( abaInicial <> "" AND CInt(abaInicial) > 0 )Then %> <% Else %> <% End If %>