famoso Remote.asp

[shumi 0]

Galera.

beleza??

 

estou adaptando o famoso Remote.asp para fazer um combo.

Mas tive que mudar o SQL dele pq tenho mais dados envolvidos e mais tabelas tb.

Ai ficou assim o arquivo todo:

 

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("banco/db_sistema.mdb")Conexcao.opencampanha = Request("campanha")SQL = "Select coligada.fantasia From coligada,inter_campanha_coligada where coligada.codcoligada=inter_campanha_coligada.coligada AND inter_campanha_coligada.campanha='"&campanha&"' GROUP BY coligada.fantasia"set rs = Conexcao.Execute(SQL)%>  <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(campanha)%>";	  loc[<%=j%>][1] = "<%=trim(rs("fantasia"))%>";	  <%	  rs.movenext	  j  = j  + 1	 loop   rs.close  set rs = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script>

quando mando exibir o html da pagina retorna 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] = "teste";

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

 

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

loc[1][1] = "teste coligada2";

 

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

loc[2][1] = "teste coligada3";

 

parent.inicia();

 

</script>

mas no form fica só carregando.

O problema é no meu Form???

 

Vejam como esta:

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

Iframe

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

combo:

<select name="campanha" size="1" id="campanha" onChange="carregar();">					<option value>...</option><%While NOT rs2.EOF%>					<option value="<%= rs2("campanha") %>"><%= rs2("campanha") %></option><%rs2.MoveNextWend%>		  </select>

e

 

<select name="coligada" size="1" id="coligada">					<option value>...</option>		  </select>

Valeu!

[shumi 0]

opa Adriano beleza?

 

meu form chama-se Cadastro. http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

 

poderia ser mais o que??? :wacko:

[shumi 0]

Tá on-line ? Me passa um link aí para ver... :)

O remote é www.newstyle1.com/sis/remote.asp?campanha=testee o form você acessa www.newstyle1.com/sisentra com login rodrigo@newstyel.com.br senha: 123Abs

[shumi 0]

e o form você acessa www.newstyle1.com/sisentra com login rodrigo@newstyel.com.br senha: 123

Login ou senha inválidos! :blink:

hahahha desculparodrigo@newstyle.com.br senha 123

[shumi 0]

hahahha desculpa rodrigo@newstyle.com.br senha 123

Aonde cara ? Só aparece uma barra de menus! :mellow:

desculpa cara minha cabeça ta enorme!Na barra de menu clique no botão carta briefing que fica na opção Dados.Valeu

[shumi 0]

Não deu certo! http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

 

mudei a SQL para adaptar o que você me falou ai ficou assim:

 

SQL = "Select coligada.fantasia,inter_campanha_coligada.campanha From coligada,inter_campanha_coligada where coligada.codcoligada=inter_campanha_coligada.coligada AND inter_campanha_coligada.campanha='"&campanha&"' GROUP BY coligada.fantasia,inter_campanha_coligada.campanha"set rs = Conexcao.Execute(SQL)

e mudei para assim:

 

loc[<%=j%>][0] = "<%=trim(rs("campanha"))%>"; loc[<%=j%>][1] = "<%=trim(rs("fantasia"))%>";

abraços

[shumi 0]

Nada faz esse combo funfar cara!!!! :(

[shumi 0]

vou postar os script inteiros.

 

Remote.asp

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("banco/db_sistema.mdb")Conexcao.opencampanha = Request("campanha")SQL = "Select coligada.fantasia,inter_campanha_coligada.campanha From coligada,inter_campanha_coligada where coligada.codcoligada=inter_campanha_coligada.coligada AND inter_campanha_coligada.campanha='"&campanha&"' GROUP BY coligada.fantasia,inter_campanha_coligada.campanha"set rs = Conexcao.Execute(SQL)%>  <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("fantasia"))%>";	  loc[<%=j%>][1] = "<%=trim(rs("fantasia"))%>";	  <%	  rs.movenext	  j  = j  + 1	 loop   rs.close  set rs = nothing   Conexcao.close   set Conexcao = nothing %>   parent.inicia();       </script>

 

Form

 

<!--#include file="includes/conecao.asp"--><%dim Conexcaosql= "select * from coligada"Set rs = Conexcao.Execute(Sql)Sql2 = "Select distinct(campanha) from campanha where dono='"&Session("celula")&"'"Set rs2 = Conexcao.Execute(Sql2)%><!--#include file="includes/title.asp"--><!--#include file="includes/estilo.css"--><script language="JavaScript" type="text/javascript">function FormataValor(campo,tammax,teclapres) {var tecla = teclapres.keyCode;vr = document.getElementById(campo).value;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 (tam < tammax && tecla != 8){ tam = vr.length + 1; }if (tecla == 8 ){ tam = tam - 1; }if ( tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105 ){if ( tam <= 2 ){document.form[campo].value = vr; }if ( (tam > 2) && (tam <= 5) ){document.form[campo].value = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 6) && (tam <= 8) ){document.form[campo].value = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 9) && (tam <= 11) ){document.form[campo].value = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 12) && (tam <= 14) ){document.form[campo].value = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 15) && (tam <= 17) ){document.form[campo].value = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam );}}}</script><script LANGUAGE="javascript">//abre e fecha tabelafunction sub1_abre(tabela){	tabela = document.getElementById(tabela);	if(tabela.style.display=="none"){		tabela.style.display="block";	} else {		tabela.style.display="none";	}}</SCRIPT><script language="JavaScript" type="text/JavaScript">	function carregar(){	Combo1 = document.Cadastro.campanha; //ALTERE AQUI PARA SEU FORM E 1º SELECT	Combo2 = document.Cadastro.coligada; //ALTERE AQUI PARA SEU FORM E 2º SELECT	var url;	url = 'remote.asp?campanha='+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><!--#include file="includes/topo.asp"--><p align="center"><span class="testo14">Carta Briefing</span></p><br><form name="Cadastro" method="post" action="carta_briefing_valida.asp"><p align="center"><table width="744" border="0">		<tr>	<td width="738"><table width="446" height="60" border="0"><tr>	<td width="194"><span class="texto10">Campanha :</span></td>	<td width="150"><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="campanha" size="1" id="campanha" onChange="carregar();">					<option value>...</option><%While NOT rs2.EOF%>					<option value="<%= rs2("campanha") %>"><%= rs2("campanha") %></option><%rs2.MoveNextWend%>		  </select>	</td>		</tr>		<tr>	<td width="194"><span class="texto10">Parceira  :</span></td>	<td width="150"><select name="coligada" size="1" id="coligada">					<option value>...</option>		  </select></td>		</tr>	<tr><%Response.Write("<td><span class='texto10'>Data de inclussão:</span></td><td><span class='texto10' style='color:#FF0000'>"&Now()&"</span></td><td><span class='texto10' style='color:#FF0000'>"&Session("login")&"</span></td></tr>")%></table><table width="611" border="1">  <tr>	<td width="156"><div align="center"><span class="texto10">Material que está recebendo : </span></div></td>	<td width="439"><textarea name="material_recebendo" cols="80" rows="8" id="material_recebendo"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Produto que está recebendo : </span></div></td>	<td><textarea name="produto_recebendo" cols="80" rows="8" id="produto_recebendo"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Uniforme que está recebendo : </span></div></td>	<td><textarea name="uniforme_recebendo" cols="80" rows="8" id="uniforme_recebendo"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Material para treinamento : </span></div></td>	<td><textarea name="material_treinamento" cols="80" rows="8" id="material_treinamento"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Trabalho da parceria : </span></div></td>	<td><textarea name="trabalho_parceria" cols="80" rows="8" id="trabalho_parceria"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Trabalho da supervisão : </span></div></td>	<td><textarea name="trabalho_supervisao" cols="80" rows="8" id="trabalho_supervisao"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Trabalho da coordenação : </span></div></td>	<td><textarea name="trabalho_coordenacao" cols="80" rows="8" id="trabalho_coordenacao"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Material que deverá ser comprado pela parceira: </span></div></td>	<td><textarea name="material_comprado_parceira" cols="80" rows="8" id="material_comprado_parceira"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Seleção e treinamento  : </span></div></td>	<td><textarea name="selecao_treinamento" cols="80" rows="8" id="selecao_treinamento"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Relatórios  : </span></div></td>	<td><textarea name="relatorios" cols="80" rows="8" id="relatorios"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Envio de Status   : </span></div></td>	<td><textarea name="envio_status" cols="80" rows="8" id="envio_status"></textarea></td>  </tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da taxa de parceira  : </span></div></td>	<td width="144"><input name="valor_taxa_parceira" type="text" id="valor1" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(taxa de parceira) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_recebimento_taxa_de_parceira" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_recebimento_taxa_de_parceira" type="radio" value="Reembolso"></span></div></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da taxa de supervisão  : </span></div></td>	<td width="144"><input name="valor_taxa_supervisao" type="text" id="valor2" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(taxa de supervisão) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_recebimento_taxa_de_supervisao" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_recebimento_taxa_de_supervisao" type="radio" value="Reembolso"></span></div></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da taxa de coordenação  : </span></div></td>	<td width="144"><input name="valor_taxa_coordenacao" type="text" id="valor3" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(taxa de coordenação) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_recebimento_taxa_de_coordenacao" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_recebimento_taxa_de_coordenacao" type="radio" value="Reembolso"></span></div></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da verba para compra de material: </span></div></td>	<td width="144"><input name="valor_verba_compra_material" type="text" id="valor4" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(compra de material) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_compra_de_material" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_compra_de_material" type="radio" value="Reembolso"></span></div></td></tr><tr>	<td width="144"><div align="center"><span class="texto10">Fotos : </span></div></td><td width="308"><div align="left"><span class="texto10">Sim :</span>	  <input name="fotos" type="radio" value="sim" onClick="java script:sub1_abre('tabela1');"><span class="texto10">Não :</span><input name="fotos" type="radio" value="Não" onClick="java script:sub1_abre('tabela2');"></div></td><td><div id="tabela1" style="display:none;text-align:justify;"><textarea name="mais_informacao" cols="50" rows="5" id="mais_informacao"></textarea></div><div id="tabela2" style="display:none;text-align:justify;"><input name="mais_informacao" type="hidden"></div></td></tr></table></p><p align="center">			<input type="submit" name="envia" value="Confirmar">	 		<input type="reset" name="limpa" value="Limpar"></p></form><!--#include file="includes/voltar.asp"-->  <!--#include file="includes/rodape.asp"--></body></html><!--#include file="includes/msgs.asp"-->

 

Valeu!!!

[shumi 0]

Galera tentei refazer tudo mas fica a msg carregando.... http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[shumi 0]

Consegui!!!!

 

erro:

<%campanha = Request("campanha")set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("banco/db_sistema.mdb")SQL = "Select coligada.fantasia,inter_campanha_coligada.campanha From coligada,inter_campanha_coligada where coligada.codcoligada=inter_campanha_coligada.coligada AND inter_campanha_coligada.campanha='"&campanha&"' GROUP BY coligada.fantasia,inter_campanha_coligada.campanha"set rs = server.CreateObject("ADODB.Recordset")Conexcao.openrs.CursorType = 3rs.Open SQL, Conexcao%>

 

Valeu!!!!

[filipescoob 1]

O que tinha de errado seu codigo pois testei aqui e não rolou nada kara não sai do carregando.... e achei legal seu codigo...

Consegui!!!!erro:

<%campanha = Request("campanha")set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("banco/db_sistema.mdb")SQL = "Select coligada.fantasia,inter_campanha_coligada.campanha From coligada,inter_campanha_coligada where coligada.codcoligada=inter_campanha_coligada.coligada AND inter_campanha_coligada.campanha='"&campanha&"' GROUP BY coligada.fantasia,inter_campanha_coligada.campanha"set rs = server.CreateObject("ADODB.Recordset")Conexcao.openrs.CursorType = 3rs.Open SQL, Conexcao%>

Valeu!!!!

[shumi 0]

o script na verdade não é meu.É do Adriano.Posta ai como você fez para ver se eu consigo te ajudar.

[filipescoob 1]

Ta ai o codigo... valeu

 

remote.asp

 

<!--#include file="func.asp"--><%campanha = Request("campanha")rs = server.CreateObject("adodb.recordset")SQL = "Select cod_sub_categ, nome_sub_categ From tbl_sub_categ where cod_categ_ = "&campanhaset rs = Conexcao.Execute(SQL)%>  <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("cod_sub_categ"))%>";	  loc[<%=j%>][1] = "<%=trim(rs("nome_sub_categ"))%>";	  	<%	  rs.movenext	  j  = j  + 1	 loop   rs.close  set rs = nothing   Conexao.close   set Conexao = nothing    %>   parent.inicia();       </script>

mandar.asp

 

<!--#include file="func.asp"--><%dim Conexaoset rs2 = Server.CreateObject("adodb.recordset")Sql2 = "select nome_categ, cod_categ from tbl_categoria"Set rs2 = Conexao.Execute(Sql2)%><script language="JavaScript" type="text/javascript">function FormataValor(campo,tammax,teclapres) {var tecla = teclapres.keyCode;vr = document.getElementById(campo).value;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 (tam < tammax && tecla != 8){ tam = vr.length + 1; }if (tecla == 8 ){ tam = tam - 1; }if ( tecla == 8 || tecla >= 48 && tecla <= 57 || tecla >= 96 && tecla <= 105 ){if ( tam <= 2 ){document.form[campo].value = vr; }if ( (tam > 2) && (tam <= 5) ){document.form[campo].value = vr.substr( 0, tam - 2 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 6) && (tam <= 8) ){document.form[campo].value = vr.substr( 0, tam - 5 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 9) && (tam <= 11) ){document.form[campo].value = vr.substr( 0, tam - 8 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 12) && (tam <= 14) ){document.form[campo].value = vr.substr( 0, tam - 11 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam ); }if ( (tam >= 15) && (tam <= 17) ){document.form[campo].value = vr.substr( 0, tam - 14 ) + '.' + vr.substr( tam - 14, 3 ) + '.' + vr.substr( tam - 11, 3 ) + '.' + vr.substr( tam - 8, 3 ) + '.' + vr.substr( tam - 5, 3 ) + ',' + vr.substr( tam - 2, tam );}}}</script><script LANGUAGE="javascript">//abre e fecha tabelafunction sub1_abre(tabela){	tabela = document.getElementById(tabela);	if(tabela.style.display=="none"){		tabela.style.display="block";	} else {		tabela.style.display="none";	}}</SCRIPT><script language="JavaScript" type="text/JavaScript">	function carregar(){	Combo1 = document.Cadastro.campanha; //ALTERE AQUI PARA SEU FORM E 1º SELECT	Combo2 = document.Cadastro.coligada; //ALTERE AQUI PARA SEU FORM E 2º SELECT	var url;	url = 'remote.asp?campanha='+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><p align="center"><span class="testo14">Carta Briefing</span></p><br><form name="Cadastro" method="post" action="carta_briefing_valida.asp"><p align="center"><table width="744" border="0">		<tr>	<td width="738"><table width="446" height="60" border="0"><tr>	<td width="194"><span class="texto10">Campanha :</span></td>	<td width="150"><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="campanha" size="1" id="campanha" onChange="carregar();">					<option value>...</option><%While NOT rs2.EOF%>					<option value="<%= rs2("cod_categ") %>"><%= rs2("nome_categ") %></option><%rs2.MoveNextWend%>		  </select>	</td>		</tr>		<tr>	<td width="194"><span class="texto10">Parceira  :</span></td>	<td width="150"><select name="coligada" size="1" id="coligada">					<option value>...</option>		  </select></td>		</tr>	<tr><%Response.Write("<td><span class='texto10'>Data de inclussão:</span></td><td><span class='texto10' style='color:#FF0000'>"&Now()&"</span></td><td><span class='texto10' style='color:#FF0000'>"&Session("login")&"</span></td></tr>")%></table><table width="611" border="1">  <tr>	<td width="156"><div align="center"><span class="texto10">Material que está recebendo : </span></div></td>	<td width="439"><textarea name="material_recebendo" cols="80" rows="8" id="material_recebendo"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Produto que está recebendo : </span></div></td>	<td><textarea name="produto_recebendo" cols="80" rows="8" id="produto_recebendo"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Uniforme que está recebendo : </span></div></td>	<td><textarea name="uniforme_recebendo" cols="80" rows="8" id="uniforme_recebendo"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Material para treinamento : </span></div></td>	<td><textarea name="material_treinamento" cols="80" rows="8" id="material_treinamento"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Trabalho da parceria : </span></div></td>	<td><textarea name="trabalho_parceria" cols="80" rows="8" id="trabalho_parceria"></textarea></td>  </tr>  <tr>	<td><div align="center"><span class="texto10">Trabalho da supervisão : </span></div></td>	<td><textarea name="trabalho_supervisao" cols="80" rows="8" id="trabalho_supervisao"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Trabalho da coordenação : </span></div></td>	<td><textarea name="trabalho_coordenacao" cols="80" rows="8" id="trabalho_coordenacao"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Material que deverá ser comprado pela parceira: </span></div></td>	<td><textarea name="material_comprado_parceira" cols="80" rows="8" id="material_comprado_parceira"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Seleção e treinamento  : </span></div></td>	<td><textarea name="selecao_treinamento" cols="80" rows="8" id="selecao_treinamento"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Relatórios  : </span></div></td>	<td><textarea name="relatorios" cols="80" rows="8" id="relatorios"></textarea></td>  </tr><tr>	<td><div align="center"><span class="texto10">Envio de Status   : </span></div></td>	<td><textarea name="envio_status" cols="80" rows="8" id="envio_status"></textarea></td>  </tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da taxa de parceira  : </span></div></td>	<td width="144"><input name="valor_taxa_parceira" type="text" id="valor1" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(taxa de parceira) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_recebimento_taxa_de_parceira" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_recebimento_taxa_de_parceira" type="radio" value="Reembolso"></span></div></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da taxa de supervisão  : </span></div></td>	<td width="144"><input name="valor_taxa_supervisao" type="text" id="valor2" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_taxa_supervisao_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(taxa de supervisão) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_recebimento_taxa_de_supervisao" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_recebimento_taxa_de_supervisao" type="radio" value="Reembolso"></span></div></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da taxa de coordenação  : </span></div></td>	<td width="144"><input name="valor_taxa_coordenacao" type="text" id="valor3" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_taxa_coordenacao_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(taxa de coordenação) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_recebimento_taxa_de_coordenacao" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_recebimento_taxa_de_coordenacao" type="radio" value="Reembolso"></span></div></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Valor da verba para compra de material: </span></div></td>	<td width="144"><input name="valor_verba_compra_material" type="text" id="valor4" onKeyDown="FormataValor(this.id, 13, event)"></td>	<td width="104"><span class="texto10">Pelo trabalho</span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Pelo trabalho"></td>	<td width="104"><span class="texto10">Por dia </span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Por dia"></td>	<td width="104"><span class="texto10">Por período </span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Por período"></td><td width="104"><span class="texto10">Por mês </span>	  <input name="valor_verba_compra_material_pelo_o_q" type="radio" value="Por mês"></td></tr></table><table width="744" border="1"><tr>	<td width="144"><div align="center"><span class="texto10">Documento para recebimento(compra de material) : </span></div></td><td width="308"><div align="left"><span class="texto10">Sua NF de serviço :  <input name="documento_para_compra_de_material" type="radio" value="NF de serviço"></span></div></td><td width="270"><div align="left"><span class="texto10">Reembolso :  <input name="documento_para_compra_de_material" type="radio" value="Reembolso"></span></div></td></tr><tr>	<td width="144"><div align="center"><span class="texto10">Fotos : </span></div></td><td width="308"><div align="left"><span class="texto10">Sim :</span>	  <input name="fotos" type="radio" value="sim" onClick="java script:sub1_abre('tabela1');"><span class="texto10">Não :</span><input name="fotos" type="radio" value="Não" onClick="java script:sub1_abre('tabela2');"></div></td><td><div id="tabela1" style="display:none;text-align:justify;"><textarea name="mais_informacao" cols="50" rows="5" id="mais_informacao"></textarea></div><div id="tabela2" style="display:none;text-align:justify;"><input name="mais_informacao" type="hidden"></div></td></tr></table></p><p align="center">			<input type="submit" name="envia" value="Confirmar">			 <input type="reset" name="limpa" value="Limpar"></p></form></body></html>

[shumi 0]

você tem ele hospedado em algum lugar?Tem como disponibilizar a URL?Pois tem como testar se o erro é no remote.Tipo o meu da para testar assim:www.newstyle1.com/remote.asp?campanha=testeai você manda exibir o cod de fonte do site e vai aparecer as coligadas dessa campanha.O seu ta online???