Combo

[shumi 0]

Galera,

Boa Tarde!

 

Estou tentando fazer um select/box cujo o usuário escolherá o estabelecimento e em outro select/box aparecerá a promotora desse estabelecimento o script que tenho funciona normal está 100%, mas os dados que estou tentando "puxar" são de um banco que esta separado por virgulas... exemplo. na tabela estabelecimento esta assim: estabelecimento1, estabelecimento2, estabelecimento3 e na tabela promotora esta assim: promotora1, promotora2, promotora3. Andei falando com o nosso amigo Adriano achando que a dúvida era JS e ele me falou que tenho que separar os dados na minha pagina denominada como remote.asp, gostaria que alguém me ajudasse a resolver essa parada...

Veja como esta meu remote.asp

 

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT estabelecimento, promotora from dados WHERE estabelecimento = '" & request.querystring("estabelecimento") & "' ORDER BY promotora"   set rs1 = server.CreateObject("ADODB.Recordset")Conexcao.open   rs1.CursorType = 3   rs1.Open SQL1, Conexcao   '---------assim ow------------'   If rs1.recordcount>0 Then   rs1.MoveFirst   %><script>  loc = new Array(<%=rs1.recordcount%>)  for (i=0; i < <%=rs1.recordcount%>; i++) {		 loc[i] = new Array(2)				 for (j=0; j < 2; j++) {			 loc[i][j] = "0"		   }   }   <% j = 0	 do while not rs1.eof%>	  loc[<%=j%>][0] = "<%=trim(rs1("estabelecimento"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("promotora"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop   rs1.close  set rs1 = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script><%      else	response.Write ("Nenhum registro encontrado")   End if   %>

eu tentei fazer as adaptações, mas não tive sucesso, nessa parte fiz assim:

 

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT estabelecimento, promotora from dados WHERE estabelecimento = '" & request.querystring("estabelecimento") & "' ORDER BY promotora"   set rs1 = server.CreateObject("ADODB.Recordset")MINHAVAR = rs1("estabelecimento")MEUARRAY = SPLIT(MINHAVAR,",")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THEN

Mas não rolou...

 

Quem puder me ajudar ficou grato!

[Salgado 4]

O que acontece? Não exibe os dados, não separa ou dá erro?

[shumi 0]

Se eu testo assim:http://www.newstyle1.com/sistema/remote.as...o=Teste%20Localda o erro:

Erro de compilação do Microsoft VBScript erro '800a03f6' 'End' esperado /sistema/remote.asp, line 42

[Salgado 4]

Mas seu Script está incompleto, por isso o erro.

[shumi 0]

Opa eae Salgadobeleza???Arrumei assim:

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT estabelecimento, promotora from dados WHERE estabelecimento = '" & request.querystring("estabelecimento") & "' ORDER BY promotora"set rs1 = server.CreateObject("ADODB.Recordset")MINHAVAR = rs1("estabelecimento")MEUARRAY = SPLIT(MINHAVAR,",")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THENEND IFNEXTConexcao.open   rs1.CursorType = 3   rs1.Open SQL1, Conexcao   rs1.MoveFirst   %><script>  loc = new Array(<%=rs1.recordcount%>)  for (i=0; i < <%=rs1.recordcount%>; i++) {		 loc[i] = new Array(2)				 for (j=0; j < 2; j++) {			 loc[i][j] = "0"		   }   }   <% j = 0	 do while not rs1.eof%>	  loc[<%=j%>][0] = "<%=trim(rs1("estabelecimento"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("promotora"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop   rs1.close  set rs1 = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script>

estou testando assim:http://www.newstyle1.com/sistema/remote.as...estabelecimentoe deu o erro:

ADODB.Recordset erro '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /sistema/remote.asp, line 6

linha 6 é

MINHAVAR = rs1("estabelecimento")

Obrigado

[shumi 0]

Up!

[explore 3]

Verifica se o Nome Ordinal está correto no Banco!

[shumi 0]

Mas ta certo veja:

 

http://www.newstyle1.com/sistema/db.JPG

 

e olha meu script:

 

<%   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")MINHAVAR = rs("estabelecimento")MEUARRAY = SPLIT(MINHAVAR,",")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THENEND IFNEXTConexcao.open   rs.CursorType = 3   rs.Open SQL, Conexcao   rs.MoveFirst   %><script>  loc = new Array(<%=rs.recordcount%>)  for (i=0; i < <%=rs.recordcount%>; i++) {		 loc[i] = new Array(2)				 for (j=0; j < 2; j++) {			 loc[i][j] = "0"		   }   }   <% j = 0	 do while not rs.eof%>	  loc[<%=j%>][0] = "<%=trim(rs("estabelecimento"))%>";	  loc[<%=j%>][1] = "<%=trim(rs("promotora"))%>";	  <%	  rs.movenext	  j  = j  + 1	 loop   rs.close  set rs = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script>

O que pode ser??? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Obrigado

[shumi 0]

Lucas,beleza???Cara como você desenvolveria exatamente meu script sem fazer nenhuma modificação???Pois esse script serve só para fazer o combo, eu tenho outro arquivo que puxar esse combo, então não poderia fazer nenhuma adaptação. como você faria?Obrigado!

[shumi 0]

Galera,

 

Segui o conselho do Lucas e quando é um dado simples que esteja assim:

Estabelecimento = Carrefour

Promotora = Maria

Fica certinho!

Mas quando se trata de dados entre virgulas da erro. exemplo:

Estabelecimento = Carrefour, Extra, Pão de Açucar

Promotora = Maria, Ana, Roberta

 

Dá esse erro:

 

ADODB.Recordset erro '800a0bcd'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/sistema/remote.asp, line 12

 

 

Meu script esta 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.open   rs.CursorType = 3   rs.Open SQL, Conexcao   rs.MoveFirstMINHAVAR = rs("estabelecimento")MEUARRAY = SPLIT(MINHAVAR,",")FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THENEND IFNEXT  %><script>  loc = new Array(<%=rs.recordcount%>)  for (i=0; i < <%=rs.recordcount%>; i++) {		 loc[i] = new Array(2)				 for (j=0; j < 2; j++) {			 loc[i][j] = "0"		   }   }   <% j = 0	 do while not rs.eof%>	  loc[<%=j%>][0] = "<%=trim(rs("estabelecimento"))%>";	  loc[<%=j%>][1] = "<%=trim(rs("promotora"))%>";	  <%	  rs.movenext	  j  = j  + 1	 loop   rs.close  set rs = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script>

a linha do erro:

 

rs.MoveFirst

Como faço pra resolver???

 

Valeu!!!!

[shumi 0]

galera,

 

Aqui eu quebro as virgulas e separa meus dados certo?!!!!??

 

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

será que pra funcionar tenho que fazer a mesma coisa com a promotora tb???

 

Valeu!

[Salgado 4]

Vamos esquecer os JS e montar seu SELECT diretamente via ASP?

<%
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 LIKE '%"& 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")
MEUARRAY = SPLIT(Estabelecimento,",")%>
<select name="Estabelecimento"%>
<%FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)
IF TRIM(MEUARRAY(I)) <> "" THEN%>
  <option value="<%=trim(MeuArray(I))%>"<If Request.Querystring("estabelecimento") = MeuArray(I) Then%> Selected<%End If%>><%=trim(MeuArray(I))%></option>
<%END IF
NEXT%>
</select>
<%   rs.close
  set rs = nothing
  Conexcao.close
  set Conexcao = nothing %>

Esse irá montar o seu SELECT dos estabelecimentos. A de Promotores é a mesma lógica.

[shumi 0]

Opa!Vamos sim!Agora apareceu o estabelecimento mesmo, mas a promotora teria que aparecer automatico, assim que eu selecionasse o estabalecimento.Se eu fizer desse jeito o da promotora irá aparecer automaticamente ou terei que selecionar tb???Abraços

[Salgado 4]

O das Promotoras:

Promotora = rs("promotora")
MEUARRAY2 = SPLIT(Promotora,",")%>
<select name="Estabelecimento"%>
<%FOR I = LBOUND(MEUARRAY2) TO UBOUND(MEUARRAY2)
IF TRIM(MEUARRAY2(I)) <> "" THEN%>
  <option value="<%=trim(MeuArray2(I))%>"><%=trim(MeuArray2(I))%></option>
<%END IF
NEXT%>
</select>
<%

Mas para funcionar vai precisar de um JS que redirecione para a mesma página passando o Estabelecimento como parâmetro.

[shumi 0]

Opa Salgado beleza então vou pedir ajuda agora para o mestre do JS!!!

 

Veja como ficou meu script

 

<%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 LIKE '%"& request.querystring("estabelecimento") &"%' ORDER BY promotora"set rs = server.CreateObject("ADODB.Recordset")Conexcao.openrs.CursorType = 3rs.Open SQL, Conexcaors.MoveFirstEstabelecimento = rs("estabelecimento")MEUARRAY = SPLIT(Estabelecimento,",")%><select name="Estabelecimento"%><%FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)IF TRIM(MEUARRAY(I)) <> "" THEN%>	  <option value="<%=trim(MeuArray(I))%>"<If Request.Querystring("estabelecimento") = MeuArray(I) Then%> Selected<%End If%>><%=trim(MeuArray(I))%></option><%NEXT%></select><%Promotora = rs("promotora")MEUARRAY2 = SPLIT(Promotora,",")%><select name="Estabelecimento"%><%FOR I = LBOUND(MEUARRAY2) TO UBOUND(MEUARRAY2)IF TRIM(MEUARRAY2(I)) <> "" THEN%>	  <option value="<%=trim(MeuArray2(I))%>"><%=trim(MeuArray2(I))%></option><%END IFNEXT%></select><%   rs.close   set rs = nothing   Conexcao.close   set Conexcao = nothing %>

 

 

Valeu!!!!!!!!!!!!!

[shumi 0]

Salgado,

 

Por favor Dá uma olhada na minha pagina:

 

http://www.newstyle1.com/sistema/remote.asp

 

e eu tenho um iframe que fazia esse trabalho com os selects e esse remote.asp seria somente para "filtrar".

 

Veja meu script do iframe

 

<%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 0]

Já não to entendendo mais nada! :wacko:

[shumi 0]

Galera me da um help ai! preciso tanto que isso funcionasse!Valeu

[Salgado 4]

Então vamos fazer o seguinte, volte como estava e poste o código do Remote.asp. E também a parte de sua página que gera o 1º SELECT.

[shumi 0]

Opa Salgado!beleza?Então carinha aqui esta meu remote.asp

<%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, Conexcaors.MoveFirstestabelecimento = 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%><script>loc = new Array(<%=rs.recordcount%>)for (i=0; i < <%=rs.recordcount%>; i++) {loc[i] = new Array(2)for (j=0; j < 2; j++) {loc[i][j] = "0"}}<% j = 0do while not rs.eof%>loc[<%=j%>][0] = "<%=rs(("estabelecimento"))%>";loc[<%=j%>][1] = "<%=rs(("promotora"))%>";<%rs.movenextj  = j  + 1looprs.closeset rs = nothingConexcao.closeset Conexcao = nothing %>parent.inicia(); </script>

ele está funcionando quando tenho apenas 1 estabelecimento e 1 promotorase você quiser ver acesse o http://www.newstyle1.com/sistema/remote2.a...lecimento=teste verá que no cond fonte aparece o nome do estabelecimento e a promotora.Ai acesse o http://www.newstyle1.com/sistema/remote2.a...ecimento=loja01aparecerá o erro:

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

Valeu!!!!!