<%@Language=VBScript%>
<%Option Explicit
Response.Buffer=true%>
<%
Dim conn, query, rs, s, i
Dim filtroCatalogo, filtroNoticia, filtroAgenda
Dim countCatalogo, countAgenda, countNoticia
Dim filtro, tipo, fCampo, fTexto, fSubGenero
Dim nPaginas, pagina, strPaginas, linhasDetalhe, intervaloPaginas
Dim materia, tituloDesc, texto, data, local
Dim noticia, veiculo
Dim titulo, subGenero, descSubGenero, tipoRelacao, descTipoRelacao
Dim subMenu, busca
Dim sResultado
busca = Request("Busca")
tipo = Request("tipo")
If tipo = "" then tipo="C"
'variaveis de pagina
intervaloPaginas = 9
linhasDetalhe = 10
pagina = request("pagina")
if pagina = "" then pagina = "1"
Call conectar()
'Set ObjProduto.Conexao = Adoconexao
'SubMenu=""
If busca="1" then
rs.ActiveConnection = conn
rs.CursorType = 1 'adOpenKeyset
rs.LockType = 1 'adLockReadOnly
rs.PageSize = linhasDetalhe
rs.CacheSize = linhasDetalhe 'define o cache no mesmo tamanho da página por questoes de performance
fCampo = Request("fCampo")
fTexto = Request("fTexto")
fSubGenero = Request("SubGenero")
If fSubGenero = "" Then fSubGenero = 0
filtro = ""
'é preciso saber se tem algum item nas opções para poder ativar o menu mesmo sem mostra-las
filtroAgenda = montaFiltroAgenda()
filtroNoticia = montaFiltroNoticia()
filtroCatalogo = montaFiltroCatalogo()
'conta Agenda
'rs.open "Select Count(CodMat) " & filtroAgenda, conn : countAgenda = CInt(rs(0)) : rs.Close
'conta notícias
'rs.open "Select Count(codMat) " & filtroNoticia, conn : countNoticia = CInt(rs(0)) : rs.Close
'conta Catalogo
'rs.open "Select Count(pr.CodPrd) " & filtroCatalogo, conn : countCatalogo = CInt(rs(0)) : rs.Close
'Call montaLinkSubMenu()
Select Case tipo
Case "A" '"agenda"
SubMenu = "
"
sResultado = ""
query = "Select CodMat As materia, TitMat As tituloDesc, TxtMat As textoMateria, ArqImg, " & _
" Convert(char(10), DtaMat, 112) data, LocMat As local " & _
filtroAgenda & _
" ORDER BY DtaMat asc"
rs.open query, conn
If Not rs.EOF Then
If CInt(pagina) > rs.PageCount Then pagina = 1
nPaginas = rs.PageCount
While Not rs.EOF
sResultado = sResultado & _
"
"
sResultado = ""
query = "Select CodMat As materia, TitMat As tituloDesc, TxtMat As textoMateria, ArqImg, " & _
" Convert(char(10), DtaMat, 112) As data, LocMat As local " & _
filtroNoticia & _
" ORDER BY DtaMat asc"
rs.open query, conn
If Not rs.EOF Then
If CInt(pagina) > rs.PageCount Then pagina = 1
nPaginas = rs.PageCount
While Not rs.EOF
sResultado = sResultado & _
"
"
sResultado = ""
query = "Select pr.CodPrd As titulo, pr.TitPrd As tituloDesc, pr.FlgLan As lancamento, pr.ValPrc As preco, pr.CodSubGnr As subGenero, " & _
" pr.ArqImg As arqImg, sg.DscSubGnr As descSubGenero " & _
filtroCatalogo & _
" Order by pr.titPrd "
' response.write query
rs.open query, conn
If Not rs.EOF Then
sResultado = sResultado & montaCountPaginas()
For i=1 To linhasDetalhe
sResultado = sResultado & _
"
