listagem por coluna e paginação

Wilson Kerci · Março 17, 2014

amigos estou tentando fazer uma listagem por colunas exemplo coluna1 | coluna2

coluna3 | coluna4

antes que todos me fale que tem varias tópicos abertos aqui vi todos, o problema é que peguei o script pronto de uma listagem muito bem feito só que não tem paginação e nem por coluna , o problema é que esses codigo estao por paginas .inc que me confundiram mais ainda ... olha o codigo abaixo

<%
Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cat_nome=Request.querystring("cat_nome")
nome=Request.querystring("nome")
%>
<table border=0 width=100%><tr width=100%><td width=100% valign=top><h2><%=cat_nome%></h2></td></tr>
<%
Select Case lista
Case "categoria"
	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")
	msgnada = "No momento não dispomos de nenhum produto neste departamento."
Case "busca"
	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preco LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
	msgnada = "Infelizmente não localizamos nenhum produto com esse nome."
Case Else
	%>
	<script>window.location="./index.asp"</script>
	<%
End Select
If lista_produtos.EOF Then 
	Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"
Else 
%>
	<tr width=20><td width=20><table border=1 width=183>
	<tr><th>Nome</th>
	<th>Preço</th>
	<th>Detalhes</th>
	
	
	
	<%
	Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_preco,malha1
	malha1 = "sim"
	while not lista_produtos.EOF
		prod_cat_id = lista_produtos("cat_id")
		prod_id = lista_produtos("id")
		prod_nome = lista_produtos("nome")
		prod_preco = lista_produtos("preco")
		%>                  
		<tr width=100% valign=top class=<%=malha1%>><td><%=prod_nome%></td><td>R$<%=prod_preco%></td>
			<td valign=top align=center>
			<a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">Click aqui !!</a>
			</td>
		</tr>
		<%
		lista_produtos.movenext
		If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	wend
End If
lista_produtos.Close
set lista_produtos = Nothing
%>

xanburzum · Março 18, 2014

para ficar melhor na visualização, aconselho a colocar um GridView, na verdade vc apenas implementará o Grid no seu code, bem como pode pegar um código de paginação e também implementar neste seu, dae é só deixar a visualização do seu jeito.

Wilson Kerci · Março 18, 2014

obrigado cara mas so leigo sei o basico de ASP , esses scripts ae não cheguei a estuda-los bem entende se puder da uma ajuda ...tentei tirar ele do do arquivo .inc mas da erro não sei o que o cara fez

Gustavo Emygdio Barboza · Março 18, 2014

Considere que o retrabalho é pior que fazer do zero... então esqueça esses códigos e vamos do inicio... vc quer resolver 2 problemas um é listar por colunas outro é página... ai eu pergunto vc paginar porque tem muitas colunas por serem muitas? Cole sua SQL dessa colunas para vermos mas adianto que terá que aplicar um loop dentro de loop ... a pagina vem pelas linhas? Mas lopando por colunas seriam para coloca-las em vertical ... ai não daria para paginar por registros ... sda para ver são muitas colocações até entendermos o que quer...

Wilson Kerci · Março 18, 2014

entendi , é uma pagina de clasificados ,, vai fica um do lado do outro uma parte resumida do clasificado com link a onde abre uma caixa com a descrição completa , no banco de dados vai so descrição. preço. e telefone

Gustavo Emygdio Barboza · Março 18, 2014

Mas tudo vira do banco certo!? Depois um link será disponibilizado para ser a descrição completa... mas Adianto que seria melhor tratar os dados completos por JavaScript assim vc não ficaria indo ao banco várias vezes um vez carregado já estaria tudo carregado... mas isso depende da normalização do banco ...tem Algum site modelo assim melhor para entendimento...

xanburzum · Março 18, 2014

vc pode usar um jQuery de Grid, fico muito bom

Wilson Kerci · Março 21, 2014

Mas tudo vira do banco certo!? Depois um link será disponibilizado para ser a descrição completa... mas Adianto que seria melhor tratar os dados completos por JavaScript assim vc não ficaria indo ao banco várias vezes um vez carregado já estaria tudo carregado... mas isso depende da normalização do banco ...tem Algum site modelo assim melhor para entendimento...

http://www.feiradomorumbi.com.br/

xanburzum · Março 21, 2014

http://jquerygridview.com/

wilnet · Março 22, 2014

Olá Wilson, blza.

Segue um código prontinho...

CSS

<style type="text/css" media="screen"> 
<!--
.listarGaleria {
  width: 990px;
  position: relative;
}
 
.listarGaleria .listar {
  width: 985px; /* .listarGaleria width - (.listar margin-left + .listar margin-right) */
  overflow: auto;
  height: 500px; /* Ajusta a Altura da Tabela da Galeria */
  margin: 0 35px; /* Ajusta a Distancia da Foto entre a Seta da Esquerda */
  position: relative;
  top: 0;
}
 
.listarGaleria ul a img {
  border: 5px solid #ccc;
  -moz-border-radius: 5px;
  -webkit-border-radius: 5px;
}
 
.listarGaleria .listar ul {
  width: 985px; /* single item n */
  list-style-image:none;
  list-style-position:outside;
  list-style-type:none;
  margin:10;
  padding:0;
  position: absolute;
  top: 0;
}
 
.listarGaleria ul li {
  display:block;
  float:left;
  padding: 5px; /* Ajusta o Espaçamento da Foto */
  height: 220px; /* Ajusta a Medida da Foto */
  width: 310px; /* Ajusta a Medida da Foto */
}
 
.listarGaleria ul li img {
    -webkit-transition: border-color 400ms;
}
 
.listarGaleria ul:hover li img {
  border-color: #ccc;
}
 
.listarGaleria ul:hover li:hover img {
  border-color: #666;
}
 
.listarGaleria ul li a img {
  display:block;
}

.moldura { 
   padding:5px; 
   background-color: #F4EDDD; 
   width: 270px; 
   border: 1px solid #999999;
  -moz-border-radius: 5px;
  -webkit-border-radius: 5px; 
} 

-->
</style>

Tabela que lista a 6 Registro, cria nova página.

<table width="1003" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3" class="cor3">


<!-- ***************** INÍCIO da Categorias ********************** -->
      
<%
Dim pagina, pag, conn, listaProdutos, sql, TotalPages
 
pagina = Request.ServerVariables("Script_Name")
pag = Request.QueryString("pag") 

If pag = "" Then 
pag = 1 ' Determina qual página da paginação será aberta (deixar em 1)  
End if 

Set conn = CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../db/banco.mdb")


Set listaProdutos = CreateObject("adodb.recordset")

Set listaProdutos.ActiveConnection = conn

sql = "SELECT * FROM categorias Where id Order by nome"

listaProdutos.CursorType = 3 'Tipo do cursor do RecordSet 
listaProdutos.PageSize = 6 'Qtde de registros a serem exibidos por página 
listaProdutos.Open sql 
TotalPages = listaProdutos.PageCount
%>

<%
If listaProdutos.Eof Then 

Response.Write "<br><br><br><br><br><br><br>"
Response.Write "<center><font color=red><font size=4>Nenhum Produto Cadastrado.</font></font></center>"
Response.Write "<br><br><br><br><br><br><br><br><br>"

Else
%>

<div class="listarGaleria">
      <div class="listar">
        <ul>
 
<%
Dim contador, maxcol, listar_id 
contador = 0 
maxcol = 3
listaProdutos.AbsolutePage = pag 
While Not listaProdutos.EOF And i < listaProdutos.PageSize i = i + 1
listar_id = listaProdutos("id")
%>

<%  
	If contador <= maxcol Then 
%>

	<li>
<div class="moldura">
<div align="center">
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>
  
<%
If listaProdutos("foto") <> "" Then
%>

  <div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<% 
Else 
%>

  <div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>
  
<% 
End If 
%>

</a>  
</div>
</div> 
   
<% 
contador = contador + 1 
Else 
%>
 
</li>
 
	<li>
<div class="moldura">
<div align="center">  
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>
  
<%
If listaProdutos("foto") <> "" Then
%>

  <div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<% 
Else 
%>

  <div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>
  
<% 
End If 
%>

</a>  
  </div>
</div>   

<% 
	  contador = 1 
	End If 
  listaProdutos.MoveNext 
Wend
 
Do While contador <= maxcol 
%>

<%  
contador = contador + 1 
Loop 
%> 

</li>

        </ul>        
      </div>
    </div>

<br>

<table width="990" border="0" align="center" cellpadding="1" cellspacing="1">
	<tr> 
		<td>
<div align="center">        
<span class="txtPaginacao"> Página <b><%=pag%></b> de <b><%=TotalPages %></b> </span>

<br /> 

<%
Dim max_n_mostrados, intervalo, inicio, final, i 
max_n_mostrados = 500

intervalo = Int(max_n_mostrados /2)
inicio = pag - intervalo
final = pag + intervalo

If CInt(inicio) <1 Then 
 inicio = 1 ' 
 final = 50 ' Número máximo de páginas que será exibidas, exemplo: (1 - 2 - 3 - 4 ... 50)
End If

If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
	 If CInt(i)=CInt(pag) Then
		 Response.Write "<span class=txtPaginacao> [" & i & "] </span>"
	 End If
	 
	 If CInt(i) < CInt(pag) Then
	 
	  Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "
	  
	 End If
	 
	 If CInt(i) > CInt(pag) Then
	 
		 Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "
		 
  End If
  
Next
%>

</div>

</td>
  </tr>
</table>

<%
listaProdutos.Close 
Set listaProdutos = Nothing 
End If
%>

Esse código é exatamente o que precisa, ele irá criar Nova Página a cada 6 Registro exibidos

A Paginação ficará assim:

------------------------------------------------------------

Página 1 de 15

[1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15

------------------------------------------------------------

Mas se Pesquisar no Fórum, vai encontrar muitos outros bons exemplos também.

Espero que ajude.

xanburzum · Março 22, 2014

e altere para sua necessidade do jeito que quiser

Wilson Kerci · Março 27, 2014

esse e é o meu codigo que peguei pronto alguem pode me ajudar a fazer a paginação e exibir em colunas

<%
Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cat_nome=Request.querystring("cat_nome")
nome=Request.querystring("nome")
%>
<table border=0 width=100%><tr width=100%><td width=100% valign=top><h2><%=cat_nome%></h2></td></tr>
<%
Select Case lista
Case "categoria"
	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")
	msgnada = "No momento não dispomos de nenhum produto neste departamento."
Case "busca"
	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preco LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
	msgnada = "Infelizmente não localizamos nenhum produto com esse nome."
Case Else
	%>
	<script>window.location="./index.asp"</script>
	<%
End Select
If lista_produtos.EOF Then 
	Response.Write "<tr><td><h4>" & msgnada & "</h4></td></tr>"
Else 
%>
	<tr width=20><td width=20><table border=1 width=183>
	<tr><th>Nome</th>
	<th>Preço</th>
	<th>Detalhes</th>
	
	
	
	<%
	Dim prod_cat_id,prod_id,prod_nome,prod_descricaop,prod_preco,malha1
	malha1 = "sim"
	while not lista_produtos.EOF
		prod_cat_id = lista_produtos("cat_id")
		prod_id = lista_produtos("id")
		prod_nome = lista_produtos("nome")
		prod_preco = lista_produtos("preco")
		%>                  
		<tr width=100% valign=top class=<%=malha1%>><td><%=prod_nome%></td><td>R$<%=prod_preco%></td>
			<td valign=top align=center>
			<a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>">Click aqui !!</a>
			</td>
		</tr>
			<%
		lista_produtos.movenext
		If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	wend
End If
lista_produtos.Close
set lista_produtos = Nothing
%>

xanburzum · Março 27, 2014

apenas implemente o código do post #10, está prontinho já, apenas insira a parte da paginação, ele já está com o CSS inclusive.

Wilson Kerci · Março 28, 2014

ok duas pergunta ate aora ta dando certo do post #10 primeira como faço para fica em colunas de 3 segundo como salvo esse ((css)) obrigado

xanburzum · Março 28, 2014

coloque em DIV ou tabela de acordo com o que quer exibir (colunas) o CSS insira logo após a tag head exatamente este code:

<style type="text/css" media="screen"> 
<!--
.listarGaleria {
  width: 990px;
  position: relative;
}
 
.listarGaleria .listar {
  width: 985px; /* .listarGaleria width - (.listar margin-left + .listar margin-right) */
  overflow: auto;
  height: 500px; /* Ajusta a Altura da Tabela da Galeria */
  margin: 0 35px; /* Ajusta a Distancia da Foto entre a Seta da Esquerda */
  position: relative;
  top: 0;
}
 
.listarGaleria ul a img {
  border: 5px solid #ccc;
  -moz-border-radius: 5px;
  -webkit-border-radius: 5px;
}
 
.listarGaleria .listar ul {
  width: 985px; /* single item n */
  list-style-image:none;
  list-style-position:outside;
  list-style-type:none;
  margin:10;
  padding:0;
  position: absolute;
  top: 0;
}
 
.listarGaleria ul li {
  display:block;
  float:left;
  padding: 5px; /* Ajusta o Espaçamento da Foto */
  height: 220px; /* Ajusta a Medida da Foto */
  width: 310px; /* Ajusta a Medida da Foto */
}
 
.listarGaleria ul li img {
    -webkit-transition: border-color 400ms;
}
 
.listarGaleria ul:hover li img {
  border-color: #ccc;
}
 
.listarGaleria ul:hover li:hover img {
  border-color: #666;
}
 
.listarGaleria ul li a img {
  display:block;
}

.moldura { 
   padding:5px; 
   background-color: #F4EDDD; 
   width: 270px; 
   border: 1px solid #999999;
  -moz-border-radius: 5px;
  -webkit-border-radius: 5px; 
} 

-->
</style>

Wilson Kerci · Março 28, 2014

Cara ja entendi fico lindo aqui , mas agora vem outra parte ja vem com linque para uma pagina listar.asp legal mas agora queria fazer com que essa pagina abri-se em uma caixa flutuante entende , como faço essa listar.asp para parecer o conteúdo do link escolido obrigado

xanburzum · Março 28, 2014

dae usa jquery, pode até colocar um jquery modal , tipo box, dae fico show

Wilson Kerci · Abril 3, 2014

obrigado

obrigado mesmo pela ajuda .....

tipo esse script do post#10 ta uma beleza ,,,,

porem to limitado a 3 colunas e 2 linhas a onde eu posso mudar para como eu quiser tipo 6 colunas 6 linhas ....

obrigado

Olá Wilson, blza.

Segue um código prontinho...

CSS

<style type="text/css" media="screen"> 
<!--
.listarGaleria {
  width: 990px;
  position: relative;
}
 
.listarGaleria .listar {
  width: 985px; /* .listarGaleria width - (.listar margin-left + .listar margin-right) */
  overflow: auto;
  height: 500px; /* Ajusta a Altura da Tabela da Galeria */
  margin: 0 35px; /* Ajusta a Distancia da Foto entre a Seta da Esquerda */
  position: relative;
  top: 0;
}
 
.listarGaleria ul a img {
  border: 5px solid #ccc;
  -moz-border-radius: 5px;
  -webkit-border-radius: 5px;
}
 
.listarGaleria .listar ul {
  width: 985px; /* single item n */
  list-style-image:none;
  list-style-position:outside;
  list-style-type:none;
  margin:10;
  padding:0;
  position: absolute;
  top: 0;
}
 
.listarGaleria ul li {
  display:block;
  float:left;
  padding: 5px; /* Ajusta o Espaçamento da Foto */
  height: 220px; /* Ajusta a Medida da Foto */
  width: 310px; /* Ajusta a Medida da Foto */
}
 
.listarGaleria ul li img {
    -webkit-transition: border-color 400ms;
}
 
.listarGaleria ul:hover li img {
  border-color: #ccc;
}
 
.listarGaleria ul:hover li:hover img {
  border-color: #666;
}
 
.listarGaleria ul li a img {
  display:block;
}

.moldura { 
   padding:5px; 
   background-color: #F4EDDD; 
   width: 270px; 
   border: 1px solid #999999;
  -moz-border-radius: 5px;
  -webkit-border-radius: 5px; 
} 

-->
</style>

Tabela que lista a 6 Registro, cria nova página.

<table width="1003" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3" class="cor3">


<!-- ***************** INÍCIO da Categorias ********************** -->
      
<%
Dim pagina, pag, conn, listaProdutos, sql, TotalPages
 
pagina = Request.ServerVariables("Script_Name")
pag = Request.QueryString("pag") 

If pag = "" Then 
pag = 1 ' Determina qual página da paginação será aberta (deixar em 1)  
End if 

Set conn = CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../db/banco.mdb")


Set listaProdutos = CreateObject("adodb.recordset")

Set listaProdutos.ActiveConnection = conn

sql = "SELECT * FROM categorias Where id Order by nome"

listaProdutos.CursorType = 3 'Tipo do cursor do RecordSet 
listaProdutos.PageSize = 6 'Qtde de registros a serem exibidos por página 
listaProdutos.Open sql 
TotalPages = listaProdutos.PageCount
%>

<%
If listaProdutos.Eof Then 

Response.Write "<br><br><br><br><br><br><br>"
Response.Write "<center><font color=red><font size=4>Nenhum Produto Cadastrado.</font></font></center>"
Response.Write "<br><br><br><br><br><br><br><br><br>"

Else
%>

<div class="listarGaleria">
      <div class="listar">
        <ul>
 
<%
Dim contador, maxcol, listar_id 
contador = 0 
maxcol = 3
listaProdutos.AbsolutePage = pag 
While Not listaProdutos.EOF And i < listaProdutos.PageSize i = i + 1
listar_id = listaProdutos("id")
%>

<%  
	If contador <= maxcol Then 
%>

	<li>
<div class="moldura">
<div align="center">
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>
  
<%
If listaProdutos("foto") <> "" Then
%>

  <div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<% 
Else 
%>

  <div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>
  
<% 
End If 
%>

</a>  
</div>
</div> 
   
<% 
contador = contador + 1 
Else 
%>
 
</li>
 
	<li>
<div class="moldura">
<div align="center">  
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>
  
<%
If listaProdutos("foto") <> "" Then
%>

  <div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<% 
Else 
%>

  <div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>
  
<% 
End If 
%>

</a>  
  </div>
</div>   

<% 
	  contador = 1 
	End If 
  listaProdutos.MoveNext 
Wend
 
Do While contador <= maxcol 
%>

<%  
contador = contador + 1 
Loop 
%> 

</li>

        </ul>        
      </div>
    </div>

<br>

<table width="990" border="0" align="center" cellpadding="1" cellspacing="1">
	<tr> 
		<td>
<div align="center">        
<span class="txtPaginacao"> Página <b><%=pag%></b> de <b><%=TotalPages %></b> </span>

<br /> 

<%
Dim max_n_mostrados, intervalo, inicio, final, i 
max_n_mostrados = 500

intervalo = Int(max_n_mostrados /2)
inicio = pag - intervalo
final = pag + intervalo

If CInt(inicio) <1 Then 
 inicio = 1 ' 
 final = 50 ' Número máximo de páginas que será exibidas, exemplo: (1 - 2 - 3 - 4 ... 50)
End If

If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
	 If CInt(i)=CInt(pag) Then
		 Response.Write "<span class=txtPaginacao> [" & i & "] </span>"
	 End If
	 
	 If CInt(i) < CInt(pag) Then
	 
	  Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "
	  
	 End If
	 
	 If CInt(i) > CInt(pag) Then
	 
		 Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "
		 
  End If
  
Next
%>

</div>

</td>
  </tr>
</table>

<%
listaProdutos.Close 
Set listaProdutos = Nothing 
End If
%>

Esse código é exatamente o que precisa, ele irá criar Nova Página a cada 6 Registro exibidos

A Paginação ficará assim:

------------------------------------------------------------

Página 1 de 15

[1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15

------------------------------------------------------------

Mas se Pesquisar no Fórum, vai encontrar muitos outros bons exemplos também.

Espero que ajude.

xanburzum · Abril 3, 2014

mude a variavel maxcol para 6

Wilson Kerci · Abril 3, 2014

mude a variavel maxcol para 6

obrigado

mas na cagada achei é na Recordset1.PageSize = 12

bom mas tem outro quero com mais calunas achei posca 3 como faço ?

Arquivado

listagem por coluna e paginação

Recommended Posts

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gustavo Emygdio Barboza 24

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gustavo Emygdio Barboza 24

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

wilnet 92

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Wilson Kerci 0