<%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true%>
<%
Dim Adocon
Dim ObjMateria
Dim rsMateria
Dim Ok
Dim TabelaMateria
Dim CodigoMateria
Dim Imagem
Dim DataMateria
Dim VeiculoMateria
Dim Texto
Dim Titulo
Dim NumeroPaginas
Dim ItensPagina
Dim PagAtual
Dim NumeroItens
Dim ContadorPaginas
Dim ContadorAux
Dim Aux
Dim ExtensaoImagem
Dim NomeImagem
Dim CodigoProduto
set rsMateria = server.CreateObject("adodb.recordset")
rsMateria.CursorLocation = 3
ItensPagina = 6
PagAtual = Request.QueryString("PagAtual")
if PagAtual ="" then
PagAtual = 1
else
PagAtual=cint(PagAtual)
end if
set ObjMateria= new TMateria
rsMateria.CursorLocation = 3
rsMateria.Pagesize = ItensPagina
rsMateria.cachesize = ItensPagina
' Busca os Materias setados como Lançamento em t_Materia
Ok = ObjMateria.ObtemMateria(rsMateria)
if rsMateria.state=0 then rsMateria.Open
If Ok then
if not rsMateria.EOF then
NumeroItens=rsMateria.recordCount
rsMateria.AbsolutePage = PagAtual
ContadorPaginas = NumeroItens / ItensPagina
if ContadorPaginas - int(ContadorPaginas) <> 0 then
ContadorPaginas = Int(ContadorPaginas) + 1
end if
ContadorAux = 1
dim ContPalavra, Resultado
while not rsMateria.EOF AND ContadorAux<=ItensPagina
ContadorAux = ContadorAux + 1
CodigoMateria = rsMateria("CodMat")
Titulo = rsMateria("TitMat")
Texto = rsMateria("TxtMat")
'conta os espaços em branco e termina a string antes de quebrar a palavra.
ContPalavra = InStr(Texto, " ")
ContPalavra = InStr(ContPalavra + 150, Texto, " ")
If ContPalavra <> 0 Then
Resultado = Left(Texto, ContPalavra - 1) &"..."
Else
Resultado = Texto &"..."
End If
'----Fim do conta palavra--------------------
DataMateria = trim(rsMateria("DtaMat"))
if DataMateria<> "" then
'formata a data para o formato dd/mm/aaaa
DataMateria = FormataData(DataMateria)
end if
Imagem = rsMateria("ArqImg")
If Imagem <> "" then
'DIVIDE A FOTO EM NOME E EXTENSÃO
ExtensaoImagem = right(Imagem,4)
NomeImagem = left(Imagem,instr(1,Imagem,".")-1)
end if
VeiculoMateria = rsMateria("LocMat")
TabelaMateria = TabelaMateria &"
"
TabelaMateria = TabelaMateria &"
"
TabelaMateria = TabelaMateria &"
"
TabelaMateria = TabelaMateria &"
"
if Imagem<>"" then
TabelaMateria = TabelaMateria &"
"
rsMateria.MoveNext
wend
end if
else
set ObjMateria = nothing
set rsMateria = nothing
'Response.Write "Erro ao obter notícia"
'Response.end
Response.Redirect("../mensagem.asp?Erro=-17") ' Ocorreu um erro ao carregar as matérias. Por favor, tente novamente
end if
set ObjMateria = nothing
set rsMateria = nothing
%>
Nova Fronteira
_
