| Agenda de atividades |
<%
Set rs = server.CreateObject("ADODB.Recordset")
'Busca os produtos em que a categoria foi armazenada na variavel vcategoria
rs.Open "SELECT * FROM Agenda order by cdate(AGE_data) Desc", Conexao, 3, 3
rs.PageSize = 8
rs.CacheSize = 6
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_Age")
AGE_data = FormatDateTime(rs("Age_data"), 2)
AGE_atividade = rs("AGE_atividade")
AGE_local = rs("AGE_local")
AGE_texto = rs("AGE_texto")
AGE_foto = rs("AGE_foto")
AGE_link = rs("AGE_link")
AGE_url = rs("AGE_url")
%>
|
<%=AGE_data%> |
<% if AGE_foto <> "" then
Response.Write("![](http://profluciano.locaweb.com.br/upload/agenda/"&AGE_foto&") ")
end if
%>
|
<%=AGE_atividade%> |
| <%=AGE_local%> |
|
|
<%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 Artigos order by ART_data Desc"
set rs=Conexao.execute(SELECIONA)
'=============================| Notícia lista|
x = 0
while not rs.eof and x <= 2
id = rs("ID_ART")
ART_data = FormatDateTime(rs("ART_data"), 2)
ART_titulo = rs("ART_titulo")
ART_credito1 = rs("ART_credito1")
%>
|
|
<%
x = x + 1
rs.movenext
wend
%>
|
