Escolher um select e puxar o outro select com arquivos entre (,)

[shumi 0]

Galera,

 

tinha postado um tópico aqui em ASP e o problema antes era em Java Script, mas agora o JS foi resolvido e está funfando certinho...

 

Mas agora o meu problema é em ASP...

 

Pois a opção que tenho que puxar primeiro no select é o estabelecimento e ele esta em uma Array, pois este campos está entre as virgulas no meu BD, pois tem vários ex. estab1, estab2, estab3...

 

As Promotoras estão as mesma coisa no BD elas tb estão entre as virgulas ex. Promo1, Promo2, Promo3 e etc...

 

Meus scripts estão assim:

 

Head

 

<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?uf='+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>

Body

 

<form name="Cadastro" method="post" action="acoes_f2.asp">	 <input type="hidden" name="id" value="<%=sId%>">	 	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="91"><span class="texto10">Estabelecimento :</span></td>		 <%		MINHAVARR = rs("estabelecimento")		MEUARRAYR = SPLIT(MINHAVARR,",") %>		<td width="245"><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="estabelecimento" 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="61"><span class="texto10">Promotora :</span></td>		  <td width="32"><span class="texto10">			<select name="promotora" id="promotora">			<option value></option>						</select>

e o arquivo 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   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>

Mas como os dados do campo 2 (promotora)estão entre as virgulas se uso esse script assim dá 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/remote.asp, line 12

como eu faço para tirar esse erro???

 

abraços

[markimvinny 0]

Olá amigo

você pode usar o recordcount, 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")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   %>

sacou!?!?!

espero ter ajudado

 

abraços

t+

[Mário Monteiro 179]

a linha 12 é essa??rs1.MoveFirstvoce não pode manipular registros sem antes testar se algo foi retornado

[shumi 0]

Mario,

 

A linha 12 é essa mesmo!!!!

 

e o que você quis dizer com

 

"voce não pode manipular registros sem antes testar se algo foi retornado" ?

 

Se você quis dizer que devo fazer isso:

 

http://www.newstyle1.com/sistema/remote.as...lecimento=alert (alert é o estabelecimento que esta cadastrado em meu banco.)

 

eu fiz e aparece o erro que falei!!!!

 

vou testar a ajuda do nosso amigo markimvinny se não der certo posto aqui o que deu!

 

Obrigado

 

markimvinny e Mario,

 

Se eu tiro as virgulas dos registros no meu banco como o nosso amigo postou da certo, mas dados com virgulas aparece a mensagem "nenhum registro encontrado" e sem virgula peço para exibir o cod de fonte e fica assim:

 

<script>

loc = new Array(1)

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

loc = new Array(2)

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

loc[j] = "0"

}

}

 

loc[0][0] = "alert";

loc[0][1] = "TESTE PROMO";

 

parent.inicia();

 

</script>

Mas todos meus registros tem a virgula... :wacko:

como poderia fazer para aparecer os dados com (,)

 

Abraços

[shumi 0]

up!

[Mário Monteiro 179]

Mario,A linha 12 é essa mesmo!!!!e o que você quis dizer com"voce não pode manipular registros sem antes testar se algo foi retornado" ?

Voce deve sempre listar os registros dentro de um loop que teste se tem registros para exibir tipo:WHILE NOT RS.EOFRS.MOVENEXTWEND

[shumi 0]

Mario,Ta sumido hein mano!Cara não exibe os registros assim... aparece aguarde e não exibe nada... eu tenho que fazer a mesma coisa do outro? usar os laços la ou nem???Obrigado!

[Mário Monteiro 179]

Ta sumido hein mano!

Pow tiozinho tou praticamente sem NET...Tu fazendo muitas coisas para me preparar para a viagemverificando documentação, vestuario e passagens...por isso tou sumidomas seu recorset tem aquele nome mesmo???como está seu codigo agora

[shumi 0]

Tio Mario,

 

Vou postar o script todo pra você ter uma melhor visualização!!!

 

 

<%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")sql = "select * from dados where cod=" & codSet rs=Conexcao.Execute(sql)%><!-- #include file="include/topo.asp"--><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><script language="javascript" type="text/javascript">function QualBotao(Id) {	if (Id=="1") {		document.getElementById("Teste").action = "acoes_f2.asp";	} else {		document.getElementById("Teste").action = "acoes_valida.asp";	}	document.getElementById("Teste").submit();}</script><p align="center"><span class="texto11">Dados da Promoção <%=rs("acao")%></span></p><center> <form name="Teste" id="Teste" method="post">	 <input type="hidden" name="cod" value="<%=cod%>">	 	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="91"><span class="texto10">Estabelecimento :</span></td>		 <%		MINHAVARR = rs("estabelecimento")		MEUARRAYR = SPLIT(MINHAVARR,",") %>		<td width="245"><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="estabelecimento" 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="61"><span class="texto10">Promotora :</span></td>		  <td width="32"><span class="texto10">			<select name="promotora" id="promotora">			<option value></option>						</select></td>			   </tr>		</table>					<table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="35"><span class="texto10">Data :</span></td>		  <td width="178"><input name="data" type="text" id="data" size="2">			/			<input name="data" type="text" id="data" size="2">			/			<input name="data" type="text" id="data" size="4"></td>			 <td width="45"><span class="texto10">Produto:</span></td>		<%		MINHAVAR = rs("nosso_produto")		MEUARRAY = SPLIT(MINHAVAR,",") %>		<td width="169"><span class="texto10">		  <select name="produto" size="1" id="produto">			<option value>...</option>			<%		FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)			%>			<%IF TRIM(MEUARRAY(I)) <> "" THEN%>			<option value="<%=(MEUARRAY(I))%>"><%=(MEUARRAY(I))%></option>			<%END IF%>			<%NEXT%>		  </select>	</span></td></tr></table>		<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" size="10">		  </div></td>		  <td>			<div align="center">			<input name="entrada" type="text" id="entrada" size="10">		  </div></td>		  <td>			<div align="center">			<input name="final" type="text" id="final" size="10">		  </div></td>		  <td><div align="center"><span class="texto10">			<input name="vendas" type="text" id="vendas" size="10">		  </span></div></td>		</tr>							</table>		<br>	   <input type="button" id="1" value="Mais ocorrencia" onClick="QualBotao(this.id);">		<input type="button" id="2" value="Apenas essa" onClick="QualBotao(this.id);">  </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!!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Ps.Tu vai viajar cara!!! legal! virou patrão então.... http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[Mário Monteiro 179]

mas este seu ultimo codigo não tem movenext e nem movefirstpelo menos eu nao vi

[shumi 0]

Mario,Desculpa cara tenho que dar uma pausa nesse trabalho, pois tenho que fazer outro trampo antes, chefe mandou tenho que obdecer!Quando eu acabar peço a sua ajuda novamante ok???Desculpa ai cara....e Valeu pela atenção

[Mário Monteiro 179]

tranquilo http://forum.imasters.com.br/public/style_emoticons/default/yes.gif

[shumi 0]

Mario,

 

Vamos retornar esse trabalho?

Onde devo recomeçar?

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[shumi 0]

up!

[Mário Monteiro 179]

como ta o code e que erro ta acontecendo agora??

[shumi 0]

Eae tio sumido beleza? inteiro esta assim:

<%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 If'varcod = request.querystring("varcod")' resgatando o id da campanhacod = request("id")sql = "select * from dados where cod=" & codSet rs=Conexcao.Execute(sql)%><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?uf='+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(){var inicial = document.getElementById("inicial").value;var entrada = document.getElementById("entrada").value;var final = document.getElementById("final").value;if (isNaN(inicial) || isNaN(entrada) || isNaN(final) ) {alert("Preencha os campos corretamente!");} else {var vendas = Number(inicial) + Number(entrada) - Number(final);document.getElementById("vendas").value = formatCurrency(vendas); //AQUI FORMATO O CAMPO}}</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"><span class="texto11">Dados da Promoção <%=rs("acao")%></span></p><center> <form name="Teste" id="Teste" method="post">	 <input type="hidden" name="cod" value="<%=cod%>">	 	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="91"><span class="texto10">Estabelecimento :</span></td>		 <%		MINHAVARR = rs("estabelecimento")		MEUARRAYR = SPLIT(MINHAVARR,",") %>		<td width="245"><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="estabelecimento" 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="61"><span class="texto10">Promotora :</span></td>		  <td width="32"><span class="texto10">			<select name="promotora" id="promotora">			<option value></option>						</select></td>			   </tr>		</table>					<table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="35"><span class="texto10">Data :</span></td>		  <td width="178"><input name="data" type="text" id="data" size="2">			/			<input name="data" type="text" id="data" size="2">			/			<input name="data" type="text" id="data" size="4"></td>			 <td width="45"><span class="texto10">Produto:</span></td>		<%		MINHAVAR = rs("nosso_produto")		MEUARRAY = SPLIT(MINHAVAR,",") %>		<td width="169"><span class="texto10">		  <select name="produto" size="1" id="produto">			<option value>...</option>			<%		FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)			%>			<%IF TRIM(MEUARRAY(I)) <> "" THEN%>			<option value="<%=(MEUARRAY(I))%>"><%=(MEUARRAY(I))%></option>			<%END IF%>			<%NEXT%>		  </select>	</span></td></tr></table>		<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" size="10" onKeyUp="valor();">		  </div></td>		  <td>			<div align="center">			<input name="entrada" type="text" id="entrada" size="10" onKeyUp="valor();"></div></td>		  <td>			<div align="center">		   			<input name="final" type="text" id="final" size="10" onKeyUp="valor();">		  </div></td>		  <td><div align="center"><span class="texto10">			<input type="text" name="vendas" id="vendas">			</span></div></td>		</tr>							</table>		<br>		<script language="javascript" type="text/javascript">function QualBotao(Id) {	if (Id=="1") {	document.getElementById("Teste").action = "acoes_f2.asp?cod="+document.getElementById('cod').value+"&estabelecimento="+estabelecimento+"&data="+data;	} else {	document.getElementById("Teste").action = "acoes_valida.asp";	}	document.getElementById("Teste").submit();}</script>			   <input type="button" id="1" value="Mais ocorrencia" onClick="QualBotao(this.id);">		<input type="button" id="2" value="Apenas essa" onClick="QualBotao(this.id);">  </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>

e esta dando o erro:

'document.Cadastro.estabelecimento' é nulo ou não é objeto

Valeu

[Mário Monteiro 179]

vou olha o codigo mas este erro não e asp e sim javascriptpelo que vi o nome do form esta comoTestee voce esta usandoCadastroaltera onde voce achar que deve e veja se da certo ou se apenas aparece outro erro

[shumi 0]

Mario,Agora sim chegou onde queria arrumei o form.... realmente aquele erro é de JS, mas ele tava funcionando em dados que não tem virgula, e em outro form, quando tinha dados com virgula não funcionava ficava a mensagem no menu de opções aguarde carregando e nunca carrega... agora depois que mudei o nome do form está a mensagem de carregando...Valeu!!!!

[Mário Monteiro 179]

de nada shumi http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[shumi 0]

Mario!!!!Não deu certo cara!!!!Fica a mensagem carregando, mas não aparece os dados....Desculpa acho q não me expressei bem na msg anterior.....