|
<%
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
%>
|
