% 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 %>