| |
| |
<%
vSQL = "SELECT CDNOTICIA, TXTTITULO, TXTDATANOTICIA "
vSQL = vSQL & "FROM NOTICIA "
vSQL = vSQL & "WHERE TXTVISIVEL = 'S' "
vSQL = vSQL & " AND CDAREA = 1 " 'Notícias
vSQL = vSQL & " AND TXTDESTAQUE = 'N' "
vSQL = vSQL & "ORDER BY CDNOTICIA DESC"
set vRS = vDB.execute(vSQL)
if vRS.eof = true then
Response.Write "Nenhum texto selecionado."
else
vContador = 0
while (vContador < 3 and vRS.eof = false)
%>
"><%= vRS("TXTDATANOTICIA") %> • <%= left(vRS("TXTTITULO"),"90") %>
<%
vContador = vContador + 1
vRS.movenext
wend
end if
set vRS = nothing
%>
Leia mais...
|
|
|
 |
Revista
Sincor PE
Edição 201
Outubro de
2007
outras... |
|
|
| |
| |
<%
vSQL = "SELECT CDNOTICIA, TXTTITULO, TXTDATANOTICIA "
vSQL = vSQL & "FROM NOTICIA "
vSQL = vSQL & "WHERE TXTVISIVEL = 'S' "
vSQL = vSQL & " AND CDAREA = 3 " 'Espaço do Corretor
'vSQL = vSQL & " AND TXTDESTAQUE = 'N' "
vSQL = vSQL & "ORDER BY CDNOTICIA DESC"
set vRS = vDB.execute(vSQL)
if vRS.eof = true then
Response.Write "Nenhum texto selecionado."
else
vContador = 0
while (vContador < 3 and vRS.eof = false)
%>
"><%= vRS("TXTDATANOTICIA") %> • <%= left(vRS("TXTTITULO"),"90") %>
<%
vContador = vContador + 1
vRS.movenext
wend
end if
set vRS = nothing
%>
Leia mais...
|
|
|
 |
 |
| |
|
<%
vSQL = "SELECT CDNOTICIA, TXTTITULO, TXTINFORMACAO "
vSQL = vSQL & "FROM NOTICIA "
vSQL = vSQL & "WHERE TXTVISIVEL = 'S' "
vSQL = vSQL & " AND CDAREA = 2 " 'Voz do Presidente
vSQL = vSQL & "ORDER BY CDNOTICIA DESC"
set vRS = vDB.execute(vSQL)
if vRS.eof = true then
Response.Write "Nenhum texto selecionado."
else
%>
<%
end if
set vRS = nothing
%>
Leia mais... |
|
|
|
|
|
