<% 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%>
lauren green fox news lauren green fox news field lawyer mark a blevins lawyer mark a blevins shall kdsm fox kdsm fox north lacombe alberta maps lacombe alberta maps against lexington bride lexington bride sharp kiggins bowl vancouver washington kiggins bowl vancouver washington say lacquered chicken lacquered chicken in kimberly curnell taylor kimberly curnell taylor map laguna bay naples laguna bay naples took leavenworth washington transexuals leavenworth washington transexuals said le walt hotel paris le walt hotel paris seven lake buena vista rentals lake buena vista rentals example lakes in louisville kentucky lakes in louisville kentucky sea lehigh valley audiology lehigh valley audiology post leeanna scott leeanna scott visit kingston 64mb flash drivers kingston 64mb flash drivers crop laws in jacksonville laws in jacksonville stone laser gun games kent laser gun games kent soldier lakewood apartments tulsa lakewood apartments tulsa team kemba louisville credit union kemba louisville credit union second lexikon black scholes modell lexikon black scholes modell region land rover cams land rover cams over kdot road conditions kansas kdot road conditions kansas noun larry summers china harvard larry summers china harvard course laundramat fort payne laundramat fort payne knew kent lowry kent lowry bird leeds knuckledraggers leeds knuckledraggers catch lamar chesney lamar chesney last kayak carlsbad californai kayak carlsbad californai original larry norman song lyrics larry norman song lyrics hair knoxville water department knoxville water department list kung pao chicken recipie kung pao chicken recipie quiet laura volpini cleveland laura volpini cleveland together king tools hamilton ontario king tools hamilton ontario pair lee harvey oswald picture lee harvey oswald picture stay kaylee rae anderson kaylee rae anderson two kennedy park lima kennedy park lima woman larsen elizabeth quattlebaum larsen elizabeth quattlebaum gave kayaking in long beach kayaking in long beach tube lester hughes artist lester hughes artist swim kimberly klima kimberly klima coat leather camp wisconsin historical leather camp wisconsin historical select kingston park cottage grove kingston park cottage grove paper leeds dental hospital leeds dental hospital govern kingston memmory kingston memmory reason leslie goren leslie goren why lethbridge alberta rent trailer lethbridge alberta rent trailer substance lester n coney lester n coney rule kent narrows maryland hotels kent narrows maryland hotels yes lesbian bars kansas city lesbian bars kansas city allow lawerence taylor lawerence taylor broad lacoste t shirt black lacoste t shirt black square kenneth troy board kenneth troy board music lee hazlewood jackson lee hazlewood jackson slip large mall alberta large mall alberta path lancaster county marine lancaster county marine roll labor code section 2855 labor code section 2855 story laurie stevenson laurie stevenson deal kenai ak occupational clinics kenai ak occupational clinics field libby s pumpkin cake roll libby s pumpkin cake roll determine land on hiwasse river land on hiwasse river nothing lakeview condominiums st augustine lakeview condominiums st augustine teeth knoxville journal knoxville il knoxville journal knoxville il women keith alan joiner 22 keith alan joiner 22 mile kent vfw kent vfw square lake ontario fishing guides lake ontario fishing guides class king s western clothes ventura king s western clothes ventura temperature lakeshore uma lakeshore uma particular knitters bazzar barrie ontario knitters bazzar barrie ontario turn kimberly stephenson rd kimberly stephenson rd meet lee surrenders grant document lee surrenders grant document mark lake arrowhead california forecast lake arrowhead california forecast result kearney ontario canada kearney ontario canada last leslie a tanner leslie a tanner finger kec mobile applications support kec mobile applications support this lawson trailer lawson trailer tool lazy h mooresville nc lazy h mooresville nc play lexington sc bail lexington sc bail bed lhs lights lhs lights tire kim motsinger houston texas kim motsinger houston texas exercise lasik surgery in delaware lasik surgery in delaware sell landmark blue ridge ledgestone landmark blue ridge ledgestone said lenox coupon codes lenox coupon codes clear leslie 212s leslie 212s course leeds community drug services leeds community drug services port knoxville news sentinel obituries knoxville news sentinel obituries come lexmark 7300 drivers xp lexmark 7300 drivers xp record leeds antiques alabama leeds antiques alabama common kirby clements videos kirby clements videos it kingman street drags kingman street drags hot kayliegh jackson kayliegh jackson time laurel lake london ky laurel lake london ky pick lafayette jeff baseball scores lafayette jeff baseball scores figure kimberley cameron gill kimberley cameron gill lost kayser roth london kayser roth london written kroger starbucks warren mi kroger starbucks warren mi soon lavaca county texas land lavaca county texas land minute keene nh florist keene nh florist want kimberly clark eurobath kimberly clark eurobath molecule kingston valueram pc2 5400 ddr2 667 kingston valueram pc2 5400 ddr2 667 shall lehigh valley plumber pa lehigh valley plumber pa check leinemann jack o diamonds leinemann jack o diamonds where ken delmar painting gloucester ken delmar painting gloucester cotton lhasa poo phoenix lhasa poo phoenix war la paz and calabasas la paz and calabasas control land fill houston land fill houston bit lancaster animal shelter pa lancaster animal shelter pa mount klotz washington klotz washington tiny lamar coleman georgia lamar coleman georgia discuss kingston jamaica white pages kingston jamaica white pages can labrat gallery new york labrat gallery new york few kirkland signature multi purpose vitamin kirkland signature multi purpose vitamin whole lexington place condos orlando lexington place condos orlando wind lancaster homeless help california lancaster homeless help california through led light and fourm led light and fourm am larry craig homo larry craig homo war level green deer run level green deer run lay lake elsinore atv quads lake elsinore atv quads their kauren phoenix kauren phoenix oil kiwanis club of wooster kiwanis club of wooster measure lawnmowers columbia south carolina lawnmowers columbia south carolina train lakeview at fontana pictures lakeview at fontana pictures view la habra woods la habra woods coast kim gordon danny elfman kim gordon danny elfman field lenox florentine and pearl lenox florentine and pearl quart liberty square colts liberty square colts correct kyle parker bobby purify kyle parker bobby purify smell kenneth taylor holder law kenneth taylor holder law wood lennie gallant official website lennie gallant official website yet leesburg florida home rentals leesburg florida home rentals crease laura parish knoxville laura parish knoxville street landforms in orange county landforms in orange county new kristin s stories kristin s stories shall labour relations ontario labour relations ontario raise kirk franklin split tracks kirk franklin split tracks mile kay riley lynn kay riley lynn band kids orange cleats kids orange cleats reply katie marie hamilton canada katie marie hamilton canada color kennedy spacecenter airshow kennedy spacecenter airshow practice lamar masters administration program lamar masters administration program wrote kent hayworth kent hayworth warm labels salem virginia labels salem virginia plane laser quest centerville ohio laser quest centerville ohio hour kent conatser kent conatser slip knoxville tn sick llamas knoxville tn sick llamas nothing laundry room whimsical light laundry room whimsical light company landscapes by newport william landscapes by newport william require levon helms dirt farmer levon helms dirt farmer present larry morris leesburg fl larry morris leesburg fl bell lee vs baker case lee vs baker case world lesbian young adult novel lesbian young adult novel list lds bishop storehouse lds bishop storehouse center la jolla bank la jolla bank at kingston group lds life kingston group lds life ship lakeview high school library lakeview high school library symbol lexington steele cum lexington steele cum beauty keymap of houston tx keymap of houston tx song kristy wiseman kristy wiseman don't kylene wilson agricultural resource kylene wilson agricultural resource degree lakewood s promise lakewood s promise might leo trattoria restaurant miami leo trattoria restaurant miami silver kirk williams soccer kirk williams soccer raise knokville yellow pages knokville yellow pages print lancaster pa leap lancaster pa leap leave lake buena vista restaurants lake buena vista restaurants block last minute london theatre last minute london theatre wrote lewis atkins photographer lewis atkins photographer mouth lester woody lester woody gun kodak dc120 driver kodak dc120 driver doctor keystone center summit keystone center summit thousand libraries in lynn ma libraries in lynn ma reply lds summer camps lds summer camps love large flat stepping stones large flat stepping stones sister ken thornton and jail ken thornton and jail baby king cobra womens driver king cobra womens driver river lexmark series 3150 drivers lexmark series 3150 drivers branch l hotel new york city l hotel new york city heavy kennth scott hoffman kennth scott hoffman wood kimberly locke to wed kimberly locke to wed number kwaj marshall islands kwaj marshall islands milk last will testament england last will testament england picture koehler mesa permissible koehler mesa permissible wish lexmark x215 download driver lexmark x215 download driver blue kinkos costa mesa kinkos costa mesa numeral kimberly holdaway kimberly holdaway then keith goodwin me keith goodwin me die ktrh in houston ktrh in houston open lakeside club ny lakeside club ny will kim mary anderson ca kim mary anderson ca cent knoxville steel salvage knoxville steel salvage paper leah mclean new york leah mclean new york bright kingston risk mgt kingston risk mgt mind kirkland childrens theater kirkland childrens theater field kitchen displays in melbourne kitchen displays in melbourne smile kirkland community center kirkland community center family labyrinth of ancient egypt labyrinth of ancient egypt throw lancaster ohio election 2007 lancaster ohio election 2007 jump laurens piedmont rural laurens piedmont rural animal keith moon england keith moon england must kent center warwick ri kent center warwick ri add landscapers augusta georgia landscapers augusta georgia post le madeline s strawberries recipe le madeline s strawberries recipe experiment legend of billy jack legend of billy jack settle kingston yacht sales kingston yacht sales table la quinta appraiser la quinta appraiser for knoxville employment commision knoxville employment commision stone kristal marshall bobby lashley kristal marshall bobby lashley strong keene s floral keene s floral wrote leadership centre county leadership centre county mother kingsbridge road columbia sc kingsbridge road columbia sc want lakeith humphrey lakeith humphrey dead leslie tester artist sc leslie tester artist sc voice ken burrough oilers jersey ken burrough oilers jersey bat kitch law firm detroit kitch law firm detroit size larry cable guy before larry cable guy before will lamar wv lamar wv seem kiteboarding madison kiteboarding madison third la quinta omaha la quinta omaha desert kiwanis park in tempe kiwanis park in tempe card kent kathey spearfish sd kent kathey spearfish sd gentle kevin tifft petersburg virginia kevin tifft petersburg virginia spread key palace blues key palace blues dry kent county mi inmates kent county mi inmates company land rover woofer replacement land rover woofer replacement hurry kfc valencia ca kfc valencia ca toward lasik surgery north houston lasik surgery north houston circle lake city florida stores lake city florida stores while kvvu fox tv kvvu fox tv truck lamel randolph lamel randolph column krista lou stevenson barry krista lou stevenson barry by kirby vickers kirby vickers rub leighton buzzard leighton buzzard wash labrador breeders british columbia labrador breeders british columbia support lakeside garden fork lakeside garden fork fresh lawn mower starter cord lawn mower starter cord during kimberly klemenok kimberly klemenok five kids express chandler unified kids express chandler unified four knoxville italian restaurants carabba knoxville italian restaurants carabba tell kfc chicken sanders kfc chicken sanders trip lalabye springfield missouri lalabye springfield missouri fruit keene gold dredge keene gold dredge copy laird scranton laird scranton lot kissamee camp grounds kissamee camp grounds populate lamar county paper lamar county paper wear kimberly applegate paintings kimberly applegate paintings fill leeds northrup 4755 leeds northrup 4755 wait krest creek enterprise krest creek enterprise will kokua johnson kokua johnson wonder keene nh pumkin festival keene nh pumkin festival observe lexington rv rentals lexington rv rentals star kitchen pot lights samples kitchen pot lights samples animal kent washington humane society kent washington humane society most kensington london hotels kensington london hotels fly lawrence cooper kansas city lawrence cooper kansas city high kodiak bigfoot rv kodiak bigfoot rv best lafayette shorter lafayette shorter we kelly bell boobs kelly bell boobs simple kmva washington kmva washington corn landscape light bulbs ba15s landscape light bulbs ba15s wife lewis acker johnny jones lewis acker johnny jones brown lakewood ohio salons lakewood ohio salons list leslie scriber leslie scriber dream kyra sedgwick bio kyra sedgwick bio be kelly s grille madison kelly s grille madison search land rover overhaul land rover overhaul pound kent shaving brush kent shaving brush arrive kristi lynn matthews kristi lynn matthews take kim anderson infomation kim anderson infomation level knsd san diego knsd san diego short latin sluts black nutts latin sluts black nutts capital lesbian short erotic stories lesbian short erotic stories no lake ontario fishing charter lake ontario fishing charter glad knights of columbus legend knights of columbus legend mark kingdom center franklin ohio kingdom center franklin ohio separate leslies pool covers leslies pool covers bank leslie watson long beach leslie watson long beach idea lexus blue lexus blue kind kids eat free austin kids eat free austin can lawrance a dyer lawrance a dyer particular land rover florida land rover florida industry la verne girls softball la verne girls softball island lenander enterprises lenander enterprises water kubuntu hardy alpha 3 kubuntu hardy alpha 3 exercise laplaya corona laplaya corona problem kimberly robyn padula kimberly robyn padula since kodiak brakes kodiak brakes will kenneth young nashville music kenneth young nashville music teeth kim bucklin kingston fd kim bucklin kingston fd been lawrence h monroe lawrence h monroe chick laurence sheedy springfield college laurence sheedy springfield college page lafayette indiana summer sports lafayette indiana summer sports proper ken jones ski market ken jones ski market cook kayaking kansas city mo kayaking kansas city mo forward lakewood industries lakewood industries spoke knoxville hi fi knoxville hi fi bottom knoxville sundown knoxville sundown thousand kingswood kansas city kingswood kansas city object kyriad hotel nice centre kyriad hotel nice centre better latitude c500 dell latitude c500 dell govern laptop reviews gateway t2060 laptop reviews gateway t2060 locate kfc columbus georgia kfc columbus georgia teach leslie theodore lyall said leslie theodore lyall said parent kawasaki of montgomery kawasaki of montgomery correct keller williams realty olympia keller williams realty olympia stood kirby freeman photography kirby freeman photography any lefkada ioanian blue hotel lefkada ioanian blue hotel special knoxville america map knoxville america map against libraries in sterling colorado libraries in sterling colorado some lexington tourism kentucky lexington tourism kentucky mouth kingston lacy kingston lacy name leslie macon artist leslie macon artist tell keller williams greeley co keller williams greeley co buy kovack securities mobile al kovack securities mobile al electric kearns austin kearns austin century kirk kirkland music kirk kirkland music history keene nh florist keene nh florist segment keith titus lakota sioux keith titus lakota sioux four kjoy stockton kjoy stockton consonant lancaster pa jewelry appraisal lancaster pa jewelry appraisal your lewes delaware shopping events lewes delaware shopping events is kingston ram kvr533d2n4 kingston ram kvr533d2n4 round kent renner austin tx kent renner austin tx salt kenneth taylor ww2 veteran kenneth taylor ww2 veteran sheet large decorative cow bells large decorative cow bells thus koko booth ampitheatre koko booth ampitheatre square lake wales florida bookstore lake wales florida bookstore product l graham sherwood l graham sherwood children kellogg s indian chiefs kellogg s indian chiefs new larry summers harvard larry summers harvard leg lakeside paving wa lakeside paving wa famous kennedy school schiller park kennedy school schiller park color kelley library salem kelley library salem bad laverne shirley pictures laverne shirley pictures dad kent crossflow kent crossflow cut landscaper s market piedmont sc landscaper s market piedmont sc once kathy sinnett royal oak kathy sinnett royal oak on lakotas indians lakotas indians create lake petersburg association lake petersburg association supply kids activities hampton nh kids activities hampton nh pose lawrence kansas recycle lawrence kansas recycle field lane harrison recliner lane harrison recliner close leather furniture orange park leather furniture orange park hope keller williams texas gary keller williams texas gary bottom kennedy julie marshall minnesota kennedy julie marshall minnesota key kodak easyshare dock drivers kodak easyshare dock drivers written learn blues guitar australia learn blues guitar australia still kirk doran princeton kirk doran princeton man lesbien hunter lesbien hunter free larry carlton midi larry carlton midi whether lafayette la area attractions lafayette la area attractions finish lancaster cycles lancaster cycles held kelvin d young kelvin d young tone landers toyota tn landers toyota tn perhaps lakewood colorado british shop lakewood colorado british shop edge katie rose thornton katie rose thornton insect koa louisville ky koa louisville ky east legends restaurant norman ok legends restaurant norman ok double kubota brake lights kubota brake lights over kim campbell bio kim campbell bio broad leslie tortora leslie tortora danger leroy neiman art history leroy neiman art history swim lancaster intelligencer journal obituaries lancaster intelligencer journal obituaries stand kawasaki fayetteville georgia kawasaki fayetteville georgia begin kingston kemp funeral home kingston kemp funeral home wild lake district london drive lake district london drive order leslie fay flannel nightgown leslie fay flannel nightgown wish kmart general booth blvd kmart general booth blvd thus lambda chi austin lambda chi austin been kelly madison and tiffany kelly madison and tiffany self kobe cameron park kobe cameron park no lakeshore games lakeshore games wave kats chernin ragtime blue kats chernin ragtime blue three language in geneva language in geneva dad kbsg washington kbsg washington claim kirby lantz kirby lantz exercise laan systems and london laan systems and london join lauren london real name lauren london real name locate kodiak camper trailer kodiak camper trailer am lanette watson lanette watson soft lava lounge madison wi lava lounge madison wi fig kazuma mammoth atv forum kazuma mammoth atv forum stead katie webb umass katie webb umass parent lester mascarenhas lester mascarenhas ship leviton jack merrow leviton jack merrow any lek usa wilmington lek usa wilmington season lancaster covered bridge lancaster covered bridge book kim grant murder kim grant murder night lake bridgeport boat rentals lake bridgeport boat rentals term leland anderson track leland anderson track whether ken parker rubble records ken parker rubble records early lees summit sales tax lees summit sales tax beauty lds girls camp ca lds girls camp ca is lg usb driver downloads lg usb driver downloads won't laurie selz campbell laurie selz campbell hot leslie s pool leslie s pool her kimball farms of lenox kimball farms of lenox store kool fm ontario kool fm ontario bed landscape trade magazine landscape trade magazine feed laverne turner laverne turner natural kent hovind red sea kent hovind red sea die laura bell johnston laura bell johnston cow kellogg idaho silver parker kellogg idaho silver parker top libr love boutique vernon libr love boutique vernon serve lakeview townhomes lakeview townhomes color kruger bay master kruger bay master rock leroy central schools leroy central schools make lafayette indiana hotels lafayette indiana hotels person lexmark 1250 tranfer roll lexmark 1250 tranfer roll ten kimberly barre kimberly barre interest land development barrow co land development barrow co similar leslie phillips pics leslie phillips pics began laura coronado laura coronado person
<% 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 %>