Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Diego Ronan

O combo não sai do "aguarde... carregando"

Por , em Javascript

Recommended Posts

Diego Ronan    1

Diego Ronan
Postado

inclui_download.asp

 

<html><head><title>Documento</title><script>function carregar(){var url;url = 'remote.asp?Pais='+document.FrmInclusao.cboCat[document.FrmInclusao.cboCat.selectedIndex].value;document.FrmInclusao.cboSubCat.options.length = 0;addItem(document.FrmInclusao.cboSubCat,"Aguarde...carregando","",false,document.FrmInclusao.cboSubCat.length)myIframe.location = url;document.FrmInclusao.cboSubCat.focus()}function inicia(){local1 = new Array();var maximo1, i, campo1;local1 = myIframe.loc;campo1 = document.FrmInclusao.cboSubCat;maximo1 = local1.length;document.FrmInclusao.cboSubCat.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>		<!--#include file="admin_conexao.asp"--> <p> </p><table width="30%" border="0" align="center" cellpadding="1" cellspacing="0" class="bordas">  <form name="FrmInclusao" method="post" action="admin_inclui.asp">	<tr bgcolor="#006699">	  <td height="20" colspan="2" class="texto"><font color="#FFFFFF"><strong>Inclusão			de Download</strong></font></td>	</tr>	<tr>	  <td width="34%" class="texto"><div align="left">Nome</div>	  </td>	  <td width="66%"><input name="nome" type="text" class="campostabela" id="nome">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Descrição</div>	  </td>	  <td><textarea name="desc" class="campostabela" id="desc"></textarea>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">URL</div>	  </td>	  <td><input name="url" type="text" class="campostabela" id="url">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Categoria</div>	  </td>	  <td>	  <select name="cboCat" style="width:350px" size="1" onchange="carregar()">   <%call abre_conexaoset rscategoria = server.CreateObject ("ADODB.Recordset")sqlcategoria = "Select * from categorias"Set rscategoria = conexao.execute(sqlcategoria)response.write("<option value=Tudo> </option>")		   do while (rscategoria.eof = false)			   response.write("<option value=" & rscategoria("cod") & ">" & rscategoria("ling") & "</option>")			   rscategoria.movenext		   loop			   rscategoria.close%>		 </select>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Destacar?</div>	  </td>	  <td><select name="destaca" class="campostabela" id="destaca">		  <option value="Sim">Sim</option>		  <option value="Não" selected>Não</option>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Subcategoria</div>	  </td>	  <td><div style="DISPLAY: none; POSITION: absolute" align="left<IFRAME src name="myiframe" id="myIframe" width="100" height="100" marginwidth="0" marginheight="0"> </div>	<select name="cboSubCat" class="campostabela" id="cbosubcategoria">		</select>  	  </td>	</tr>	<tr>	  <td colspan="2"><div align="center"><br>			  <input name="Submit" type="submit" class="campostabela" value="Enviar">		</div>	  </td>	</tr>  </form></table></body></html>
remote.asp

<%   dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\ipod\down9864321nhg1g31ih3yu1g3t.mdb"   SQL1 = "SELECT * FROM subcategorias WHERE categoria = "&request.querystring("cat")& " ORDER BY subcategoria"   set rs1 = server.CreateObject("ADODB.Recordset")	   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("codigo"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("subcategoria"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop   rs1.close  set rs1 = nothing   'dbConn.close   set dbConn = nothing%>   parent.inicia();    </script>
Num mando nada d jscript... asp sei um pouco mais o erro ta no java.. :/

 

alguem sabe pq não sai do Aguarde...carregando

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Se você testar o remote separado dá certo???

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Bom vamos la...não manjo muito, mas já fiz vários arquivos assim...Como está o seu arquivo agora?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Ronan    1

Diego Ronan
Postado

Agora ta assim

 

inclui_download.asp

 

<html><head><title>Documento sem título</title><script>function carregar(){var url;url = 'remote.asp?cat='+document.FrmInclusao.cboCat[document.FrmInclusao.cboCat.selectedIndex].value;document.FrmInclusao.cboSubCat.options.length = 0;addItem(document.FrmInclusao.cboSubCat,"Aguarde...carregando","",false,document.FrmInclusao.cboSubCat.length)myIframe.location = url;document.FrmInclusao.cboSubCat.focus()}function inicia(){local1 = new Array();var maximo1, i, campo1;local1 = myIframe.loc;campo1 = document.FrmInclusao.cboSubCat;maximo1 = local1.length;document.FrmInclusao.cboSubCat.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>		<!--#include file="admin_conexao.asp"--> <p> </p><table width="30%" border="0" align="center" cellpadding="1" cellspacing="0" class="bordas">  <form name="FrmInclusao" method="post" action="admin_inclui.asp">	<tr bgcolor="#006699">	  <td height="20" colspan="2" class="texto"><font color="#FFFFFF"><strong>Inclusão			de Download</strong></font></td>	</tr>	<tr>	  <td width="34%" class="texto"><div align="left">Nome</div>	  </td>	  <td width="66%"><input name="nome" type="text" class="campostabela" id="nome">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Descrição</div>	  </td>	  <td><textarea name="desc" class="campostabela" id="desc"></textarea>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">URL</div>	  </td>	  <td><input name="url" type="text" class="campostabela" id="url">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Categoria</div>	  </td>	  <td>	  <select name="cboCat" style="width:350px" size="1" onchange="carregar()">   <%call abre_conexaoset rscategoria = server.CreateObject ("ADODB.Recordset")sqlcategoria = "Select * from categorias"Set rscategoria = conexao.execute(sqlcategoria)response.write("<option value=Tudo> </option>")		   do while (rscategoria.eof = false)			   response.write("<option value=" & rscategoria("cod") & ">" & rscategoria("ling") & "</option>")			   rscategoria.movenext		   loop			   rscategoria.close%>		 </select>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Destacar?</div>	  </td>	  <td><select name="destaca" class="campostabela" id="destaca">		  <option value="Sim">Sim</option>		  <option value="Não" selected>Não</option>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Subcategoria</div>	  </td>	  <td><div style="DISPLAY: none; POSITION: absolute" align="left<IFRAME src name="myiframe" id="myIframe" width="100" height="100" marginwidth="0" marginheight="0"> </div>	<select name="cboSubCat" class="campostabela" id="cbosubcategoria">		</select>  	  </td>	</tr>	<tr>	  <td colspan="2"><div align="center"><br>			  <input name="Submit" type="submit" class="campostabela" value="Enviar">		</div>	  </td>	</tr>  </form></table></body></html>

remote.asp

 

<%   dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\ipod\down9864321nhg1g31ih3yu1g3t.mdb"   SQL1 = "SELECT * FROM subcategorias WHERE categoria = "&request.querystring("cat")& " ORDER BY subcategoria"   set rs1 = server.CreateObject("ADODB.Recordset")	   rs1.CursorType = 3   rs1.Open SQL1, dbConn   rs1.MoveFirst   response.Write sql1%><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("codigo"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("subcategoria"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop   rs1.close  set rs1 = nothing   'dbConn.close   set dbConn = nothing%>   parent.inicia();    </script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Ronan    1

Diego Ronan
Postado

Q na tabela "subcategorias" temcodigo (da subcategoria), a subcategoria em si, e o codigo da categoria (relacionada com a tabela categorias)Ele tem que saber a categoria p/ puxar o codigo das subcategoriasVai... tem 4 subcategorias relacionadas com a categoria codigo 1, 2 subcategorias relacionadas com o codigo 2O codigo da subcategoria seria necessária no combo para gravação na tabela "download" que pede a categoria e subcategoria... :PSe não vo acaba gravando em categoria q num ta relacionado na subcategoria e vai fica uma zona ehehehSe num te jeito vo t ou q primeiro fazer o usuário insaerir a categoria desejada, para ir para a pag d cadastro com as subcat relacionadas a ela... mais fica meio "noob" hahaha xD

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Ronan    1

Diego Ronan
Postado

<script>

loc = new Array(3)

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

loc = new Array(2)

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

loc[j] = "0"

}

}

 

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

loc[0][1] = "Sub Cat cod 1 - rel cod 1";

 

loc[1][0] = "2";

loc[1][1] = "Sub Cat cod 2 - rel cod 1";

 

loc[2][0] = "3";

loc[2][1] = "Sub Cat cod 3 - rel cod 1";

 

parent.inicia();

</script>

Certo.. ele pegou no bd as categorias relacionadas a ele..

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Tente Assim...

<div style="DISPLAY: none; POSITION: absolute" align="left"><IFRAME src name="myIframe" id="myIframe" width="400" height="100" marginwidth="0" marginheight="0"></IFRAME>

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipescoob    1

filipescoob
Postado

E ai galera... estou ressucitando este topico

 

 

olha só peguei o codigo que nosso amigo estava usando porem da dando erro e não consigo saber onde ja olhei linha por linha da o mesmo erro o combo fica carregando

 

olha o codigo da incluir_download.asp

 

<html><head><title>Documento sem título</title><script>function carregar(){var url;url = 'remote.asp?cat='+document.FrmInclusao.cboCat[document.FrmInclusao.cboCat.selectedIndex].value;document.FrmInclusao.cboSubCat.options.length = 0;addItem(document.FrmInclusao.cboSubCat,"Aguarde...carregando","",false,document.FrmInclusao.cboSubCat.length)myIframe.location = url;document.FrmInclusao.cboSubCat.focus()}function inicia(){local1 = new Array();var maximo1, i, campo1;local1 = myIframe.loc;campo1 = document.FrmInclusao.cboSubCat;maximo1 = local1.length;document.FrmInclusao.cboSubCat.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>		<!--#include file="func.asp"--> <p> </p><table width="30%" border="0" align="center" cellpadding="1" cellspacing="0" class="bordas">  <form name="FrmInclusao" method="post" action="admin_inclui.asp">	<tr bgcolor="#006699">	  <td height="20" colspan="2" class="texto"><font color="#FFFFFF"><strong>Inclusão			de Download</strong></font></td>	</tr>	<tr>	  <td width="34%" class="texto"><div align="left">Nome</div>	  </td>	  <td width="66%"><input name="nome" type="text" class="campostabela" id="nome">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Descrição</div>	  </td>	  <td><textarea name="desc" class="campostabela" id="desc"></textarea>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">URL</div>	  </td>	  <td><input name="url" type="text" class="campostabela" id="url">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Categoria</div>	  </td>	  <td>	  <select name="cboCat" style="width:350px" size="1" onchange="carregar()">  <%set rsletra = server.CreateObject ("ADODB.Recordset")sqlletra = "Select * from tbl_letra"Set rsletra = conexao.execute(sqlletra)response.write("<option value=Tudo> </option>")		   do while (rsletra.eof = false)			   response.write("<option value=" & rsletra("cod_letra") & ">" & rsletra("letra") & "</option>")			   rsletra.movenext		   loop			   rsletra.close%>		 </select>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Destacar?</div>	  </td>	  <td><select name="destaca" class="campostabela" id="destaca">		  <option value="Sim">Sim</option>		  <option value="Não" selected>Não</option>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Subcategoria</div>	  </td>	  <td><div style="DISPLAY: block; POSITION: absolute" align="left" 	  <IFRAME src name="myiframe" id="myIframe" width="100" height="100" marginwidth="0" marginheight="0">		<select name="cboSubCat" class="campostabela" id="cbosubcategoria">				</select>  		</div>	  </td>	</tr>	<tr>	  <td colspan="2"><div align="center"><br>			  <input name="Submit" type="submit" class="campostabela" value="Enviar">		</div>	  </td>	</tr>  </form></table></body></html>

olha o codigo da remote.asp

 

<!--#include file="func.asp"--><%   SQL1 = "SELECT * FROM tbl_segmento WHERE fk_cod_letra = "&request.querystring("cat")& " ORDER BY nome_segmento"   set rs1 = server.CreateObject("ADODB.Recordset")      rs1.CursorType = 3   rs1.Open SQL1, conexao   rs1.MoveFirst   response.Write sql1	'response.write rs1("cod_segmento") &"   "& rs1("nome_segmento")	'response.End()%><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("cod_segmento"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("nome_segmento"))%>";	  <%		rs1.movenext		j  = j  + 1		loop		rs1.close		set rs1 = nothing   'conexao.close   set conexao = nothing   %>   parent.inicia();    </script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipescoob    1

filipescoob
Postado

achei o erro.... estava no arquivo incluir_download.asp

 

não tinha entendido a dica do adriano beleza... valew

 

segue o codigo correto para usar é só mudar os selects e a conexao

 

<html><head><title>Documento sem título</title><script>function carregar(){var url;url = 'remote.asp?cat='+document.FrmInclusao.cboCat[document.FrmInclusao.cboCat.selectedIndex].value;document.FrmInclusao.cboSubCat.options.length = 0;addItem(document.FrmInclusao.cboSubCat,"Aguarde...carregando","",false,document.FrmInclusao.cboSubCat.length)myIframe.location = url;document.FrmInclusao.cboSubCat.focus()}function inicia(){local1 = new Array();var maximo1, i, campo1;local1 = myIframe.loc;campo1 = document.FrmInclusao.cboSubCat;maximo1 = local1.length;document.FrmInclusao.cboSubCat.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>		<!--#include file="func.asp"--> <p> </p><table width="30%" border="0" align="center" cellpadding="1" cellspacing="0" class="bordas">  <form name="FrmInclusao" method="post" action="admin_inclui.asp">	<tr bgcolor="#006699">	  <td height="20" colspan="2" class="texto"><font color="#FFFFFF"><strong>Inclusão			de Download</strong></font></td>	</tr>	<tr>	  <td width="34%" class="texto"><div align="left">Nome</div>	  </td>	  <td width="66%"><input name="nome" type="text" class="campostabela" id="nome">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Descrição</div>	  </td>	  <td><textarea name="desc" class="campostabela" id="desc"></textarea>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">URL</div>	  </td>	  <td><input name="url" type="text" class="campostabela" id="url">	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Categoria</div>	  </td>	  <td>	  <select name="cboCat" style="width:350px" size="1" onchange="carregar()">  <%set rsletra = server.CreateObject ("ADODB.Recordset")sqlletra = "Select * from tbl_letra"Set rsletra = conexao.execute(sqlletra)response.write("<option value=Tudo> </option>")		   do while (rsletra.eof = false)			   response.write("<option value=" & rsletra("cod_letra") & ">" & rsletra("letra") & "</option>")			   rsletra.movenext		   loop			   rsletra.close%>		 </select>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Destacar?</div>	  </td>	  <td><select name="destaca" class="campostabela" id="destaca">		  <option value="Sim">Sim</option>		  <option value="Não" selected>Não</option>		</select>	  </td>	</tr>	<tr>	  <td class="texto"><div align="left">Subcategoria</div>	  </td>	  <td>	<div style="DISPLAY: block; POSITION: absolute; top: 267px; left: 492px;" align="left"><IFRAME src name="myIframe" id="myIframe" width="400" height="100" marginwidth="0" marginheight="0"></IFRAME>		<select name="cboSubCat" class="campostabela" id="cbosubcategoria">				</select>  		</div>			  </td>	</tr>	<tr>	  <td colspan="2"><div align="center"><br>			  <input name="Submit" type="submit" class="campostabela" value="Enviar">		</div>	  </td>	</tr>  </form></table></body></html>

valeu adriano, você ajudou outra pessoa e acabou me salvando mais uma vez... ahUAHUhauAHUahUAH falow... final do ano mando o 13º pra você... rsrsrsrs abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Javascript
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito