% 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 & "
"& uCase(rs("CidPes")) &" (" & rs("UF") & ")
" end if Cidade = rs("CidPes") If ucase(trim(Bairro))<>ucase(Trim(rs("BaiPes"))) then TabelaPessoa = TabelaPessoa &"