<% Session.LCID = 1040 Dim rsSegin, strSQL, conexaodb, rsSelecao, varDthoje, varDthoje1, strRES varDthoje = date varDthoje1 = MID(varDthoje,7,4) & "/" & MID(varDthoje,4,2) & "/" & MID(varDthoje,1,2) set rsSegin = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM segmento ORDER BY codigo ASC" call abreConexao set rsSegin = conexaodb.Execute(strSQL) %> <% 'Monta a conexão com o banco no site 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=mysql.abimcomex.com.br;uid=abimcomex;pwd=abim11;database=abimcomex" 'Conn.Open 'DSN 'Monta a conexão com o banco no site set Conn = Server.CreateObject("ADODB.Connection") db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\home\abimcomex1\dados\abim.mdb" Conn.Open db 'Monta a conexão com o banco localmente 'set Conn = Server.CreateObject("ADODB.Connection") 'const cntCaminho = "C:\inetpub\wwwroot\abim\database\abim.mdb" 'DSNtest = "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho 'Conn.Open DSNtest set rsSelecao = Server.CreateObject("ADODB.Recordset") rsSelecao.CursorLocation = 3 strRES = "SELECT nomefantasia, email, pais, negocio, segmento, texto, dtexp, ativo, paterns FROM anuncio " strRES = strRES & "WHERE dtexp >= #" & varDthoje1 & "# " strRES = strRES & "And ativo = 's' " strRES = strRES & "ORDER BY negocio, paterns, segmento DESC" rsSelecao.Open strRES, Conn %> <% 'Verifica se existe registro localizados na pesquisa, se não desvia para página semregistro.asp if rsSelecao.PageCount = 0 then response.Redirect "semregistro.asp" end if '############## paginacao Introdução ################# '------- Coloque aqui a quantidade de registros que você deseja por página -------- SELECT CASE np CASE "1" NumPorPage = "5" CASE ELSE NumPorPage = "5" END SELECT 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If rsSelecao.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros rsSelecao.MoveFirst 'Move o RecorSet para o início rsSelecao.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = rsSelecao.PageCount rsSelecao.AbsolutePage = PagAtual 'Configura a página atual Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que rsSelecao.PageSize i = 0 %> :: ABIM Comex
English Español
Sobre a ABIM Áreas de Atuação Objetivos Produtos e Serviços Por que associar-se Fale Conosco
  Login Senha  
 
 
Cadastre-se aqui
 
         
  Buscar Negócios:
  
 
   Enviar Anúncios
   Ver Anúncios
  
   Por que exportar
   Consórcios de Exportação
   Cotações de Frete
   BMF
   Legislação - SISCOMEX
   Calendário de Feiras
   Fuso Horário
 
      
<% Response.Write("Página " & PagAtual & " de " & TotalPages )%>    
<% DO WHILE NOT rsSelecao.EOF And Count < rsSelecao.PageSize 'paginacao And Count < rsSelecao.PageSize %> <% if rsSelecao("negocio") = "Oferta" then %> <% else %> <% end if %>
  <% = rsSelecao("negocio") %> <% = rsSelecao("segmento") %>    <% = rsSelecao("negocio") %> <% = rsSelecao("segmento") %>  
<% = rsSelecao("nomefantasia") %> - <% = rsSelecao("pais") %>   
<% = rsSelecao("texto") %>
<% if rsSelecao("paterns") = "1" then %> <% else %> e-mail: "> <% =rsSelecao("email") %>
Expira em: <% =rsSelecao("dtexp") %> <% end if %>

<% i = i+1 Count = Count + 1 'paginacao rsSelecao.MoveNext LOOP 'tb paginacao %>
   
<% Response.Write("Página " & PagAtual & " de " & TotalPages)%>    
<% 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos --------------------------------------------- var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrescenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. if CInt(final) > CInt(TotalPages) Then final = TotalPages '------------------------------------------------------------------------------ IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("") Response.Write("") Response.Write("Primeira") Response.Write("  ") Response.Write("") Response.Write("") Response.Write("Anterior") Response.Write("  ") IF PagAtual > 10 THEN Response.Write("") Response.Write("") Response.Write("...") Response.Write("  ") ELSE Response.Write("") Response.Write("....") Response.Write("  ") END IF Else Response.Write("") Response.Write("Primeira") Response.Write("  ") Response.Write("") Response.Write("Anterior") Response.Write("  ") Response.Write("") Response.Write("...") Response.Write("  ") End If '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "[ " & i & " ]  " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "" & i & "  " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "" & i & "  " END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN '##### CONDIÇÕES ######## 'digitos mais significativos do Numero com 1 no fim > PagAtual 'EX: 21 [ 22 ] 23 24 25 2 com 1 => 21 > 22 (F) 'OU 'PagAtual <= 10 E TotalPages > 10 'EX: ... 1 2 3 4 [ 5 ] 6 ... 5 <= 10 (V) E 6 > 10 (F) IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN Response.Write("") Response.Write("") Response.Write("...") Response.Write("  ") ELSE Response.Write("") Response.Write("...") Response.Write("  ") END IF Response.Write("") Response.Write("") Response.Write("Próxima") Response.Write("  ") Response.Write("") Response.Write("") Response.Write("Ultima") Response.Write("  ") ELSE Response.Write("") Response.Write("...") Response.Write("  ") Response.Write("") Response.Write("Próxima") Response.Write("  ") Response.Write("") Response.Write("Ultima") Response.Write("  ") End If '################## fim paginacao 02 ####################### %>
 
 
   Negócios:

  Sobre ABIM Comex  -  Por que associar-se   -  Termos de Serviço  -  Política de Privacidade
© Copyright 2004 - ABIM Associeted Business International Market