(Resolvido) Ativar e desativar letra inicial

Loko da Web · Janeiro 26, 2009

Boa noite !

Desenvolvi um script pra busca por letra inicial, dessa maneira:

A B C D E F G H I J K L M N O P Q R S T U V X Z #

O sistema funciona 100%, agora eu preciso de ajuda para quando não houver um nome que comece, por exemplo com a letra A, a letra fique inativa, e quando houver um nome que comece com letra B, o link fica ativo. Um exemplo dessa aplicação pode ser conferida neste site:

http://www.locahouse.com.br/v2/categoria.asp?ID=1

O usuario clica no link mais alugados, apresenta a pagina correspondente, e na busca por letra algumas estao inativas, devido não ter registros que comecem com a letra.

Tentei usar uma logica, usando IF e ELSE, o porem é que funciona apenas após o ELSE...

<%
if rs("nome") = "" then       
Response.Write("<div class='pag-link2'>")       
Response.Write("X")       
Response.Write("</div>  ") 
else       
Response.Write("<div class='pag-link2'>")       
Response.Write("<a href='buscar_letra_resultado_status.asp?letra=X&idstatus=" & idstatus & "'>")       
Response.Write("X")       
Response.Write("</a></div>  ") 
end if
%>

ou

if isnull(rs("nome")) then
Response.Write("<div class='pag-link2'>")       
Response.Write("X")       
Response.Write("</div>  ") 
else       
Response.Write("<div class='pag-link2'>")       
Response.Write("<a href='buscar_letra_resultado_status.asp?letra=X&idstatus=" & idstatus & "'>")       
Response.Write("X")       
Response.Write("</a></div>  ") 
end if

Dai eu colocaria um if pra cada letra do alfabeto,...

No IF apresenta o link inativo, no ELSE apresenta o link ativo,...mas só funciona o links ativos, mesmo quando não há registros correspondente a letra, inverti as ordem e deu a mesma coisa. Ou seja, o link ativo no if e link inativo no ELSE, o link ficava inativo mesmo que havia registro correspondente a letra.

E ai galera como pode ser feita ??? Existe um solução ????

Agradeço a ajuda de todos !!!!

Rafael Spilki · Janeiro 27, 2009

Eu faria outra lógica... por exemplo:

Faça uma consulta geral ao bd identificando nessa coluna especificaas letras iniciais de todas as palavras, depois cria uma única função para as letras inexistentes fdazendo com que simplesmente o link não seja montado...

Formataria em css as cores dos links e as cores dos textos normais... e pronto!

o que acha?

Loko da Web · Janeiro 27, 2009

Eu faria outra lógica... por exemplo:
Faça uma consulta geral ao bd identificando nessa coluna especificaas letras iniciais de todas as palavras, depois cria uma única função para as letras inexistentes fdazendo com que simplesmente o link não seja montado...
Formataria em css as cores dos links e as cores dos textos normais... e pronto!
o que acha?

Teria um exemplo pra aplicar ????? Achei interessante, se mostrar o caminho do paraiso, agradeço !!!!!!! :rolleyes:

Rafael Spilki · Janeiro 27, 2009

poste aqui o codigo em que você faz a busca de acordo com a letra inicial que eu esboço alguma coisa pra você!

A parte em que você recebe a letra escolhida, e busca no banco as palavras onde ocorrem essa letra inicial...

[]'s

Loko da Web · Janeiro 27, 2009

poste aqui o codigo em que você faz a busca de acordo com a letra inicial que eu esboço alguma coisa pra você!
A parte em que você recebe a letra escolhida, e busca no banco as palavras onde ocorrem essa letra inicial...
[]'s

Ok... é o seguinte, essa busca estou utilizando num sistema de videolocadora. Tenho um pagina que lista todos os filmes de um determinado genero, chamado todos_filmes.asp, nessa pagina coloquei esse cod (pra fazer a busca):

<table align="center" border="0" cellpadding="0" cellspacing="0" width="575">
<tr>
<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=A&idcat=<%=RS("idcat")%>">A</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=B&idcat=<%=RS("idcat")%>">B</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=C&idcat=<%=RS("idcat")%>">C</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=D&idcat=<%=RS("idcat")%>">D</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=E&idcat=<%=RS("idcat")%>">E</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=F&idcat=<%=RS("idcat")%>">F</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=G&idcat=<%=RS("idcat")%>">G</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=H&idcat=<%=RS("idcat")%>">H</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=I&idcat=<%=RS("idcat")%>">I</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=J&idcat=<%=RS("idcat")%>">J</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=K&idcat=<%=RS("idcat")%>">K</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=L&idcat=<%=RS("idcat")%>">L</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=M&idcat=<%=RS("idcat")%>">M</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=N&idcat=<%=RS("idcat")%>">N</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=O&idcat=<%=RS("idcat")%>">O</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=P&idcat=<%=RS("idcat")%>">P</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=Q&idcat=<%=RS("idcat")%>">Q</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=R&idcat=<%=RS("idcat")%>">R</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=S&idcat=<%=RS("idcat")%>">S</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=T&idcat=<%=RS("idcat")%>">T</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=U&idcat=<%=RS("idcat")%>">U</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=V&idcat=<%=RS("idcat")%>">V</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=X&idcat=<%=RS("idcat")%>">X</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=Z&idcat=<%=RS("idcat")%>">Z</td>

<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=0&idcat=<%=RS("idcat")%>">#</td>
</tr>
</table>

Esses link abrem um outra pagina chamado buscar_letra_resultado.asp, a select esta dessa maneira:

<%
idcat=request.querystring("idcat")
nome_cat=request.querystring("nome_cat")
cat=request.querystring("cat")
idfoto=request.querystring("idfoto")
PagAtual = Request.QueryString("PagAtual")

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db/filmes.mdb")
Conn.Open DSNtest

Dim letra
letra = Request.QueryString("letra")

If isNumeric(letra) Then
     letra = "[0-9]"
End If

Set RS= Server.CreateObject("ADODB.Recordset")
sql = "SELECT fotos.nome, fotos.nome_original, fotos.idcat, fotos.id, fotos.thumb, fotos.ano, fotos.detalhe, categorias.nome_cat FROM fotos INNER JOIN categorias ON fotos.idcat = Categorias.id Where fotos.nome LIKE '"& letra&"%' AND 

fotos.idcat=" & idcat & " ORDER BY fotos.nome ASC"
RS.Open SQL, conn, 3

If RS.EOF Then
Response.Redirect ("default.asp")
end if

Const NumPorPage = 9

   Dim PagAtual

   IF Request.QueryString("PagAtual") = "" Then
               PagAtual = 1
         Else
                PagAtual = Request.QueryString("PagAtual")
   End If

   RS.CacheSize = NumPorPage

  
    RS.MoveFirst                
    RS.PageSize = NumPorPage    

    Dim TotalPages              
    TotalPages = RS.PageCount

    RS.AbsolutePage = PagAtual  

%>

bareta · Janeiro 27, 2009

so uma dicazinha... vai te da umas idéias...

usei um sistema desse em uma newsletter q fiz, mais o processo e diferente..,.

for i=1 to 255
response.write "char(i)="&chr(i)&"<br>"
next

Loko da Web · Janeiro 27, 2009

so uma dicazinha... vai te da umas idéias...
usei um sistema desse em uma newsletter q fiz, mais o processo e diferente..,.
for i=1 to 255
response.write "char(i)="&chr(i)&"<br>"
next

Desculpe a minha ignorancia, mas não entendi lhufas nenhuma,... se me explicar, fica mais facil !!!!!

Rafael Spilki · Janeiro 27, 2009

A idéia do Bareta realmente é muito boa... a minha ideia seria essa aqui:

todos_filmes.asp

Set RS1= Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT distinct nome from fotos order by nome asc"
RS1.Open SQL1, conn, 3


<table align="center" border="0" cellpadding="0" cellspacing="0" width="575">
<tr>
<%
While Not Rs.EOF 
%>
<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS("nome")),1)%></td>
<%
RS.MoveNext
Wend
%>

</tr>
</table>

<%
RS1.close

Set RS1 = Nothing

%>

testa aí e depois nos conta o que achou!

Loko da Web · Janeiro 27, 2009

A idéia do Bareta realmente é muito boa... a minha ideia seria essa aqui:

todos_filmes.asp

Set RS1= Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT distinct nome from fotos order by nome asc"
RS1.Open SQL1, conn, 3


<table align="center" border="0" cellpadding="0" cellspacing="0" width="575">
<tr>
<%
While Not Rs.EOF 
%>
<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS("nome")),1)%></td>
<%
RS.MoveNext
Wend
%>

</tr>
</table>

<%
RS1.close

Set RS1 = Nothing

%>

testa aí e depois nos conta o que achou!

Caraca.... tu é o cara, to sem palavras !!!!! kkkkk Rafael deu tudo certo, adorei essa lógica, ele vai mostrar apenas a letras que correspondem o mesmo... Fantastico, eu quebrando a minha cuca um tempao e você me detona em poucas horas.

Muito obrigado !!!!! :lol:

Rafael Spilki · Janeiro 27, 2009

;) que isso...

Se você quiser tem jeito das outras letras aparecerem... mais fracas ou menores... mas dai sim teria que criar uma condicional e tal... eu particularmente gosto dessa logica porque o codigo fica super enxuto e robusto, incluindo tags <td> apenas onde necessário mesmo...

qualquer. coisa estamos ae!

Loko da Web · Janeiro 27, 2009

Desculpe reabrir o tópico :blush: .... Mas, fiz uns testes em relação a registros que começam com numeros, e constatei o seguinte:

- Quando tem registros que começam com 0, 1, 2,.... Como 007 - Cassino Royale, 8 Miles,... Ira ser criado um link com o numero correspondente, ou seja, 0, 8,...

- Não sei se é possivel, mas gostaria que quando houver registro que comecem com numeros, fosse criado apenas um link "representando" os numeros, como # ou 0-9. Dessa forma não fica extenso.

Se puderem me ajudar nesse detalhe, agradeço de verdade !!!! :D

Rafael Spilki · Janeiro 27, 2009

Claro que tem... ficaria assim:

<%
While Not Rs.EOF
rsnome = RS1("nome")
if  rsnome = "0" then
rsnome = "#"
else if rsnome = "1" then
rsnome = "#"
elseif rsnome = "2" then
rsnome = "#"
'cont...
end if
%>
<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(rsnome),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(rsnome),1)%></td>
<%
RS.MoveNext
Wend
%>

Loko da Web · Janeiro 28, 2009

Claro que tem... ficaria assim:

<%
While Not Rs.EOF
rsnome = RS1("nome")
if  rsnome = "0" then
rsnome = "#"
else if rsnome = "1" then
rsnome = "#"
elseif rsnome = "2" then
rsnome = "#"
'cont...
end if
%>
<td align="center"><div class="pag-link2"><a href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(rsnome),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(rsnome),1)%></td>
<%
RS.MoveNext
Wend
%>

Rafael não deu certo... uma coisa que estava vendo, quando tem filme como 007 - cassino royale e 8 mile, ira ser criado um link pro 0 e 8, mas quando clico no 0 ira mostrar os dois filmes (007 e 8 mile), então por isso preciso que quando for criado link 0 e 8, apareça apenas um numero como # ou 0-9. Meu loop esta dessa maneira:

<%
While Not Rs1.EOF 
rsnome = RS1("nome")
if  rsnome = "0" then
rsnome = "#"
elseif rsnome = "1" then
rsnome = "#"
elseif rsnome = "2" then
rsnome = "#"
elseif rsnome = "3" then
rsnome = "#"
elseif rsnome = "4" then
rsnome = "#"
elseif rsnome = "5" then
rsnome = "#"
elseif rsnome = "6" then
rsnome = "#"
elseif rsnome = "7" then
rsnome = "#"
elseif rsnome = "8" then
rsnome = "#"
elseif rsnome = "9" then
rsnome = "#"
end if
%>
<td align="center"><div class="pag-link2"><a 

href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%>

</td><td> </td>
<%
RS1.MoveNext
Wend
%>

Rafael Spilki · Janeiro 28, 2009

ooopps, esqueci um detalhe importante...foi mau! tente assim:

<%
While Not Rs1.EOF
rsnome = LEFT(trim(RS1("nome")),1)
if  rsnome = "0" then
rsnome = "#"
elseif rsnome = "1" then
rsnome = "#"
elseif rsnome = "2" then
rsnome = "#"
elseif rsnome = "3" then
rsnome = "#"
elseif rsnome = "4" then
rsnome = "#"
elseif rsnome = "5" then
rsnome = "#"
elseif rsnome = "6" then
rsnome = "#"
elseif rsnome = "7" then
rsnome = "#"
elseif rsnome = "8" then
rsnome = "#"
elseif rsnome = "9" then
rsnome = "#"
end if
%>
<td align="center"><div class="pag-link2"><a

href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%>

</td><td> </td>
<%
RS1.MoveNext
Wend
%>

Loko da Web · Janeiro 28, 2009

Vixi Rafael ainda não esta dando certo !!!!! Continua aparecendo todos os numeros !!!!

Pra você ter noção de como esta, segue o link...

http://www.aspet.somee.com/sistema%5Flocad...19&cat=Ação

Editado Janeiro 28, 2009 por Loko da Web

Rafael Spilki · Janeiro 28, 2009

Uhm... entendi... acho que nesse caso você terá que colocar tudo na mesma condicional, como ex.:

<%

While Not Rs1.EOF
rsnome = LEFT(trim(RS1("nome")),1)
if  rsnome = "0" OR  rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" rsnome = "6" rsnome = "7" OR  rsnome = "8"  OR rsnome = "9" then
rsnome = "#"
else
end if
%>
<td align="center"><div class="pag-link2"><a

href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%>

</td><td> </td>
<%
RS1.MoveNext
Wend
%>

Testa aí depois me diga o que ocorreu.

[]'s Rafael Spilki

Loko da Web · Janeiro 28, 2009

Apresentou esse erro:

Microsoft VBScript compilation error '800a03f9' 

Expected 'Then' 

/sistema_locadora/sistema_locadora/todos_filmes.asp, line 202 

if  rsnome = "0" OR  rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" rsnome = "6" rsnome = "7" OR  rsnome = "8"  OR rsnome = "9" then
--------------------------------------------------------------------------------------------------^

Rafael Spilki · Janeiro 28, 2009

e agora:

<%

While Not Rs1.EOF
rsnome = LEFT(trim(RS1("nome")),1)
if  rsnome = "0" OR  rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" OR rsnome = "6" OR rsnome = "7" OR  rsnome = "8"  OR rsnome = "9" then
rsnome = "#"
else
end if
%>
<td align="center"><div class="pag-link2"><a

href="buscar_letra_resultado.asp?letra=<%=LEFT(trim(RS1("nome")),1)%>&idcat=<%=RS1("idcat")%>"><%=LEFT(trim(RS1("nome")),1)%>

</td><td> </td>
<%
RS1.MoveNext
Wend
%>

Loko da Web · Janeiro 28, 2009

Agora não apresentou nenhum erro... mas continua na condição anterior:

0 1 B M N R

Rafael Spilki · Janeiro 29, 2009

Acontece... pressa agente só faz besteira... não tinha visto aqui um detalhe, tente agora:

<%

While Not Rs1.EOF
rsnome = LEFT(trim(RS1("nome")),1)
if  rsnome = "0" OR  rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" OR rsnome = "6" OR rsnome = "7" OR  rsnome = "8"  OR rsnome = "9" then
rsnome = "#"
else
end if
%>
<td align="center"><div class="pag-link2"><a

href="buscar_letra_resultado.asp?letra=<%response.write rsnome%>&idcat=<%=RS1("idcat")%>"><%response.write rsnome%>

</td><td> </td>
<%
RS1.MoveNext
Wend
%>

Outra coisa nada a ver com o assunto: porque você botou essas duas <todos> aqui:

href="buscar_letra_resultado.asp?letra=<%response.write rsnome%>&idcat=<%=RS1("idcat")%>"><%response.write rsnome%>

</td><td> </td>
<%
RS1.MoveNext
Wend
%>

pode tirar aquilo ali, deixei assim:

<%

While Not Rs1.EOF
rsnome = LEFT(trim(RS1("nome")),1)
if  rsnome = "0" OR  rsnome = "1" OR rsnome = "2" OR rsnome = "3" OR rsnome = "4" OR rsnome = "5" OR rsnome = "6" OR rsnome = "7" OR  rsnome = "8"  OR rsnome = "9" then
rsnome = "#"
else
end if
%>
<td align="center"><div class="pag-link2"><a

href="buscar_letra_resultado.asp?letra=<%response.write rsnome%>&idcat=<%=RS1("idcat")%>"><%response.write rsnome%>

</td>
<%
RS1.MoveNext
Wend
%>

;)

[]'s

Loko da Web · Janeiro 29, 2009

Ok... Rafael agora sim foi subsituido, mas dai esta dessa forma:

## B M N R

Tem dois #, em vez de um... tem como ter apenas um # ???

Rafael Spilki · Janeiro 29, 2009

rsss... é verdade... não tinha me dado conta disso... vou bolar alguma coisa e posto na sequencia alguma solução...

Loko da Web · Janeiro 29, 2009

rsss... é verdade... não tinha me dado conta disso... vou bolar alguma coisa e posto na sequencia alguma solução...

Ok !!!! Espero não dar muito trabalho pra você !!!!!! :D

Loko da Web · Janeiro 29, 2009

Rafael, não precisa mais, consegui fazer de outra maneira (sei a ideia que estou usando agora é diferente do prinicipio)... A select é a mesma coisa, eu consegui fazer dessa forma:

variaveis:

letra = Request.QueryString("Letra")
letras = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0"

Loop:

<%

Count = 0  

i = 0 

For i = 1 to 27

  Response.write("<td align='center'>")
  Response.write("<div align='center' class='pag-link2'>")
  Response.write("<a href=teste.asp?letra="&(Mid(letras, i,1))&"&idcat=" & idcat & ">")
  Response.write(""&(Mid(letras, i,1))&"") 
  Response.write("</a>")
  Response.write("</div>")
  Response.write("</td>")
  Response.write("<td>")
  Response.write("&nbsp;")
  Response.write("</td>")
Next    
%>

Dai ficaria assim:

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0

A unica coisa chata foi o zero... tentei fazer do jeito que você fez nos posts acima, mas se troco 0 por #, o parametro que ira ser passado sera # e não um numero. não sei se teria como fazer um replace, fazendo com que o # fosse um numero ????

Rafael, muito obrigado por tudo !!!! Se souber de uma ideia de como fazer esse esquema !!!!

Editado Janeiro 29, 2009 por Loko da Web

Rafael Spilki · Janeiro 30, 2009

Beleza... tava pensando um jeito de resolver aquele entrave e não tava descobrindo! que bom que você resolveu!

Quanto ao replace, acredito que ficasse dessa forma:

replace(Mid(letras, i,1))0,#)

[]'s Rafael Spilki

Loko da Web · Janeiro 30, 2009

Beleza... tava pensando um jeito de resolver aquele entrave e não tava descobrindo! que bom que você resolveu!
Quanto ao replace, acredito que ficasse dessa forma:
replace(Mid(letras, i,1))0,#)
[]'s Rafael Spilki

Cara, não esquenta, a propósito deu tudo certo... mais uma vez obrigado pela atenção e paciencia. você é dez !!!! :D Só corrigindo pra caso alguém queira... deve acrescentar aspas duplas.

"&Replace(Mid(letras, i,1),"#","0")&"

E colocar a variavel dessa forma:

letras = "ABCDEFGHIJKLMNOPQRSTUVWXYZ#"

Entrar

(Resolvido) Ativar e desativar letra inicial

Pergunta

Link para o comentário

Compartilhar em outros sites

26 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns