<% Option Explicit %> <% Dim rs, query, conn, msgErro, paginacao Dim intervaloPaginas Dim linhasDetalhe Dim i Dim Ok Dim CodigoMateria Dim CodigoPessoa 'CodPes Dim Nome ' NmePes Dim TipoPessoa ' TpoPes Dim TipoUsuario ' TpoUsr Dim Email ' EmlPes Dim Senha ' SnhPes Dim DataNascimento ' DtaNsc Dim Sexo ' Codsex Dim GrauInstrucao ' GraItr Dim StatusInstrucao ' StaItr Dim Endereco ' EndPes Dim Bairro ' BaiPes Dim Cidade ' CidPes Dim Estado ' UF Dim CEP ' CepPes Dim DDDTel ' DDDTel Dim Tel' Tel Dim DDDCel ' DDDCel Dim Cel' Cel Dim rsEstado Dim rsCidade Dim rsBairro Dim OptionEstado Dim OptionCidade Dim OptionBairro Dim Pesquisar Dim TabelaPessoa Dim ItensPagina Dim PagAtual Dim ContadorAux Dim ContadorPaginas Dim NumeroItens Dim Aux Dim BairroTodos Dim CodigoProduto 'incluido por Manuela. O include de paginacao esta pedindo por uma variavel "CodigoProduto" CodigoProduto= "" Dim filtro Dim fEstado ' UF Dim fCidade ' Cidade fEstado = Trim(Request("fEstado")) fCidade = Trim(Request("fCidade")) Pesquisar=Request.QueryString("Pesquisar") Call Conectar If Pesquisar then intervaloPaginas = 4 linhasDetalhe = 10 PagAtual = Request("PagAtual") if PagAtual ="" then PagAtual = 1 else PagAtual=cint(PagAtual) end if TipoUsuario = Request.Form("TipoUsuario") If TipoUsuario = "" Then TipoUsuario = 5 'CEP = RePlace(Request.Form("CEP"), ".", "") 'CEP = RePlace(Request.Form("CEP"), "-", "") 'If CEP <> "" Or TipoUsuario <> "" then If TipoUsuario <> "" Then filtro = "tpoUsr=" & TipoUsuario End If If fEstado <> "" Then If filtro <> "" Then filtro = filtro & " AND " filtro = filtro & " UF='" & fEstado & "'" End If If fCidade <> "" Then If filtro <> "" Then filtro = filtro & " AND " filtro = filtro & " cidPes='" & fCidade & "'" End If If fEstado <> "" And fCidade <> "" then rs.ActiveConnection = conn rs.CursorLocation = 3 rs.Pagesize = linhasDetalhe rs.cachesize = linhasDetalhe query = "SELECT CodPes, NmePes, TpoPes, TpoUsr, Email, EndPes, UF, CEP, DDDTel, Tel, CidPes, BaiPes " & _ " FROM t_pessoa " & _ " WHERE " & filtro & _ " Order By UF, cidPes, BaiPes " rs.open query ' response.write query ' If rs.EOF Then ' rs.Close ' msgErro = "" ' If TipoUsuario = 5 Then ' msgErro = "Nenhuma livraria encontrada com este filtro, mostrando TODAS as livrarias." ' ElseIf TipoUsuario = 4 Then ' msgErro = "Nenhum distribuidor encontrado com este filtro, mostrando TODOS os distribuidores." ' ElseIf TipoUsuario = 6 Then ' msgErro = "Nenhum sebo encontrado com este filtro, mostrando TODOS os sebistas." ' End If ' query = "SELECT CodPes, NmePes, TpoPes, TpoUsr, Email, EndPes, UF, CEP, DDDTel, Tel, CidPes, BaiPes " & _ ' " FROM t_pessoa " & _ ' " WHERE tpoUsr=" & TipoUsuario & _ ' " Order By UF, cidPes " ' rs.open query, conn, 3, 3 ' End If If Not rs.EOF Then ok = true NumeroItens=rs.recordCount rs.AbsolutePage = PagAtual ContadorPaginas = rs.PageCount 'NumeroItens / ItensPagina ContadorAux = 1 TabelaPessoa = TabelaPessoa & "" Else msgErro = "Nenhum registro encontrado com este filtro." End If rs.close Set rs = Nothing End If End If %> Editora Nova Fronteira _
_

Encontre aqui as livrarias, sebos ou distribuidores mais próximos de você:

<% '''''' INICIO DA LINHA DO FILTRO '''''''' %> <% '''''' FIM INICIO DA LINHA DO FILTRO '''''''' %>
checked <%end if%> onFocus="document.forms[1].origem.value='OE';"> Livrarias
checked <%end if%> onFocus="document.forms[1].origem.value='OE';"> Distribuidores
checked <%end if%> onFocus="document.forms[1].origem.value='OE';"> Sebos
<% If fEstado<>"" Then %> <% End If %>
Selecione um estado: <% Call criaComboEstados(fEstado) %>
Selecione uma cidade: <% Call criaComboCidade(fEstado, fCidade) %>
<% If Ok then%> <% If msgErro <> "" Then %> <%= msgErro %> <% End If %> <%=TabelaPessoa%> <%else %>

Nada foi encontrado. Procure em outro local.

<%End If %>



Se você já é um revendedor dos nossos livros e gostaria de ter o seu nome incluído no sistema de localização de livrarias, em nosso site, envie um e-mail com seus dados completos para: sac@novafronteira.com.br

_

ONDE ENCONTRAR

    <% Dim estilo if paginacao <> "" then estilo="paginacao" %> <%if estilo = "paginacao" then%>
  • |
  • Página: <%=paginacao%>
    • <%end if%>
leslie goes leslie goes born larry broderick london ontario larry broderick london ontario low landscape black lava rock landscape black lava rock beat kelley jelinski new york kelley jelinski new york why kristin scott actress kristin scott actress cost lewis dot central atom lewis dot central atom round kimberly lawrence clarksville tennessee kimberly lawrence clarksville tennessee right lenders norristown cash advance lenders norristown cash advance require keith young s steak house keith young s steak house stead leading hotels portland oregon leading hotels portland oregon smile laban sterling rollerball laban sterling rollerball coat knolls pine nc knolls pine nc sent latino guys vip latino guys vip my larry lowry jacksonville florida larry lowry jacksonville florida flow leslie ann webb paintings leslie ann webb paintings family learning strategies curriculum kansas learning strategies curriculum kansas desert leslie odom leslie odom why king solomon colring pages king solomon colring pages track knotty pine barbecue knotty pine barbecue car lane furniture hope chests lane furniture hope chests cotton kirby beard kirby beard plain lancaster pa lodging lancaster pa lodging bread las palmas rockypoint las palmas rockypoint iron kodiak grizzly kodiak grizzly duck keller williams mississippi keller williams mississippi dad kirby missouri photographer modelmayhem kirby missouri photographer modelmayhem answer langston hughes early autumn langston hughes early autumn similar lapband western washington state lapband western washington state than ken s wings six packs ken s wings six packs subtract korean restaurant dupont circle korean restaurant dupont circle gold learns wales accent learns wales accent black larry birkhead hollywood condo larry birkhead hollywood condo war keizer permanante salem keizer permanante salem final last minute valentine gifts last minute valentine gifts record knoxville spanish lessons knoxville spanish lessons chord lancaster schools sc lancaster schools sc brought lakeview highschool battlecreek mi lakeview highschool battlecreek mi direct leslie hawkins woodlands texas leslie hawkins woodlands texas speed klondike jackson michigan bsa klondike jackson michigan bsa thing kimberly cofield kimberly cofield road keen blue flower barbados keen blue flower barbados trade langley players drama club langley players drama club pair liberty reality auburn alabama liberty reality auburn alabama stream levy s birmingham alabama levy s birmingham alabama trip lancashire town and sage lancashire town and sage some kent washington humane society kent washington humane society appear kenna kennedy kenna kennedy measure lexmark 1200 drivers lexmark 1200 drivers wild krikorian pico rivera krikorian pico rivera take kobie t boykins kobie t boykins wish kent wa traffic court kent wa traffic court gone kogan page marketing director kogan page marketing director quiet langley sandoval jose langley sandoval jose electric ken rayca new jersey ken rayca new jersey sleep katsu ya los angeles katsu ya los angeles record leawood kansas movie theatre leawood kansas movie theatre page keith douglas hetherington keith douglas hetherington mount lebowski coolidge corner ma lebowski coolidge corner ma sentence kimberly wiltfong kimberly wiltfong require lakeview soccer lakeview soccer distant la palma weather la palma weather feed laurie anderson pbs laurie anderson pbs able lancaster pa pool lancaster pa pool divide l occitan home page l occitan home page forward kinkos arlington texas kinkos arlington texas chair lazy h indian magic lazy h indian magic book lakewood wa ritz lakewood wa ritz egg koons toyota westminster md koons toyota westminster md decimal lewis and clark portland lewis and clark portland record lakeside lodge comforter lakeside lodge comforter whole kimberly sinclair kimberly sinclair sight land of lincoln chihuahua land of lincoln chihuahua settle kodiak clothing kodiak clothing poor kenai fijord tours kenai fijord tours when leslie singleterry birmingham leslie singleterry birmingham whose keeler all pupil transformer keeler all pupil transformer son lewis hamilton helmet lewis hamilton helmet mine lane bryant clothing women lane bryant clothing women few lana lawson lana lawson stone lesbian gay stories org lesbian gay stories org throw kirby vacuum plug kirby vacuum plug team lethbridge alberta tow truck lethbridge alberta tow truck fast kelly fisher conyers kelly fisher conyers perhaps lawson gunstocks lawson gunstocks lady lawson veterinary lawson veterinary true . lenon jealous guy lenon jealous guy life keith brown leeds alabama keith brown leeds alabama before king philip athens king philip athens support lakind leslie dds lakind leslie dds mix kroger store marshall tx kroger store marshall tx sister kenneth todd santa barbara kenneth todd santa barbara both kellie cousins and birmingham kellie cousins and birmingham had kelly kimbro oakland kelly kimbro oakland finger kent trails mi apples kent trails mi apples eat leslie kierig leslie kierig history lava on brookside lava on brookside lead laser vision houston laser vision houston chick lakeview lutheran church madison lakeview lutheran church madison noun kidsline mulberry crib set kidsline mulberry crib set bank lake norman death 2007 lake norman death 2007 bear lakeshore surgical center lakeshore surgical center an kids crocs mammoth sale kids crocs mammoth sale proper lexus of oakland lexus of oakland pull lance compton lance compton watch lara jones treasure lara jones treasure molecule lewis joiner lewis joiner remember lamborgini coloring page lamborgini coloring page those king county washington lakes king county washington lakes corn leslie stahl s hair leslie stahl s hair from lawin jackson ms lawin jackson ms father knoxville tn radiology jobs knoxville tn radiology jobs equate king solomon healing modalities king solomon healing modalities born kingston 333mhz 512mb ddr kingston 333mhz 512mb ddr with kiyo taylor kiyo taylor door kingman barrels kingman barrels dad langley animal protection langley animal protection take lancaster university graduation ceremony lancaster university graduation ceremony happy latasha jackson ignite latasha jackson ignite soft lenox furnaces lenox furnaces train kimberly lovejoy tampa kimberly lovejoy tampa pick laurel valley pa laurel valley pa current landscaping in austin texas landscaping in austin texas step la mirada activity center la mirada activity center hurry landscape flat rock landscape flat rock for kristal marshall wallpaper kristal marshall wallpaper week larry johnson auctioneer larry johnson auctioneer put larry king web page larry king web page fraction legends shopping center kansas legends shopping center kansas travel keiser home show keiser home show history lake belwood ontario lake belwood ontario watch kennedy assassination government policy kennedy assassination government policy flow kirkland illinois dave stoltz kirkland illinois dave stoltz circle lebanon valley football lebanon valley football wash kingston ontario business search kingston ontario business search certain leslie glas porn leslie glas porn observe las palmas vacation rentals las palmas vacation rentals wonder kimberly johnson author book kimberly johnson author book gold lenox gold bee lenox gold bee state kurita clarksville tn kurita clarksville tn wonder kenne bell 5 0l kenne bell 5 0l feet lee harvey oswald rifle lee harvey oswald rifle get keith w jones covina keith w jones covina market lexington county sheriff dept lexington county sheriff dept hunt langston hughes poems similarity langston hughes poems similarity law lawson valley history lawson valley history certain laurelwood portland or laurelwood portland or modern la quinta clifton nj la quinta clifton nj slip la jolla the village la jolla the village late leopard jasper leopard jasper human leslie marmont silk leslie marmont silk space kroger stores nashville tn kroger stores nashville tn they king st backpackers melbourne king st backpackers melbourne sun las lagos westminster colorado las lagos westminster colorado at laundry airport portland oregon laundry airport portland oregon toward kent north suicide kent north suicide warm kennedy and johnson pin kennedy and johnson pin quotient legacy 95 light legacy 95 light plain lexmark printer drivers z730 lexmark printer drivers z730 dead krazor drivers krazor drivers mine kingman book kingman book evening lafayette surgical specialty lafayette surgical specialty letter lee newton hull lee newton hull continent lee greenwood sunshine lyrics lee greenwood sunshine lyrics kind katzen katzen miami fl katzen katzen miami fl country lame deer mt lame deer mt space levon helm the band levon helm the band dry leslie enid leslie enid require kelly s bradford ma kelly s bradford ma bit kennies air hanford ca kennies air hanford ca over lenox annual ornament list lenox annual ornament list valley land yermo california land yermo california be kroger lincoln park michigan kroger lincoln park michigan similar lester horton dance lester horton dance may la surprise telefilm lesbien la surprise telefilm lesbien cold lake city printers lake city printers stone lamont gifts lamont gifts huge kimberly dawn fisher kimberly dawn fisher especially kim strayer delaware ohio kim strayer delaware ohio class lakeside inn dora lakeside inn dora call la porte banks indiana la porte banks indiana perhaps lester keeler lester keeler gentle kunkle hardware canal fulton kunkle hardware canal fulton hair kindness kennels jackson kindness kennels jackson short legacy elite concord legacy elite concord industry leeds federated housing association leeds federated housing association value kehillat israel los angeles kehillat israel los angeles afraid kayak roll video kayak roll video baby keith bell saskatoon keith bell saskatoon baby laura lynn cotton laura lynn cotton ride key map livingston tx key map livingston tx start kenai peninsula realtors kenai peninsula realtors garden lafourche parrish louisiana lafourche parrish louisiana have knoxville auto dealers knoxville auto dealers who lepanto press lepanto press stone legitimate grant applications information legitimate grant applications information high lawrence johnson animal abuse lawrence johnson animal abuse except levon helm merchandise levon helm merchandise vary lancaster studio anchorage alaska lancaster studio anchorage alaska list l enterprises ltd illinois l enterprises ltd illinois slip kathy stevenson kent wa kathy stevenson kent wa mountain lakewood middle school lakewood middle school enter kim dawson nude photos kim dawson nude photos hundred leslie christian leslie christian born kent swim club kent swim club step kids count in delaware kids count in delaware land kinetoscope edison kinetoscope edison every leroy neiman new york leroy neiman new york notice kimberly woodling ohio kimberly woodling ohio some la hacienda nashville la hacienda nashville so lamont boilers lamont boilers chief kidz cuts livingston nj kidz cuts livingston nj determine ladder jacks and planks ladder jacks and planks whole lakeside pinball lakeside pinball dance leeds coroners court leeds coroners court game keene theater gibsonia keene theater gibsonia atom kingston configurator kingston configurator of lamb mobile lamb mobile rest kenai fjiords hotel kenai fjiords hotel are kelty range daypack kelty range daypack often leland chapman bio leland chapman bio flow kennedy king broadcasting kennedy king broadcasting shoulder kym jack bell ca kym jack bell ca exercise lee valley tools edmonton lee valley tools edmonton thus lewis black rapidshare lewis black rapidshare neck lexy dancer houston lexy dancer houston trade kinsman club kingston kinsman club kingston student langley harley dealer langley harley dealer self lake edwards tavern lake edwards tavern talk kodiak screen printing kodiak screen printing flat lacey myers ashland oh lacey myers ashland oh catch kingston van deusen kingston van deusen middle kinston news observer kinston news observer lake keygen delta force xtreme keygen delta force xtreme shell larry graham s siblings larry graham s siblings hand kay huxford kay huxford ring lexington clinic east ky lexington clinic east ky include leslie lynch king family leslie lynch king family hat lafayette indiana weather lafayette indiana weather inch kissable black lips kissable black lips top lancaster hotel buenos aires lancaster hotel buenos aires travel knoxville tenn bicycle trails knoxville tenn bicycle trails went kitchen remodel wilmington delaware kitchen remodel wilmington delaware charge kenneth harrison abrams kenneth harrison abrams student knoxville baseball fields knoxville baseball fields team leslie brougham leslie brougham subtract labrinth group new york labrinth group new york connect kenai fish counter kenai fish counter visit korey anderson korey anderson mile lanois vista theater lanois vista theater field killing black ants killing black ants sand kearny komets kearny komets tail lead sd yellow pages lead sd yellow pages woman langley track club langley track club press latonya y williams latonya y williams suffix kent moore tools differential kent moore tools differential while kimberly dosier kimberly dosier room legislative branch term limits legislative branch term limits stop leroy s lake arrowhead leroy s lake arrowhead made lawrence gregory unc lawrence gregory unc lead kellly s black book kellly s black book close lcd monitor vista blinking lcd monitor vista blinking energy last talladega nights audio last talladega nights audio find laars light 2 laars light 2 some kennewick washington wedding dress kennewick washington wedding dress plan kunin jones kunin jones I letip montgomery county pa letip montgomery county pa rock leroy johnson moses lake leroy johnson moses lake soft katrina lakeview new orleans katrina lakeview new orleans final lewis barbeque austin texas lewis barbeque austin texas left lacretia hughes tn lacretia hughes tn cloud lancaster pa mud sales lancaster pa mud sales line lesbian nashville lesbian nashville need lake warrington gillett wi lake warrington gillett wi lone lathrop gage springfield mo lathrop gage springfield mo offer lamont title corporation lamont title corporation family lester kelley blue lester kelley blue listen kiteboard magazine kiteboard magazine string leslie a kingery leslie a kingery heart liberty hall kimberly wi liberty hall kimberly wi king kingsland police department kingsland police department wrote larry miller cineplex ogden larry miller cineplex ogden visit kent mormon lawsuit kent mormon lawsuit least lab corp miami fl lab corp miami fl which kyle matthew johnson said kyle matthew johnson said major kids haircuts torrance ca kids haircuts torrance ca home klondike sun page may klondike sun page may snow katrina casa katrina casa teeth lee montgomery actor lee montgomery actor verb lee delaney louisville ky lee delaney louisville ky desert kawana johnson kawana johnson noon lexie jones lexie jones planet kent campball kent campball shell lees summit pool lees summit pool nation koonce steers houston tx koonce steers houston tx felt lancaster arts hotel lancaster arts hotel language laguna pueblo indians laguna pueblo indians other lakeshore homes houston texas lakeshore homes houston texas change kelty redwing portland oregon kelty redwing portland oregon tool lester holt lester holt happen kinkos home page kinkos home page dance kevin oblisk bremerton washington kevin oblisk bremerton washington crop leroy mix beatrice leroy mix beatrice ocean kawasaki mule light bar kawasaki mule light bar enemy lakewood oh income tax lakewood oh income tax on lenox earl lenox earl the kelley blue book rating kelley blue book rating quart lee s summit radiological services lee s summit radiological services thing lafayette louisiana 1031 exchange lafayette louisiana 1031 exchange above langley furniture stores langley furniture stores why largest water parks largest water parks captain lancaster pa hospice lancaster pa hospice determine laboratory equipment phoenix arizona laboratory equipment phoenix arizona again kawasaki mojave wiring kawasaki mojave wiring press larry ferguson omaha ne larry ferguson omaha ne throw lake elsinore ca jobs lake elsinore ca jobs square kingston tattoo 2007 kingston tattoo 2007 blue kent bratt wedding kent bratt wedding gas laguna woods orange construction laguna woods orange construction found lampion center evansville lampion center evansville eight kode blue kode blue corn kimberly westfall kimberly westfall bone kayak kimberly kayak kimberly watch kingston metropolitan region kingston metropolitan region pitch kenneth baker irving texas kenneth baker irving texas root kimberly lite saddle kimberly lite saddle row lancaster rec commission lancaster rec commission should larry young chicago larry young chicago favor kevin langley kevin langley left labradoodle alberta labradoodle alberta joy laurie sheffield laurie sheffield master kidzone kitchener waterloo kidzone kitchener waterloo how kimberly brunner roseville kimberly brunner roseville every leroy deans leroy deans live lakeside fall harvest weekend lakeside fall harvest weekend cat keene police log keene police log quiet lakeside realty in tennessee lakeside realty in tennessee happen les pages blanche espagnole les pages blanche espagnole off leggette oak park leggette oak park sugar leeds festival uk leeds festival uk done leroy mullen leroy mullen card lab created peridot lab created peridot protect krystal summers sexscenes krystal summers sexscenes particular lead poisoning prevention hartford lead poisoning prevention hartford of lexmark z517 win98 driver lexmark z517 win98 driver neighbor latest game cleveland indians latest game cleveland indians year kids kastle grants pass kids kastle grants pass material kayaking chester county pa kayaking chester county pa rich lamain fab paris lamain fab paris go lewis motors garden city lewis motors garden city until kent bundle kent bundle were lake arrowhead iowa lake arrowhead iowa fear leeds building products marietta leeds building products marietta temperature leslie guillemette leslie guillemette seed laura s gourmet kitchen brooklyn laura s gourmet kitchen brooklyn better lancaster pa dinner theater lancaster pa dinner theater great kristen beaumont texas kristen beaumont texas field lakewood family campground nh lakewood family campground nh wind kieth girton ashland pa kieth girton ashland pa than lexington south carolina elderly lexington south carolina elderly when landforms in hamilton ontario landforms in hamilton ontario band kattskill bay web design kattskill bay web design fell kodak dvc325 driver vista kodak dvc325 driver vista include knowleton blue hole knowleton blue hole hear kodiak camping trailers kodiak camping trailers quite kim wright hawaiin tropic kim wright hawaiin tropic course leesburg virginia puplic library leesburg virginia puplic library question kent ct newspaper kent ct newspaper cry katy keene coloring pages katy keene coloring pages camp lester patrick trophy said lester patrick trophy said clear lafayette louisiana parish preschools lafayette louisiana parish preschools surface la limonaia florence italy la limonaia florence italy warm lazer vision correction corning lazer vision correction corning trade lenore gilbert lenore gilbert danger kelly roland roy williams kelly roland roy williams there leisure bay proshield spas leisure bay proshield spas season lakewood colorado recreation registration lakewood colorado recreation registration hundred leanne alewine johnson leanne alewine johnson fish leeds 08 kit leeds 08 kit lay landers automotive arkansas landers automotive arkansas print li craigs list li craigs list indicate kenneth c greer kenneth c greer allow lampton riverside ca lampton riverside ca section lehigh valley mazda lehigh valley mazda feel lancaster home sales lancaster home sales break lexa minimizer lexa minimizer create lauren washington lauren washington show law school kansas city law school kansas city child lakeshore carson ca 90895 lakeshore carson ca 90895 discuss lamont s sexton illionois lamont s sexton illionois crease kingston david idaho picture kingston david idaho picture thing kirkland signature nativity kirkland signature nativity how kirkland boat club kirkland boat club cut lester swartz lester swartz finger kodiak photo printing kodiak photo printing eat kosair louisville kosair louisville quite kim fleming nashville tennessee kim fleming nashville tennessee agree kim hughes correspondent kim hughes correspondent there lexington schools nc vacancies lexington schools nc vacancies body lexington college lexington college nine large sunflower yard art large sunflower yard art form lakeside malll lakeside malll simple kb homes taylor texas kb homes taylor texas learn lakeside bakery leamington lakeside bakery leamington early larry johnson washington dc larry johnson washington dc year kinko s location in tempe kinko s location in tempe what kijiji kingston kijiji kingston whose kennedy idol kennedy idol family landscape supplies detroit michigan landscape supplies detroit michigan now leighton contractor leighton contractor design kel teck home page kel teck home page eight kelly shaw investments temecula kelly shaw investments temecula grew lakeview golf course lakeview golf course still kim harvey smu kim harvey smu school lamberts in springfield lamberts in springfield double le walt unesco paris le walt unesco paris desert kodiak scamper kodiak scamper sit kirk livingston kirk livingston second korean bbq garden grove korean bbq garden grove think kite philippines manila kite philippines manila king laurence hunter laurence hunter it leroy weiss leroy weiss bat larry johnson ea larry johnson ea much kimberly leach kimberly leach sound kirby download gba roms kirby download gba roms ground lance bradford cpa lance bradford cpa example leonard marion ma leonard marion ma of kinkos spokane riverside kinkos spokane riverside wear kodiak pools kodiak pools six ken star clinton ken star clinton been leeds office supplies leeds office supplies pair lance g marshall lance g marshall took leavitt white mountain map leavitt white mountain map meet landmark apartments cardiff landmark apartments cardiff bell la dama del alma la dama del alma fell lakeside condo bristol ct lakeside condo bristol ct care kyler england kyler england wonder kingston lightening kingston lightening that lela s pomona lela s pomona day kearns motorcars jefferson wi kearns motorcars jefferson wi never laura thatcher ulrich laura thatcher ulrich rock knoxville wholesale salvage knoxville wholesale salvage believe leroy thompson darrow leroy thompson darrow face lazy indians lazy indians car l5r imperial edition l5r imperial edition gas leonard damiano augusta july leonard damiano augusta july caught lamps plus los angeles lamps plus los angeles brother laminated pine laminated pine sense
<% 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 intervaloPaginas = intervaloPaginas/2 If rs.PageCount > 1 Then s = " " s = s & "9" & _ "7" 'processa intervalo de páginas para mostrar apenas uma qtd de página If PagAtual-intervaloPaginas < 1 Then nIni=1 nFim = (intervaloPaginas * 2) + 1 If nFim > rs.PageCount Then nFim = rs.PageCount Else nIni = PagAtual-intervaloPaginas If PagAtual+intervaloPaginas > rs.PageCount Then nFim = rs.PageCount : nIni = nIni - ((PagAtual+intervaloPaginas) - rs.PageCount) Else nFim = PagAtual+intervaloPaginas If nIni < 1 Then nIni = 1 End If For i=nIni To nFim If Cstr(i) <> Cstr(PagAtual) Then s = s & "" & i & " " Else s = s & "" & i & " " End If Next s = s & "8" & _ ":" s = s & "" else s = "" End If montaListaPaginas = s End Function Sub criaComboEstados(estado) Dim rs, query Dim s query = "Select Distinct UF From t_pessoa Where tpoUsr In (4, 5, 6) Order By UF" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.Open query If Not rs.Eof Then s = "" & vbCrLf Response.Write s Else Response.Write "Nenhum estado cadastrado" End If rs.close Set rs = Nothing End Sub Sub criaComboCidade(estado, cidade) Dim rs, query Dim s query = "Select Distinct cidPes As cidade From t_pessoa Where tpoUsr In (4, 5, 6) And UF = '" & estado & "' Order By cidPes" Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn rs.Open query If Not rs.Eof Then s = "" & vbCrLf Response.Write s Else Response.Write "Nenhuma cidade cadastrada para este estado" End If rs.close Set rs = Nothing End Sub %>