|
|
|
<%
CALL CreateConnection()
CALL CreateRecordSet(noticia, "SELECT_NOTICIA_HOME 0,0,0")
noticia.PageSize = 30
if not noticia.eof then
noticia.AbsolutePage = cINT( currentPage )
rowCount = 0
i = 0
do until noticia.eof
Select case noticia("rel_categoria")
case 27
diretorio = "f1"
case 28
diretorio = "fmundial"
case 29
diretorio = "irl"
case 30
diretorio = "f3000"
case 31
diretorio = "F3"
case 32
diretorio = "stock"
case 33
diretorio = "speedshow/frenault"
case 34
diretorio = "speedshow/copaclio"
case 35
diretorio = "nascar"
case 36
diretorio = "motogp"
case 37
diretorio = "rally"
case 38
diretorio = "ftruck"
case 39
diretorio = "especiais"
case 41
diretorio = "speedshow/megane"
End Select
data = noticia("data")
if len(data) >0 then
dia = day(data)
if dia < 10 then dia = "0"&dia
mes = month(data)
if mes < 10 then mes = "0"&mes
ano = year(data)
data = dia &"/"& mes &"/"& ano
end if
%>
<% if diretorio = "f3000" then %>
GP2
<% else %>
<%= noticia("nome_categoria") %>
<% end if%>
- " class="noticia_home"><%= data %> - <%= noticia("titulo") %>
<%
noticia.movenext
i = i + 1
if i >= noticia.PageSize then exit do
loop
end if
%>
<%
if noticia.PageCount > 1 then
if currentpage > 1 then %>
| << Anterior |
<% else %>
|
<% end if
if noticia.PageCount > 1 then
if currentPage < 10 then
for i = 1 to 10
IF I<>INT(currentPage) THEN
%>
<%=i%> |
<% ELSE %>
<%=i%> |
<% END IF
next
response.write "... | "
else
response.write "... | "
if noticia.PageCount > (currentPage + 5) then fim = currentPage + 5 else fim = noticia.PageCount
for i = (currentPage-5) to fim
IF I<>INT(currentPage) THEN
%>
<%=i%> |
<% ELSE %>
<%=i%> |
<% END IF
next
if fim < noticia.PageCount then response.write "... | "
end if
end if
if (currentPage + 1) <= noticia.PageCount then
%>
Próxima >> |
<% else %>
|
<% end if
end if
CALL CloseRecordSet(noticia)
CALL CloseConnection()
%>
|
|
|
|
|
