Escolher uma opção e puxar a sub-opção desse item

[shumi 0]

Galera,Não sei se é ASP ou é java script ou se é os dois, mas assim tenho um select no programinha que estou fazendo e eu queria que quando a pessoa escolhesse uma loja puxasse quem é a promotora e escrevesse do lado quem é...Como faço isso?O que quero faze é tipo aqueles sites que quando você escolhe 1 opção puxa as sub - opçoes da opção escolhida!Hoje to pedindo ajuda de tudo, mas graças a vcs foram resolvidos 95% do que não tava conseguindo hoje.Valeu

[shumi 0]

Achei isso aqui no fórum foi o Adriano quem postou, mas não sei como posso usar sendo que meus campos são dinamicos...

 

<script>function carregar(){Combo1 = document.Cadastro.UF; //ALTERE AQUI PARA SEU FORM E 1º SELECTCombo2 = document.Cadastro.Cidades; //ALTERE AQUI PARA SEU FORM E 2º SELECTvar 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, campo1;local1 = myIframe.loc;campo1 = document.Emendas.CboOrg;maximo1 = local1.length;Combo2.options.length = 0;addItem(campo1,'TODAS','',false,campo1.length);for (i=0;i<maximo1;i++){ addItem(campo1,local1[i][1],local1[i][0],false,campo1.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>

abraços

[shumi 0]

Adriano,E quando eu não tenho um head o que eu faço???é pq meu head esta dentro de um include que uso para o sistema todo é que nesse include tem algumas coisas, posso coloca-lo la? não tem problema com as outras paginas q estão pegando esse include tb???abraços

[shumi 0]

Adriano,

 

Meu select está assim:

 

<select name="estabelecimento" size="1" id="estabelecimento">			<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>

como adapto meu select loko que o Mário que me ensinou nesse seu...

 

<select name="UF" style="width:350px" size="1" onchange="carregar()">		   <%		   response.write("<option value=Tudo> </option>")		   do while (rs.eof = false)			   response.write("<option value=" & rs("UF") & ">" & rs("UF") & "</option>")			   rs.movenext		   loop			   rs.close%>		 </select>

você sabe carinha???

 

abraços valeu

[shumi 0]

Adriano,

 

Não deu certo carinha...

 

olha como fiz:

 

Meu form

 

<%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 campanhasId = request("id")sql = "select * from dados where cod=" & sIdSet 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><p align="center"><span class="texto11">Dados da Promoção <%=rs("acao")%></span></p><center>  <form name="form1" method="post" action="">	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="94"><span class="texto10">Estabelecimento :</span></td>		 <%		MINHAVARR = rs("estabelecimento")		MEUARRAYR = SPLIT(MINHAVARR,",") %>		<td width="347"><span class="texto10">				 <!-- SCRIPT ADRIANO --------------------------------------------------------------->	 		  <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><span class="texto10">Promotora :</span></td>		  <td><span class="texto10">		  <div style="DISPLAY: none; POSITION: absolute" align="left"<IFRAME src name="myIframe" id="myIframe" width="100" height="100" marginwidth="0" marginheight="0"></IFRAME></div></span></td>				</tr>		</table>			  <!-- FIM SCRIPT ADRIANO --------------------------------------------------------------->		<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 name="Enviar" type="submit" id="Enviar" value="Enviar">  </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>

remote.asp

 

<%   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	   rs1.CursorType = 3   rs1.Open SQL1, dbConn   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   'dbConn.close   set dbConn = nothing%>   parent.inicia();       </script>

head

 

<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>function carregar(){Combo1 = document.Cadastro.estabelecimento; //ALTERE AQUI PARA SEU FORM E 1º SELECTCombo2 = document.Cadastro.promotora; //ALTERE AQUI PARA SEU FORM E 2º SELECTvar url;url = 'acoes_f.asp?promo='+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, campo1;local1 = myIframe.loc;campo1 = document.Emendas.CboOrg;maximo1 = local1.length;Combo2.options.length = 0;addItem(campo1,'TODAS','',false,campo1.length);for (i=0;i<maximo1;i++){ addItem(campo1,local1[i][1],local1[i][0],false,campo1.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>  </head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg">

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

[shumi 0]

alguem poderia dar uma maozinha aki???valeu

[shumi 0]

Andei mexendo no script e consegui que ele pelo menos tente funcionar, só que deu esse erro:

Linha: 28Caractere: 1Erro: 'Combo2.options' é nulo ou não é um objetoCódigo: 0

O que seria?obrigadoPs aos moderadores. Se eu tiver atrapalhando aqui em ASP me movam pois acho que é puro java script neh!

[shumi 0]

Ps aos moderadores. Se eu tiver atrapalhando aqui em ASP me movam pois acho que é puro java script neh!

Nossa falou que eu estou atrapalhando na cara dura hehehehhe http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif to zuando!

[shumi 0]

Tô enroladação agora no trabalho! Até o início da tarde, te dou um help! :mellow:

beleza cara!!!! Obrigado!vou deixar isso de lado e correr com outras coisas aqui então!!!!Valeu! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[shumi 0]

Opa vamo!!!!!

[shumi 0]

Isso é um Array que serve para que tire as virgulas do banco, pois no cadastro anterior os registro ficam assim:ex: estabelecimento1, estabelecimento2, estabelecimento3, estabelecimento4ai então esse Array serve para tirar as (,) e os espaços em banco....

[shumi 0]

isso!!!!!

[shumi 0]

Adriano,

 

quando escolho uma opção fica só a mensagem de aguarde...

 

fiz assim:

 

Remote.asp

 

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT promotora from dados WHERE estabelecimento = "&request.querystring("estabelecimento")& " ORDER BY promotora" 'mude aqui o nome do campo   set rs1 = server.CreateObject("ADODB.Recordset")Conexcao.openif NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd If	   rs1.CursorType = 3   rs1.Open SQL1, dbConn   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   'dbConn.close   set dbConn = nothing%>   parent.inicia();       </script>

head

 

<%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 campanhasId = request("id")sql = "select * from dados where cod=" & sIdSet 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><p align="center"><span class="texto11">Dados da Promoção <%=rs("acao")%></span></p><center>  <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">				 <!-- SCRIPT ADRIANO --------------------------------------------------------------->	 		  <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>			  <!-- FIM SCRIPT ADRIANO --------------------------------------------------------------->		<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 name="Enviar" type="submit" id="Enviar" value="Enviar">  </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>

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?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,'TODAS','',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>

Tem um detalhe importante que não sei se influencia... o campo promotora tb é um registro com (,) Pormo1, Pormo2, Pormo etc.....

 

abraços

[shumi 0]

Adriano,

 

Tava tentando entender o script ai fiz um teste aqui com um limpo sem as virgulas, criei uma tabela no meu banco de dados com o nome teste e la coloquei uf e cidade e preenchi algumas linhas pra testar...

 

e no body fiz 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 campanha'sId = request("id")sql = "select * from teste"Set 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><p align="center"><span class="texto11">Dados da Promoção</span></p><center>  <form name="Cadastro" method="post" action="acoes_f2.asp">  	 	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="91"><span class="texto10">Estabelecimento :</span></td>		 		<td width="245"><span class="texto10">				 <!-- SCRIPT ADRIANO --------------------------------------------------------------->	 		  <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="uf" size="1" id="uf" onChange="carregar();">			<option value>...</option>			 <%		While NOT rs.EOF		%> <option value="<%=rs("uf")%>"><%=rs("uf")%></option>				  <%		rs.MoveNext 		Wend		%>		  </select></span></td>		  <td width="61"><span class="texto10">Promotora :</span></td>		  <td width="32"><span class="texto10">			<select name="cidade" id="cidade">			<option value></option>						</select></td>			   </tr>		</table>			  <!-- FIM SCRIPT ADRIANO --------------------------------------------------------------->		<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>	  		<td width="169"><span class="texto10">		  	</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 name="Enviar" type="submit" id="Enviar" value="Enviar">  </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>

head

 

<script language="JavaScript" type="text/JavaScript">	function carregar(){	Combo1 = document.Cadastro.uf; //ALTERE AQUI PARA SEU FORM E 1º SELECT	Combo2 = document.Cadastro.cidade; //ALTERE AQUI PARA SEU FORM E 2º SELECT	var url;	url = 'remote.asp?teste='+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,'TODAS','',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>

remote.asp

 

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT cidade from teste WHERE uf = "&request.querystring("uf")& " ORDER BY cidade" 'mude aqui o nome do campo   set rs1 = server.CreateObject("ADODB.Recordset")Conexcao.openif NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd If	   rs1.CursorType = 3   rs1.Open SQL1, dbConn   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("uf"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("cidade"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop   rs1.close  set rs1 = nothing   'dbConn.close   set dbConn = nothing%>   parent.inicia();       </script>

e fica só carregando tb....

 

abraços

[shumi 0]

Adriano,deu um erro! digitei o end que é o http://www.newstyle1.com/sistema/remote.asp?uf=RN

ADODB.Recordset erro '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /sistema/remote.asp, line 10

[shumi 0]

É eu ia postar agora pra você que errei em uma parte...Tava assim

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT cidade from teste WHERE uf = "&request.querystring("uf")& " ORDER BY cidade"    set rs1 = server.CreateObject("ADODB.Recordset")Conexcao.open   rs1.CursorType = 3   rs1.Open SQL1, dbConn 'AQUI O ERRO   rs1.MoveFirst   %>

Ai arrumei assim:

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT cidade from teste WHERE uf = "&request.querystring("uf")& " ORDER BY cidade"    set rs1 = server.CreateObject("ADODB.Recordset")Conexcao.open   rs1.CursorType = 3   rs1.Open SQL1, Conexcao   rs1.MoveFirst   %>

Mas agora da outro erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e10' [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. /sistema/remote.asp, line 10

Na mesma linha, mas o erro diferente....

[shumi 0]

Adriano,

 

Ficou assim então

 

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT uf from teste WHERE uf = '"&request.querystring("uf")&"' ORDER BY cidade"    set rs1 = server.CreateObject("ADODB.Recordset")Conexcao.open    rs1.CursorType = 3   rs1.Open SQL1, Conexcao   rs1.MoveFirst   %>

Mas agora quando faço isso http://www.newstyle1.com/sistema/remote.asp?uf=RN

 

fica em branco a tela e quando escolho a opção no meu form fica só a msg aguarde carregando....

[shumi 0]

Grande Adriano,

 

Deu certo cara!!!!!

Se liga

 

Head

<script language="JavaScript" type="text/JavaScript">	function carregar(){	Combo1 = document.Cadastro.uf; //ALTERE AQUI PARA SEU FORM E 1º SELECT	Combo2 = document.Cadastro.cidade; //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>

 

Remote.asp

 

<%   set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")SQL1 = "SELECT UF, cidade from teste WHERE uf = '" & request.querystring("uf") & "' ORDER BY cidade"   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("uf"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("cidade"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop   rs1.close  set rs1 = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script>

body

 

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.open'If NOT (Session("logado")) Then'Response.Redirect "index.asp"'Response.End'End If'varcod = request.querystring("varcod")' resgatando o id da campanha'sId = request("id")sql = "select * from teste"Set 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><p align="center"><span class="texto11">Dados da Promoção</span></p><center>  <form name="Cadastro" method="post" action="acoes_f2.asp">  	 	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="91"><span class="texto10">Estabelecimento :</span></td>		 		<td width="245"><span class="texto10">				 <!-- SCRIPT ADRIANO --------------------------------------------------------------->	 		  <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="uf" size="1" id="uf" onChange="carregar();">			<option value>...</option>			 <%		While NOT rs.EOF		%> <option value="<%=rs("uf")%>"><%=rs("uf")%></option>				  <%		rs.MoveNext 		Wend		%>		  </select></span></td>		  <td width="61"><span class="texto10">Promotora :</span></td>		  <td width="32"><span class="texto10">			<select name="cidade" id="cidade">			<option value></option>						</select></td>			   </tr>		</table>			  <!-- FIM SCRIPT ADRIANO --------------------------------------------------------------->		<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>	  		<td width="169"><span class="texto10">		  	</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 name="Enviar" type="submit" id="Enviar" value="Enviar">  </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>

Abraços e valeu!!!!

 

se consegui fazer os da (,) posto a solução tb se não conseguir vou la no ASP e vejo se consigo uma ajudinha...

 

abraços cara