<% Option Explicit %>
<%
Dim conn, rs, query
Dim dirImagens
Dim achei, tentativas
Dim titulo, lead, texto, data, dataexpiracao
Dim nomeFrom, emailFrom, nomeTo, emailTo, msg, postalTitulo
Dim nPaginas, pagina, strPaginas, linhasDetalhe, intervaloPaginas
Dim pc, p, i
Dim fTitulos, fTitulo, filtro, fTexto, fTipo, s
Dim sDirImagens, imgLink
Call Conectar()
sDirImagens = Server.MapPath("/") & "\_conteudo\catalogo\"
intervaloPaginas = 12
linhasDetalhe = 12
pagina = request("pagina")
if pagina = "" then pagina = "1"
nomeFrom = request("nomeFrom")
emailFrom = Lcase(request("emailFrom"))
nomeTo = request("nomeTo")
emailTo = Lcase(request("emailTo"))
msg = request("msg")
postalTitulo = request("postalTitulo")
fTexto = Request("fTexto")
s = saveSqlString(fTexto, 0)
fTipo = Request("fTipo")
'If IsNumeric(postalTitulo) Then postalTitulo = Cint(postalTitulo) Else postalTitulo = 0
If Request("origem") = "detalhesLivro" Then
fTitulo = Request("titulo")
fTipo = "codPrd"
If fTitulo <> "" Then fTitulo = SaveSqlString(fTitulo, 5) 'Else fTitulo = ""
End If
filtro = ""
Select Case fTipo
Case "codPrd"
If ftitulo <> "" Then filtro = " p.codPrd = '" & fTitulo & "'"
Case "T"
If fTexto <> "" Then filtro = " p.titPrd Like " & FormatLikeSearch(s)
Case "A"
If fTexto <> "" Then filtro = " pe.nmePes Like " & FormatLikeSearch(s)
End Select
If filtro <> "" Then
filtro = " AND " & filtro
query = "Select p.CodPrd As titulo, p.isbn, p.TitPrd As tituloDesc,p.ArqImg As arqImg, p.dtaLan " & _
" From t_produto As p Inner Join t_pessoa_produto As pp On p.CodPrd = pp.CodPrd " & _
" Inner Join t_pessoa As pe On pp.codPes = pe.codPes " & _
" Where Not p.arqImg Is Null " & _
filtro & _
" Group by p.CodPrd, p.isbn, p.TitPrd, p.ArqImg, p.dtalan " & _
" Order By p.dtaLan Desc"
Else
query = "Select postais From config "
rs.Open query, conn
If Not rs.EOF Then fTitulos = Trim(rs("postais")) Else fTitulos = ""
rs.Close
If fTitulos <> "" Then
query = "Select 1 As Ord, codPrd As Titulo, titPrd As tituloDesc, arqImg, dtaLan From t_produto " & _
" Where Not arqImg Is Null And codPrd In (" & fTitulos & ") " & _
"UNION " & _
"Select 2 As Ord, codPrd As Titulo, titPrd As tituloDesc, arqImg, dtaLan From t_produto " & _
" Where Not arqImg Is Null And codPrd Not In (" & fTitulos & ") " & _
"Order By Ord, dtaLan Desc;"
Else
query = "Select codPrd As Titulo, titPrd As tituloDesc, arqImg, dtaLan From t_produto " & _
" Where Not arqImg Is Null " & _
"Order by dtaLan Desc"
End If
End If
'response.write query
'Set rs = Server.CreateObject("ADODB.RecordSet")
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
rs.Open query
If Not rs.EOF Then
If CInt(pagina) > rs.PageCount Then pagina = 1
nPaginas = rs.PageCount
End If
%>
Nova Fronteira
_
_