<%@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 & _
"
<%
Sub criaComboSubGenero(subGenero)
Dim query, rs
Dim s
Set rs = Server.CreateObject("ADODB.RecordSet")
query = "Select CodSubGnr As subGenero, DscSubGnr As descSubGenero " & _
" From t_subgenero sg " & _
" Where sg.DscSubGnr <> 'indefinido' and sg.DscSubGnr <> 'inexistente' " & _
" Order By DscSubGnr"
rs.Open query, conn
If Not rs.EOF Then
s = ""
Else
s = "Nenhum sub-gênero cadastrado"
End If
Response.Write s
rs.Close
Set rs = Nothing
End Sub
Function montaCountPaginas()
Dim s
If CInt(pagina) > rs.PageCount Then pagina = 1
nPaginas = rs.PageCount
rs.AbsolutePage = pagina
If rs.RecordCount > 1 Then
s = rs.RecordCount & " títulos localizados"
If rs.PageCount > 1 Then
s = s & " (mostrando página " & pagina & " de " & rs.PageCount & " páginas)"
End If
Else
s = "1 título localizado"
End If
montaCountPaginas = "" & _
"
" & _
"
" & _
"
" & _
"
" & s & "
" & _
"
"
End Function
Function montaListaPaginas()
Dim s, i, nIni, nFim
s = " "
If rs.PageCount > 1 Then
s = s & "9" & _
"7"
'processa intervalo de páginas para mostrar apenas uma qtd de página
If pagina-intervaloPaginas < 1 Then
nIni=1
nFim = (intervaloPaginas * 2) + 1
If nFim > rs.PageCount Then nFim = rs.PageCount
Else
nIni = pagina-intervaloPaginas
If pagina+intervaloPaginas > rs.PageCount Then nFim = rs.PageCount : nIni = nIni - ((pagina+intervaloPaginas) - rs.PageCount) Else nFim = pagina+intervaloPaginas
If nIni < 1 Then nIni = 1
End If
For i=nIni To nFim
If Cstr(i) <> Cstr(pagina) Then
s = s & "" & i & " "
Else
s = s & "" & i & " "
End If
Next
s = s & "8" & _
":"
End If
s = s & ""
montaListaPaginas = " " & _
"
