Combo

shumi · Março 7, 2006

Esqueci do arquivo que gera o select

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.openIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd Ifcod = request("id")%><html><head><title>Sistema NewStyle</title> <style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;		}		.texto11 {	font-family: Arial, Helvetica, sans-serif;	font-size: 13px;	color: #464646;	}-->  </style>   <script language="JavaScript" type="text/JavaScript">	function carregar(){	Combo1 = document.Cadastro.estabelecimento; //ALTERE AQUI PARA SEU FORM E 1º SELECT	Combo2 = document.Cadastro.promotora; //ALTERE AQUI PARA SEU FORM E 2º SELECT	var url;	url = 'remote.asp?estabelecimento='+Combo1[Combo1.selectedIndex].value;	Combo2.options.length = 0;	addItem(Combo2,"Aguarde...carregando","",false,Combo2.length)	myIframe.location = url;	Combo2.focus()	}		function inicia(){	local1 = new Array();	var maximo1, i;	local1 = myIframe.loc;	maximo1 = local1.length;	Combo2.options.length = 0;	//addItem(Combo2,false,Combo2.length);	for (i=0;i<maximo1;i++){	addItem(Combo2,local1[i][1],local1[i][0],false,Combo2.length);	}	}		function addItem(obj,strText,strValue,blSel,intPos){	 	 var newOpt,i,ArTemp,selIndex;	 	 selIndex = (blSel)?intPos:obj.selectedIndex;	 	 newOpt = new Option(strText,strValue);	 	 Len = obj.options.length+1	 	 if (intPos > Len) return	 	 obj.options.length = Len	 	 if (intPos != Len) {	 		  ArTemp = new Array();	 		  for(i=intPos;i<obj.options.length-1;i++)	 			   ArTemp[i] = Array(obj.options[i].text,obj.options[i].value);	 		  for(i=intPos+1;i<Len;i++)	 			   obj.options[i] = new Option(ArTemp[i-1][0],ArTemp[i-1][1]);	 	 }	 	 obj.options[intPos] = newOpt;	 	 if (selIndex > intPos)	 		  obj.selectedIndex = selIndex+1;	 	 else if (selIndex == intPos)	  		  obj.selectedIndex = intPos;	 }	 </script><script LANGUAGE="JavaScript">function formatCurrency(num) {num = num.toString().replace(/\$|\,/g,'');if(isNaN(num))num = "0";sign = (num == (num = Math.abs(num)));num = Math.floor(num*100+0.50000000001);cents = num%100;num = Math.floor(num/100).toString();if(cents<10)cents = "0" + cents;for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)num = num.substring(0,num.length-(4*i+3))+'.'+num.substring(num.length-(4*i+3));return (((sign)?'':'-') + num);}function valor(inicial,entrada,final,vendas){var inicial = inicial.value;var entrada = entrada.value;var final = final.value;if (isNaN(inicial) || isNaN(entrada) || isNaN(final)) {alert("Preencha os campos corretamente!");} else {var venda = Number(inicial) + Number(entrada) - Number(final);vendas.value = formatCurrency(venda); //AQUI FORMATO O CAMPO}}function SaltaCampo(campo,prox,tammax,teclapres){var tecla = teclapres.keyCode ? teclapres.keyCode : teclapres.which ? teclapres.which : teclapres.charCode;vr = document.Meuform[campo].value;if( tecla == 109 || tecla == 188 || tecla == 110 || tecla == 111 || tecla == 223 || tecla == 108 ){document.Meuform[campo].value = vr.substr( 0, vr.length - 1 ); }else{  vr = vr.replace( "-", "" );  vr = vr.replace( "/", "" );  vr = vr.replace( "/", "" );  vr = vr.replace( ",", "" );  vr = vr.replace( ".", "" );  vr = vr.replace( ".", "" );  vr = vr.replace( ".", "" );  vr = vr.replace( ".", "" );  tam = vr.length;  if (tecla != 0 && tecla != 9 && tecla != 16 ){  if ( tam == tammax ){   document.Meuformm[prox].select(); //se não quiser o foco, desabilite!   document.Meuform[prox].focus();  }}}}function SaltaCampo(campo,prox,tammax,teclapres){var tecla = teclapres.keyCode ? teclapres.keyCode : teclapres.which ? teclapres.which : teclapres.charCode;vr = document.Cadastro[campo].value;if( tecla == 109 || tecla == 188 || tecla == 110 || tecla == 111 || tecla == 223 || tecla == 108 ){document.Cadastro[campo].value = vr.substr( 0, vr.length - 1 ); }else{  vr = vr.replace( "-", "" );  vr = vr.replace( "/", "" );  vr = vr.replace( "/", "" );  vr = vr.replace( ",", "" );  vr = vr.replace( ".", "" );  vr = vr.replace( ".", "" );  vr = vr.replace( ".", "" );  vr = vr.replace( ".", "" );  tam = vr.length;  if (tecla != 0 && tecla != 9 && tecla != 16 ){  if ( tam == tammax ){   document.Cadastro[prox].select(); //se não quiser o foco, desabilite!   document.Cadastro[prox].focus();  }}}}</script></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"><p>  <style type="text/css"><!-- CSS body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;	}--></style></p><p align="center"><%sql = "select * from dados where cod=" & codSet rs=Conexcao.Execute(sql)acao=RS("Acao")%><span class="texto11">Dados da Promoção <%=acao%></span></p><center><form name="Cadastro" id="Cadastro" method="post"><p>		   <input type="hidden" name="cod" value="<%=cod%>">		  <input type="hidden" name="acao" value="<%=acao%>"></p><center>	 <table width="673" border="0">	   <tr>		 <td width="663"><p>  </p>		   <table width="661" border="1" bordercolor="#00CCFF">			 <tr>			   <td width="89"><span class="texto10">Estabelecimento :</span></td>			   <%		MINHAVARR = rs("estabelecimento")		MEUARRAYR = SPLIT(MINHAVARR,",") %>			   <td width="206"><span class="texto10">				 <div style="DISPLAY: none; POSITION: absolute" align="left">				   <IFRAME src name="myIframe" id="myIframe" width="400" height="100" marginwidth="0" marginheight="0"></IFRAME>				 </div>				 <select name="estabelecimento" size="1" id="select" onChange="carregar();">				   <option value>...</option>				   <%		FOR I = LBOUND(MEUARRAYR) TO UBOUND(MEUARRAYR)			%>				   <%IF TRIM(MEUARRAYR(I)) <> "" THEN%>				   <option value="<%=(MEUARRAYR(I))%>"><%=(MEUARRAYR(I))%></option>				   <%END IF%>				   <%NEXT%>				 </select>			   </span></td>			   <td width="68"><span class="texto10">Promotora :</span></td>			   <td width="274"><span class="texto10">				 <select name="promotora" id="promotora">				   <option value></option>				 </select>			   </span></td>			 </tr>		   </table>		   <table width="661" border="1" bordercolor="#00CCFF">			 <tr>			   <td width="86"><span class="texto10">Data :</span></td>			   <td width="559">			   <input name="data" type="text" size="2" id="Dia" maxlength="2" onKeyup="SaltaCampo('Dia','Mes',2,event)">					/		 <input name="data" type="text" size="2" id="Mes" maxlength="2" onKeyup="SaltaCampo('Mes','Ano',2,event)">	  /	  <input name="data" type="text" size="4" maxlength="4" id="Ano"></td>			 </tr>		   </table>		  			<%		MINHAVARR = rs("nosso_produto")		MEUARRAY = SPLIT(MINHAVARR,",")		FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)		   					 IF TRIM(MEUARRAY(I)) <> "" THEN%>		   <table width="513" border="1" bordercolor="#00CCFF">				<tr>							   <td width="40" height="74"><span class="texto10">Produto:</span></td>			   <td width="457"><p class="texto10">				  				   <input name="produto" id="produto" type="text" value="<%=(MEUARRAY(I))%>" readonly="readonly">			   </p></td>			   <td>				 <table width="457" border="1" bordercolor="#00CCFF">				   <tr>					 <td><div align="center"><span class="texto10">Inicial</span></div></td>					 <td><div align="center"><span class="texto10">Entrada</span></div></td>					 <td><div align="center"><span class="texto10">Final</span></div></td>					 <td><div align="center"><span class="texto10">Vendas</span></div></td>				   </tr>				   <tr>					 <td>					   <div align="center">					   <input name="inicial" type="text" id="inicial<%=(MEUARRAY(I))%>" size="10" onKeyUp="valor(this,document.getElementById('entrada<%=(MEUARRAY(I))%>'),document.getElementById('final<%=(MEUARRAY(I))%>'),document.getElementById('vendas<%=(MEUARRAY(I))%>'));">					   </div></td>					 <td>					   <div align="center">						 <input name="entrada" type="text" id="entrada<%=(MEUARRAY(I))%>" size="10" onKeyUp="valor(document.getElementById('inicial<%=(MEUARRAY(I))%>'),this,document.getElementById('final<%=(MEUARRAY(I))%>'),document.getElementById('vendas<%=(MEUARRAY(I))%>'));">						 					 </div></td>					 <td>					   <div align="center">						 <input name="final" type="text" id="final<%=(MEUARRAY(I))%>" size="10" onKeyUp="valor(document.getElementById('inicial<%=(MEUARRAY(I))%>'),document.getElementById('entrada<%=(MEUARRAY(I))%>'),this,document.getElementById('vendas<%=(MEUARRAY(I))%>'));">							  </div></td>					 <td><div align="center"><span class="texto10">					<input type="text" name="vendas" id="vendas<%=(MEUARRAY(I))%>" readonly="readonly">					 </span></div></td>				   </tr>				 </table>				 <span class="texto10"> </span></td>			 </tr>		   </table>		  </td>	   </tr> <%END IF%>		 <%NEXT%>	 </table></center>	 <p><br>		<script language="javascript" type="text/javascript">function QualBotao(Id) {	if (Id=="1") {	document.getElementById("Cadastro").action = "acoes_f2.asp?cod="+document.getElementById('cod').value+"&estabelecimento="+estabelecimento+"&data="+data;	} else {	document.getElementById("Cadastro").action = "acoes_valida.asp";	}	document.getElementById("Cadastro").submit();}		</script>				<input type="button" id="2" value="Enviar" onClick="QualBotao(this.id);">  </p>  </form></center><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>	<br></p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

Valeu!!!!!!!

shumi · Março 7, 2006

Acredito que estou chegando perto da solução, veja coloquei o

While not rs.eof

e o

rs.MoveNext	 wend

entre o

estabelecimento = rs("estabelecimento")MEUARRAY = SPLIT(estabelecimento,",")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THENEND IFNEXTpromotora = rs("promotora")MEUARRAY = SPLIT(promotora,",")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THENEND IFNEXT

Não aparece mais nenhuma msg de erro na tela, mas quando exibo o cod de fonte fica assim:

<script>

loc = new Array(0)

for (i=0; i < 0; i++) {

loc = new Array(2)

for (j=0; j < 2; j++) {

loc[j] = "0"

}

}

parent.inicia();

</script>

Valeu!!!

Salgado · Março 7, 2006

Esses campos Estabelecimento e Promotora recebem mais de 1 dado é isso? Eles tem diversos dentro separados com ","?

shumi · Março 7, 2006

Isso!!!fica assim: estabelecimento1, estabelecimento2e promotora1, promotora2To quebrando a cabeça, mas não consigo de jeito nenhum!Valeu

Salgado · Março 7, 2006

E como relaciona as Promotoras com o Estabelecimento?

shumi · Março 8, 2006

Bom dia Salgado, Td bem?Tenho duas coluna em meu banco de dados uma é a estabelecimento e a outra é promotoras. ai é gravado assim:estabelecimento1, estabelecimento2, estabelecimento3e promotoras assim:promotora1, promotora2, promotora3Ai quando for puxar, ele tem que puxar assim:estabelecimento1 com a promotora1estabelecimento2 com a promotora2estabelecimento3 com a promotora3Valeu!

Salgado · Março 8, 2006

Agora acho que entendi. E com certeza vai sempre haver uma promotora para um estabelecimento. Mas acredito que essa não é a melhor solução, além de que é possível acontecer de o usuário escolher um estabelecimento e trocar a prromotora inadvertidamente, não?

shumi · Março 8, 2006

Não acontece de mudar a promotora, o user não vai poder fazer isso!E durante a ação ninguem vai mudar a promotora tb, pois a ação geralmente são 10 dias e contratamos a promotora somente por 10 dias então desde do inicio ate o fim é a mesma promotora e só tem uma promotora por estabelecimento!Tem como fazer assim?Valeu

Salgado · Março 8, 2006

Ok,

Sim é possível.

<%set Conexcao = Server.CreateObject("ADODB.Connection")
Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")
SQL = "SELECT estabelecimento, promotora from dados WHERE estabelecimento = '" & request.querystring("estabelecimento") & "' ORDER BY promotora"
set rs = server.CreateObject("ADODB.Recordset")

Conexcao.open

rs.CursorType = 3
rs.Open SQL, Conexcao
rs.MoveFirst

estabelecimento = rs("estabelecimento")
ArrEstab = SPLIT(estabelecimento,",")
FOR I = LBOUND(ArrEstab) TO UBOUND(ArrEstab)
IF TRIM(ArrEstab(I)) <> "" THEN
END IF
NEXT

promotora = rs("promotora")
Arr_Promo = SPLIT(promotora,",")
FOR I = LBOUND(Arr_Promo) TO UBOUND(Arr_Promo)
IF TRIM(Arr_Promo(I)) <> "" THEN
END IF
NEXT
%>

<script>
loc = new Array(<%=UBound(ArrEstab)%>)
for (i=0; i < <%=UBound(ArrEstab)%>; i++) {
loc[i] = new Array(2)
for (j=0; j < 2; j++) {
loc[i][j] = "0"
}
}
<% j = 0
For j = LBound(ArrEstab) to UBound(ArrEstab)%>
loc[<%=j%>][0] = "<%=ArrEstab(j)%>";
loc[<%=j%>][1] = "<%=ArrPromo(j)%>";
<%Next
rs.close
set rs = nothing
Conexcao.close
set Conexcao = nothing %>
parent.inicia();
</script>

Testa isso.

shumi · Março 8, 2006

Desculpa a minha demora!deu erro

ADODB.Recordset erro '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /sis/remote.asp, line 10

o sistema está:http://www.newstyle1.com/sis/remote.asp?es...ecimento=local1Abraços

shumi · Março 8, 2006

Tb tentei resolver com o comando While not rs.eofAi quando testo direto no remote.asp a tela ficou em branco, mas quando fui ver meu cod de fonte tava assim:

<script>loc = new Array( Erro de tempo de execução do Microsoft VBScript erro '800a000d'Tipos incompatíveis: 'UBOUND'/sis/remote.asp, line 33

É meio chatinho isso né!!! hehehe :blink:

Salgado · Março 8, 2006

Vamos precisar de mais detalhes então.

Esse SELECT deve apresentar os estabelecimentos baseados em que critério?

shumi · Março 8, 2006

Ele é baseado na campanha eu faço uma SQL para resgatar os dados apenas da campanha

assim:

sql = "select * from dados where cod=" & cod

ai só pega os estabelecimentos da campanha que eu escolhi!

Tentei mudar a ordem do script, mas não funfa! Imagem Postada

up!

Galera,

Me da uma mãozinha aqui vai! por favor! só preciso fazer isso pra entragar o sisteminha! Imagem Postada

Up! :cry:

shumi · Março 15, 2006

Galera,Que erro é esse???

<script>loc = new Array( Erro de tempo de execução do Microsoft VBScript erro '800a000d'Tipos incompatíveis: 'UBOUND'/sis/remote.asp, line 33

Valeu!

Salgado · Março 15, 2006

Algum SPLIT não deve ter gerado um array.

shumi · Março 15, 2006

Salgado,Eu vi no script que o "for" estava em letra maiuscula e arrumei, mas continua dando erro...Eu tenho que criar 2 vezes as Arrays?1 vez no ASP e outra vez no JS?Valeu!

shumi · Março 15, 2006

Se eu mando escrever a Array pra testar

Assim:

Response.write(nome_array)

Teoricamente era pra ela escrever né??? ou não?

Abraços

shumi · Março 15, 2006

Alguém poderia me dar uma ajuda...Meu scrip´t ta assim:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL = "SELECT estabelecimento, promotora from dados WHERE estabelecimento = '" & request.querystring("estabelecimento") & "' ORDER BY promotora"set rs = server.CreateObject("ADODB.Recordset")Conexcao.openrs.CursorType = 3rs.Open SQL, ConexcaoWhile not rs.eofestabelecimento = rs("estabelecimento")ArrEstab = SPLIT(estabelecimento,",")FOR I = LBOUND(ArrEstab) TO UBOUND(ArrEstab)IF TRIM(ArrEstab(I)) <> "" THENEND IFNEXTpromotora = rs("promotora")ArrPromo = SPLIT(promotora,",")FOR I = LBOUND(ArrPromo) TO UBOUND(ArrPromo)IF TRIM(ArrPromo(I)) <> "" THENEND IFNEXTrs.MoveNext	 wend%><script>loc = new Array(<%=UBound(ArrEstab)%>)for (i=0; i < <%=UBound(ArrEstab)%>; i++) {loc[i] = new Array(2)for (j=0; j < 2; j++) {loc[i][j] = "0"}}<% j = 0for j = LBound(ArrEstab) to UBound(ArrEstab)%>loc[<%=j%>][0] = "<%=ArrEstab(j)%>";loc[<%=j%>][1] = "<%=ArrPromo(j)%>";<%Nextrs.closeset rs = nothingConexcao.closeset Conexcao = nothing %>parent.inicia();</script>

e tá dando o erro:

<script>loc = new Array( Erro de tempo de execução do Microsoft VBScript erro '800a000d'Tipos incompatíveis: 'UBOUND'/sis/remote.asp, line 33

Valeu!

shumi · Março 16, 2006

Fiz algumas alterações no script e eliminei alguns erros, não sei se foi bom ou mal...

mas agora esta dando o erro:

<script>

loc = new Array()

for (i=0; i < ; i++) {

loc = new Array(2)

for (j=0; j < 2; j++) {

loc[j] = "0"

}

}

loc[0][0] = " 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'



Tipos incompatíveis: 'ArrEstab'



/sis/remote.asp, line 42

nessa linha 42 ta assim:

loc[<%=j%>][0] = "<%=ArrEstab(j)%>";loc[<%=j%>][1] = "<%=ArrPromo(j)%>";

ai quando tiro o J deixando assim:

loc[<%=j%>][0] = "<%=ArrEstab%>";loc[<%=j%>][1] = "<%=ArrPromo%>";

Da erro na linha 4, mas é tipo aquele erro de alert do JS e quando abro o cod de fonte retorna assim:

<script>

loc = new Array()

for (i=0; i < ; i++) {

loc = new Array(2)

for (j=0; j < 2; j++) {

loc[j] = "0"

}

}

loc[0][0] = "";

loc[0][1] = "";

parent.inicia();

</script>

Me ajudem por favor!

shumi · Março 16, 2006

Na tentativa de fazer essa budega funcionar, estou misturando muito o ASP com o JS veja como está:

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL = "SELECT estabelecimento, promotora from dados WHERE estabelecimento = '" & request.querystring("estabelecimento") & "' ORDER BY promotora"set rs = server.CreateObject("ADODB.Recordset")Conexcao.openrs.CursorType = 3rs.Open SQL, ConexcaoWhile not rs.eofestabelecimento = rs("estabelecimento")ArrEstab = SPLIT(estabelecimento,",")FOR I = LBOUND(ArrEstab) TO UBOUND(ArrEstab)IF TRIM(ArrEstab(I)) <> "" THENEND IFNEXTpromotora = rs("promotora")ArrPromo = SPLIT(promotora,",")FOR I = LBOUND(ArrPromo) TO UBOUND(ArrPromo)IF TRIM(ArrPromo(I)) <> "" THENEND IFNEXTrs.MoveNext	 wend%><script><%ArrEstab = SPLIT(estabelecimento,",")FOR j = LBOUND(ArrEstab) TO UBOUND(ArrEstab)IF TRIM(ArrEstab(j)) <> "" THENEND IF%>loc = <%=ArrEstab%>for (i=0; i < <%=UBound(ArrPromo)%>; i++) {loc[i] = new Array(2)for (j=0; j < 2; j++) {loc[i][j] = "0"}}loc[<%=j%>][0] = "<%=ArrEstab(j)%>";loc[<%=i%>][1] = "<%=ArrPromo(i)%>";<%Nextrs.closeset rs = nothingConexcao.closeset Conexcao = nothing %>parent.inicia();</script>

Fiz varias modificações.E quando mando execultar fica assim o cod fonte

<script>parent.inicia();</script>

e da o erro: O objeto não da suporte ao objeto ou metodo.

Arquivado

Combo

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

shumi 0