ARTIGOS
<%
Set rs = server.CreateObject("ADODB.Recordset")
'Busca os produtos em que a categoria foi armazenada na variavel vcategoria
rs.Open "SELECT * FROM Artigos order by cdate(ART_data) desc", Conexao, 3, 3
rs.PageSize = 20
rs.CacheSize = 5
rs.Move = 0
if request.querystring("pagina")= "" then
intpagina = 1
else
if Cint(request.querystring("pagina")) < 1 then
intpagina = 1
elseif Cint(request.querystring("pagina")) > rs.Pagecount then
intpagina = rs.Pagecount
else
intpagina = Cint(request.querystring("pagina"))
end if
end if
rs.AbsolutePage = intpagina
intRec= 0
While intRec < rs.pagesize AND NOT rs.EOF
count=count + 1
id = rs("ID_ART")
ART_data = FormatDateTime(rs("ART_data"), 2)
ART_titulo = rs("ART_titulo")
ART_credito1 = rs("ART_credito1")
ART_foto = rs("ART_foto")
%>
| <%=ART_data%> |
<%=ART_credito1%> |
| <%=ART_titulo%> |
<%rs.Movenext
intRec = intRec + 1
Wend
%>
<%
'INICIO DA PAGINAÇÃO
Response.Write ""
Response.Write ""
paginacao = 1
while paginacao < rs.Pagecount + 1
if intpagina = paginacao then
Response.Write "| "%>
<%=paginacao%>
<% Response.Write " | "
else
Response.Write ""
%>
<%=paginacao%>
<%Response.Write " | "
end If
paginacao = paginacao + 1
wend
Response.Write " "
Response.Write " "
'FIM DA PAGINAÇÃO
%>
|
|
|
<%
SELECIONA="SELECT * FROM Noticias order by NOT_data Desc"
set rs=Conexao.execute(SELECIONA)
'=============================| Notícia lista|
x = 0
while not rs.eof and x <= 2
id = rs("ID_NOT")
NOT_data = FormatDateTime(rs("NOT_data"), 2)
NOT_titulo = rs("NOT_titulo")
NOT_chamada = rs("NOT_chamada")
%>
|
<%
x = x + 1
rs.movenext
wend
%>
|
