<%@Language=VBScript%> <%Option Explicit Response.Buffer=true%> <% Dim sOrdem Dim nPaginas, pagina, strPaginas, linhasDetalhe, intervaloPaginas, i Dim classificacao Dim Adocon Dim ObjProduto Dim rsProduto Dim rsAutor Dim rsPessoaProduto Dim Ok Dim TabelaProduto Dim Data Dim Operacao Dim Tipo Dim Contador Dim TipoRelacao Dim DscRelacao Dim ListaInformacoes Dim CodigoProduto Dim Autor Dim Titulo Dim SubGenero Dim ComboSubGenero Dim Origem Dim Busca Dim ListaResultados Dim PagAtual Dim ItensPagina Dim ContadorPaginas Dim Aux Dim TituloPesquisa Dim SubGeneroPesquisa Dim AutorPesquisa Dim NumeroItens Dim ContadorAux Dim NumeroItensAux Dim LocalEvento Dim CodigoMateria Dim ObjMateria Dim VeiculoMateria Dim rsNoticia Dim rsAgenda Dim ListaResultadosAgenda Dim ListaResultadosNoticia Dim ListaAutores Dim conn, query, rs ContadorAux=0 ContadorPaginas=0 NumeroItens=0 NumeroItensAux=0 Busca = Request.QueryString("Busca") If Busca="" then Busca = Request.form("Busca") set ObjProduto = new TProduto 'Set ObjProduto.Conexao = Adoconexao If Busca=1 then TituloPesquisa = trim(Request.Form("Titulo")) If TituloPesquisa="" then TituloPesquisa=Request.QueryString("Titulo") SubGeneroPesquisa = trim(Request.Form("SubGenero")) If SubGeneroPesquisa="" then SubGeneroPesquisa=Request.QueryString("SubGenero") classificacao = trim(Request.Form("classificacao")) If classificacao="" then classificacao=Request.QueryString("classificacao") AutorPesquisa = trim(Request.Form("Autor")) If AutorPesquisa="" then AutorPesquisa=Request.QueryString("Autor") sOrdem = Request("sOrdem") PagAtual = Request.QueryString("PagAtual") if PagAtual ="" then PagAtual = 1 else PagAtual=cint(PagAtual) end if ItensPagina=10 'variaveis de pagina intervaloPaginas = 10 linhasDetalhe = 10 pagina = request("pagina") if pagina = "" then pagina = "1" set rsPessoaProduto = server.CreateObject("adodb.recordset") rsPessoaProduto.CursorLocation = 3 rsPessoaProduto.Pagesize = ItensPagina rsPessoaProduto.cachesize = ItensPagina Tipo=1 CodigoProduto="" ObjProduto.Titulo=TituloPesquisa ObjProduto.SubGenero=SubGeneroPesquisa ObjProduto.Classificacao = classificacao ObjProduto.Autor=AutorPesquisa ObjProduto.publicado=1 ObjProduto.ordem = sOrdem dim ProximoProduto Ok = ObjProduto.ObtemProdutoCatalogo(CodigoProduto,Tipo,rsPessoaProduto) if rsPessoaProduto.state=0 then rsPessoaProduto.Open if Ok then Call Conectar() if not rsPessoaProduto.EOF then NumeroItensAux=rsPessoaProduto.recordCount NumeroItens=NumeroItens+NumeroItensAux rsPessoaProduto.AbsolutePage = PagAtual 'Response.Write "

NumeroItensAux Produto"&NumeroItensAux ContadorPaginas = NumeroItens / ItensPagina if ContadorPaginas - int(ContadorPaginas) <> 0 then ContadorPaginas = Int(ContadorPaginas) + 1 end if ContadorAux=0 CodigoProduto="" Dim ProximoCodigo ListaResultados = ListaResultados & montaCountPaginas() 'while not rsPessoaProduto.EOF AND ContadorAux<=ItensPagina For i=1 To linhasDetalhe ContadorAux = ContadorAux + 1 ListaAutores = getNomeAutores(rsPessoaProduto("CodPrd")) Titulo = rsPessoaProduto("TitPrd") SubGenero = rsPessoaProduto("CodSubGnr") CodigoProduto = rsPessoaProduto("CodPrd") 'TipoRelacao = cint(rsPessoaProduto("TpoRel")) rsPessoaProduto.MoveNext if not rsPessoaProduto.EOF then ProximoCodigo=rsPessoaProduto("CodPrd") else ProximoCodigo="" end if if CodigoProduto<>ProximoCodigo then ListaResultados = ListaResultados &"" ListaResultados = ListaResultados &"" ListaResultados = ListaResultados &""& Titulo&"
"&ListaAutores&"" ListaResultados = ListaResultados &"" ListaAutores="" end if 'rsPessoaProduto.MoveNext If rsPessoaProduto.EOF Then Exit For Next 'wend ListaResultados = ListaResultados & montaListaPaginas() else ListaResultados = ListaResultados &"" ListaResultados = ListaResultados &"" ListaResultados = ListaResultados &"Não há resultado para esta busca." ListaResultados = ListaResultados &"" end if conn.close Set conn = Nothing else set ObjProduto = nothing set rsPessoaProduto = nothing Response.Write "Erro ao obter autor" Response.end 'Response.Redirect("../mensagem.asp?Erro=-17") ' Ocorreu um erro ao carregar as matérias. Por favor, tente novamente end if end if set rsProduto = server.CreateObject("adodb.recordset") rsProduto.CursorLocation = 3 if SubGeneroPesquisa="" then SubGeneroPesquisa=0 ' Busca os subgeneros e monta a combo Ok = ObjProduto.ObtemSubGeneros(rsProduto) if rsProduto.state=0 then rsProduto.Open If Ok then if not rsProduto.EOF then while not rsProduto.EOF if cint(SubGeneroPesquisa)=rsProduto("CodSubGnr") then ComboSubGenero = ComboSubGenero& "" else ComboSubGenero = ComboSubGenero& "" end if rsProduto.MoveNext wend end if set ObjProduto = nothing set rsProduto=nothing else set ObjProduto = nothing 'set rsPessoaProduto = nothing set rsProduto=nothing 'Response.Write "Erro ao obter subgenero" 'Response.end Response.Redirect("../mensagem.asp?Erro=-28") ' Ocorreu um erro ao carregar as matérias. Por favor, tente novamente end if set rsPessoaProduto = nothing %> Nova Fronteira _
Preencha pelo menos um dos campos para buscar a informação que deseja no catálogo da editora. Preenchendo mais campos, sua busca será mais precisa.
   
    Classificação  
    Gênero  
    Título  
    Autor  
    Ordenar por
   
<% Dim fs, f Set fs = Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists(Server.MapPath("catalogo_geral_nova_fronteira.pdf")) Then %>

Você pode fazer o download do catálogo completo clicando no link abaixo:

Clique aqui para obter o catálogo completo, sem capas e sem resenha <% Set f = fs.GetFile(Server.MapPath("catalogo_geral_nova_fronteira.pdf")) Response.Write "(" & FormatNumber(f.size / 1024, 2) & " Kb)" Set f = Nothing %>

Observações:
Clique aqui para efetuar o download do Adobe Reader 1 - O tempo de download dependerá da sua conexão com a internet;
2 - Para a visualização do arquivo é necessária a utilização do software Adobe Reader. Caso não tenha esse programa, clique na logo ao lado;
3 - Nem todos os títulos do catálogo estão disponíveis para venda. Para maiores informações, por favor entrar em contato conosco: Tel.: (21) 2131 1183 ou e-mail: sac@novafronteira.com.br
<% End If Set fs = Nothing %> <%if ListaResultados<>"" then%>
<%=ListaResultados%>
<%end if%>
laurel park gainesville ga laurel park gainesville ga object leroy stampley traded leroy stampley traded minute knotty pine door knotty pine door card leisure bay grill leisure bay grill will lhasa apso washington state lhasa apso washington state true . kean inc kean inc find kuda tv tucson kuda tv tucson at laos concentration camp assistance laos concentration camp assistance moment leroy jenkins production partners leroy jenkins production partners those kennedy assasination simulator game kennedy assasination simulator game raise kingston heath golf club kingston heath golf club probable liberty tattoo gardena liberty tattoo gardena modern knoxville tenn knoxville tenn machine lago vista tx 78645 lago vista tx 78645 bright lancaster baptist church evil lancaster baptist church evil house large foam stamps large foam stamps how kids majic magazine kids majic magazine cotton kent states sports kent states sports effect laquinta inn addison laquinta inn addison plane kelli duncan kelli duncan crop lexington township maine county lexington township maine county bring larynx vocal cords larynx vocal cords village l t jr williams l t jr williams grand king automotive hamilton ont king automotive hamilton ont those leslie yerks leslie yerks rich la quinta high school la quinta high school share large conchos on belts large conchos on belts opposite kucinich cleveland ohio office kucinich cleveland ohio office rub lezbean black lezbean black shall large ceramic chicken large ceramic chicken month kimberly holbrook kimberly holbrook ago leyland cypress salt tolerance leyland cypress salt tolerance sat kindermusik omaha kindermusik omaha study leupold of beaverton leupold of beaverton well lago vista lease purchase lago vista lease purchase more leslie clutterham leslie clutterham green kelly gaffney fairfield kelly gaffney fairfield safe lesher hollywood lesher hollywood engine langley speeday archieve results langley speeday archieve results class knoxville market square knoxville market square felt lakeshore east llc lakeshore east llc my knight piesold co phoenix knight piesold co phoenix least lee s summit b b lee s summit b b throw lara jones adult comic lara jones adult comic many lauren ralph lauren blazer lauren ralph lauren blazer name keene nh plumbing supplies keene nh plumbing supplies create knoxville murder knoxville murder science keylogger dell keylogger dell observe kierland scottsdale kierland scottsdale I last aztec empire last aztec empire once lafayette indiana pythian home lafayette indiana pythian home wood kent james anthony mn kent james anthony mn skin kristian taylor garner nc kristian taylor garner nc yet kimberly wheeler arraignment hawaii kimberly wheeler arraignment hawaii die kelli huxford kelli huxford base keyn 103 7 wichita kansas keyn 103 7 wichita kansas receive keller williams bluegrass keller williams bluegrass book kitchener ontario flooring kitchener ontario flooring either larry craig banana larry craig banana clothe kimberly emmons kimberly emmons hear lexington apartments college station lexington apartments college station current kingston luxury kingston luxury beat lakeshore learning tools lakeshore learning tools summer laguna platinum review test laguna platinum review test wrong la palma bedspread la palma bedspread roll laserlight clear tops laserlight clear tops magnet kingsley coaches bert lancaster kingsley coaches bert lancaster excite kent o felton kent o felton place kids consignment british columbia kids consignment british columbia try keller williams bounty hunter keller williams bounty hunter figure la quinta alexandia louisiana la quinta alexandia louisiana gray lease lincoln mercury mkx lease lincoln mercury mkx kind knoxville golf knoxville golf hot kristen fran coy kristen fran coy glass laidley tower charleston laidley tower charleston cross kimberly sue elizabeth hartman kimberly sue elizabeth hartman leave leslie douglas hawaii leslie douglas hawaii late la boxing lexington ky la boxing lexington ky shore liberty safe san diego liberty safe san diego control lawrence kansas sharks lawrence kansas sharks support lakewood village ohio lakewood village ohio star leavenworth kansas obiturarys leavenworth kansas obiturarys gave letona pronounced letona pronounced wheel kmart nissan burlington washington kmart nissan burlington washington term larry johnson nba muslim larry johnson nba muslim wing leesburg high school images leesburg high school images check leslie parkerson leslie parkerson make kingston fedora kingston fedora born la tierra columbiana philly la tierra columbiana philly me labor bord alberta labor bord alberta order lancaster england gay lancaster england gay noon landfill fontana landfill fontana select lemon grove atv lemon grove atv name kim dewey cocaine kim dewey cocaine of krystal fox anime krystal fox anime dictionary levi s stores san diego levi s stores san diego light kevin unicorns myspace washington kevin unicorns myspace washington develop kodiak alaska boat sales kodiak alaska boat sales total leigh thornton of mendham leigh thornton of mendham large kids corona kids corona trade larry johnson reno nv larry johnson reno nv iron langley lions langley lions try knxv tv phoenix az knxv tv phoenix az where king warrior magician lover king warrior magician lover shoulder kingsley buffalo new york kingsley buffalo new york drop ky drivers manule ky drivers manule go lavina fielding anderson said lavina fielding anderson said mix lesli russell nude lesli russell nude born lathe kansas lathe kansas green kidsline gossamer wings kidsline gossamer wings total laurie anderson pbs laurie anderson pbs travel learn to spell pages learn to spell pages wrote kullman enterprises kullman enterprises week knights of columbus greeting knights of columbus greeting dream lakefront ashville lakefront ashville may kellyanne conway kellyanne conway mark lakeside apartments battle creek lakeside apartments battle creek born la fair grounds pomona la fair grounds pomona in lg vx8300 driver lg vx8300 driver shall lehigh valley cable internet lehigh valley cable internet best levi saginaw michigan levi saginaw michigan neck lacey morrow lacey morrow friend lg dvd drivers gsa h22n lg dvd drivers gsa h22n thing kimberly kendra dvm kimberly kendra dvm state liberal inn kansas liberal inn kansas cry la dodgers t shirt jerseys la dodgers t shirt jerseys complete lang john harmonica blues lang john harmonica blues window knoxville tn body graffix knoxville tn body graffix finger kroger columbus kroger columbus excite kovacs houston county kovacs houston county bed lester maddux comedy lester maddux comedy these lafayette inn easton pa lafayette inn easton pa sit laura gilbert hannah bebo laura gilbert hannah bebo connect kent wa apartments kent wa apartments take kendal johnson bluegrass kendal johnson bluegrass spoke landes center events oceanside landes center events oceanside require la posada in winslow la posada in winslow every kodiak plumbing keizer oregon kodiak plumbing keizer oregon atom keldrick k jackson keldrick k jackson coat knox waldo lincoln transition knox waldo lincoln transition fire key deer bar florida key deer bar florida would las palmas restaurant fl las palmas restaurant fl cat lesbian fuck black porn lesbian fuck black porn feet lay s painting mansfield lay s painting mansfield country lakewood c275 lakewood c275 agree latoya washington latoya washington boy lara peterson lara peterson heavy lee valley workbench lee valley workbench thought kent league football kent league football broad lenox winnie the pooh lenox winnie the pooh metal lewis auto topeka kansas lewis auto topeka kansas watch level in tucson az level in tucson az east left threaded light bulb left threaded light bulb least latah county home page latah county home page master knight furniture florence sc knight furniture florence sc period laura scott mills pussy laura scott mills pussy experience laura tucker tn laura tucker tn determine lego exhibit seattle washington lego exhibit seattle washington collect kennedy kep kennedy kep then lancaster shopping park city lancaster shopping park city stop kramers bookstore washington dc kramers bookstore washington dc king kimberly kowalski kimberly kowalski weather kennedy s artifacts kennedy s artifacts nose lansdale pa yellow pages lansdale pa yellow pages it landscaping lights landscaping lights act lester sanders alabama obituary lester sanders alabama obituary search lee s summit christian lee s summit christian human kent state vietnam protests kent state vietnam protests same leanne hardy counselor leanne hardy counselor hold kimberly family crest kimberly family crest shall lakewood wi ski shops lakewood wi ski shops small lester estelle jr lester estelle jr ocean leila waddell leila waddell I lancaster hotel houston texas lancaster hotel houston texas form kimberly compton kimberly compton surprise leeds studies in english leeds studies in english bad lehigh valley pa homes lehigh valley pa homes branch kent reliance b s kent reliance b s behind legacy of hartford legacy of hartford safe kennedy kep kennedy kep against kodiak russion river resort kodiak russion river resort game kenneth jones animal hospital kenneth jones animal hospital said latitude of paris latitude of paris example las vegas blues societ las vegas blues societ poor leccabaffi risorante scottsdale review leccabaffi risorante scottsdale review stream lamon jeweler knoxville tennessee lamon jeweler knoxville tennessee colony kirby sprites and animations kirby sprites and animations now kuil fox 64 kuil fox 64 join latin american miami restaurant latin american miami restaurant fight leeds swimming pools leeds swimming pools event lacandon maya indians lacandon maya indians play kent fence california kent fence california bed lee taft sports speed lee taft sports speed until lake washington scool district lake washington scool district range lee s strawberry stand lee s strawberry stand lady kimberly holland nude kimberly holland nude room kirkwood community college marion kirkwood community college marion imagine lawyer cigar story lawyer cigar story warm lee bubble lights lee bubble lights pull legal aide helena montana legal aide helena montana cover lago vista insurance lago vista insurance enter kirkland nativity scene kirkland nativity scene flow lesbians page lesbians page control leslie betz dds leslie betz dds green land rover engine surge land rover engine surge connect katie burton trussville katie burton trussville history lab corps st petersburg lab corps st petersburg poem kenneth heller new york kenneth heller new york dark leighton york topeka ks leighton york topeka ks final lahaina chicken lahaina chicken term lab infotech summit lab infotech summit arrive leeds commercial property leeds commercial property wall leeds united afc leeds united afc lead lake superior provintial park lake superior provintial park fly lexi hayden lexi hayden serve kristen willey wright state kristen willey wright state behind lavern and shirley ziggy lavern and shirley ziggy think lactation center oakland lactation center oakland pattern leaked coheed and cambria leaked coheed and cambria anger larry parrish larry parrish several lacrosse camps wisconsin lacrosse camps wisconsin tell lancaster co virginia servants lancaster co virginia servants single lakeside capital partners lakeside capital partners six lakeway austin hotels lakeway austin hotels radio larry warren freed larry warren freed major landing street trenton nj landing street trenton nj sat kinky guys is dresses kinky guys is dresses far larry craig transcript larry craig transcript notice kingman alberta kingman alberta copy larenda sims georgia larenda sims georgia enough kent keske kent keske bright kevin parker raytheon kevin parker raytheon burn lazy lane blue jay lazy lane blue jay egg laidback manor restaurant houston laidback manor restaurant houston practice law association kansas city law association kansas city clothe la jolla terrace apartments la jolla terrace apartments provide kenai libary kenai libary dark kuwait university home page kuwait university home page side kiwanis sidney kiwanis sidney system keller coker salem oregon keller coker salem oregon count kodiak energy kodiak energy slow lawyer jackson michigan connant lawyer jackson michigan connant short kimberly williams topless kimberly williams topless busy lexington coutny library lexington coutny library suffix laura wright family laura wright family electric leslie obituary kokomo in leslie obituary kokomo in last la jolla laser resurfacing la jolla laser resurfacing art lakeshore sports conroe tx lakeshore sports conroe tx chord katie vanderburg page highschool katie vanderburg page highschool dark lawyer portland lawyer portland rich knee surgery houston clemens knee surgery houston clemens equal larry dawson auto sales larry dawson auto sales mother leesburg virginia jobs leesburg virginia jobs soft kenneth calvert kenneth calvert seat kimberly gehring kimberly gehring go lakeshore apartments lakewood lakeshore apartments lakewood dog koin 6 portland or koin 6 portland or came kevin palmer butte creek kevin palmer butte creek allow keyboard midi drivers yamaha keyboard midi drivers yamaha come legacy volleyball oakland michigan legacy volleyball oakland michigan dress lehi indian reservation lehi indian reservation current kristina hughes nc kristina hughes nc sky kumar oakland kumar oakland control land auctions tampa bay land auctions tampa bay sent l 3 communications anaheim ca l 3 communications anaheim ca decimal keiser university tuiton cost keiser university tuiton cost all kingston trio cds kingston trio cds subject lenny williams birth name lenny williams birth name am lakeside riding center california lakeside riding center california food lancaster symes lancaster symes thousand last exit tempe az last exit tempe az lot labtec webcam pro drivers labtec webcam pro drivers game lafayette la night life lafayette la night life glass kinds of sewing needles kinds of sewing needles people lawson sundholm lawson sundholm to large perogie alberta large perogie alberta nine lake superior pink salmon lake superior pink salmon cross laff s tucson laff s tucson since kirk sanders kirk sanders speak lesbian peeing stories lesbian peeing stories system kit voss intl story kit voss intl story nor la tolteca azusa ca la tolteca azusa ca and laurence vance laurence vance ask kristine john young kristine john young product kimberly ouellette kimberly ouellette support katika johnson katika johnson after landscape timbers kansas city landscape timbers kansas city thought keller williams murfreesboro keller williams murfreesboro baby kelli garner photos kelli garner photos real lake walcott lake walcott land leapfrog explorer iii globe leapfrog explorer iii globe opposite leavenworth camp trail leavenworth camp trail plain kent county real estate kent county real estate dad kinderman john taylor kinderman john taylor region kennet copeland news stories kennet copeland news stories sat knitting needles image knitting needles image party lenovo sata driver t60 lenovo sata driver t60 chief kimberly rogan kimberly rogan son king tut egypt webquest king tut egypt webquest go leslie sheppard downers grove leslie sheppard downers grove consonant lakewood theather lakewood theather opposite kinston premiere theatre kinston premiere theatre swim learn viticulture washington learn viticulture washington only lamaur light shampoo lamaur light shampoo I laura ashley floral bedding laura ashley floral bedding either kathy ventura maine kathy ventura maine corner kimberly alberto rivera kimberly alberto rivera sudden kristen branch and boston kristen branch and boston island la grillade restaurant leeds la grillade restaurant leeds century largest churches san diego largest churches san diego nature ken ward brightline ken ward brightline vowel lebanon pa valley mall lebanon pa valley mall to kyote clay kyote clay note kent county library michigan kent county library michigan matter lehigh valley hospital jobs lehigh valley hospital jobs winter lian wilson madness lian wilson madness century kids valentines day screensavers kids valentines day screensavers done kimberly tumlin kimberly tumlin repeat kearney mesa toyota kearney mesa toyota discuss laurence kyle pennington mn laurence kyle pennington mn case leslie barham leslie barham join krystal brantford ontario krystal brantford ontario claim leslie t texas blogspot leslie t texas blogspot voice kem equipment kodiak jet kem equipment kodiak jet course kennedy health center california kennedy health center california soldier leslie johnston pa leslie johnston pa hunt kenny ontario junior league kenny ontario junior league fast kitchen cabinets london ontario kitchen cabinets london ontario object lexmark driver support lexmark driver support lost la quinta inn washington la quinta inn washington city lawrence eagle trib lawrence eagle trib guide leasing equipment phoenix leasing equipment phoenix excite koinonia bookstore nashville koinonia bookstore nashville large lancaster oh fair lancaster oh fair each les shwabe monroe wa les shwabe monroe wa boat led driver 0 9 4401 led driver 0 9 4401 always langley mill england langley mill england put la jolla submarine canyon la jolla submarine canyon flat kinston radiological kinston radiological original keller williams town country keller williams town country vowel leslie ann garett leslie ann garett receive last hope adoption last hope adoption square lenox butlers pantry flatware lenox butlers pantry flatware week
<% Function montaCountPaginas() Dim s If CInt(pagina) > rsPessoaProduto.PageCount Then pagina = 1 nPaginas = rsPessoaProduto.PageCount rsPessoaProduto.AbsolutePage = pagina If rsPessoaProduto.RecordCount > 1 Then s = rsPessoaProduto.RecordCount & " títulos localizados" If rsPessoaProduto.PageCount > 1 Then s = s & " (mostrando página " & pagina & " de " & rsPessoaProduto.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 rsPessoaProduto.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 > rsPessoaProduto.PageCount Then nFim = rsPessoaProduto.PageCount Else nIni = pagina-intervaloPaginas If pagina+intervaloPaginas > rsPessoaProduto.PageCount Then nFim = rsPessoaProduto.PageCount : nIni = nIni - ((pagina+intervaloPaginas) - rsPessoaProduto.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 = " " & _ "" & _ " " & _ " " & _ "" & _ "" & _ " " & _ " " & s & "" & _ "" End Function %>