Ir para conteúdo

POWERED BY:

Arquivado

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

Cesão

Sincronismo de Menu de Lista

Por , em ASP Clássico

Recommended Posts

Cesão    1

Cesão
Postado

Usei um exemplo aqui do forum para sincronizar 2 menu de lista...

mas está dando erro... acho que eh na parte do remote.asp... alguem pode me ajudar??

 

remote.asp

<%dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\bracing\br_dados.mdb"   SQL1 = "SELECT DISTINCT id_cat, categoria FROM categorias WHERE marca = "&request.querystring("idm")& " ORDER BY categoria"   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("id_cat"))%>";	  loc[<%=j%>][1] = "<%=trim(rs1("categoria"))%>";	  <%	  rs1.movenext	  j  = j  + 1	 loop%>   parent.inicia();    </script>
e minha pagina (a parte que interessa):

<script>function carregar(){var url;url = 'remote.asp?idm='+document.insere_produto.marca[document.insere_produto.marca.selectedIndex].value;document.insere_produto.categoria.options.length = 0;addItem(document.insere_produto.categoria,"Aguarde...carregando","",false,document.insere_produto.categoria.length)myIframe.location = url;document.insere_produto.categoria.focus()}function inicia(){local1 = new Array();var maximo1, i, campo1;local1 = myIframe.loc;campo1 = document.insere_produto.categoria;maximo1 = local1.length;document.insere_produto.categoria.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><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">  <tr>	<td align="center" valign="top"><TABLE WIDTH=796 BORDER=0 CELLPADDING=0 CELLSPACING=0>	  <TR>		<TD COLSPAN=5> <IMG SRC="images/bracing_01.gif" WIDTH=796 HEIGHT=27 ALT=""></TD>	  </TR>	  <TR>		<TD ROWSPAN=6 valign="top"> <IMG SRC="images/bracing_02.jpg" WIDTH=32 HEIGHT=573 ALT=""></TD>		<TD colspan="3"><!--#include file="topo.asp"--></TD>		<TD ROWSPAN=6 valign="top"> <IMG SRC="images/bracing_05.jpg" WIDTH=34 HEIGHT=573 ALT=""></TD>	  </TR>	  <TR>		<TD COLSPAN=3><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="730" height="38">		  <param name="movie" value="flash/logos.swf">		  <param name="quality" value="high">		  <embed src="flash/logos.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="730" height="38"></embed>		</object> </TD>	  </TR>	  <TR>		<TD COLSPAN=3 background="images/bracing_08.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">			<tr>			  <td width="50%" height="395" align="center" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">				<tr class="txts">				  <td height="20" align="right"> </td>				  <td width="8%" align="right" style="cursor:hand;" onClick="java script:history.back();"><b>VOLTAR  </b></td>				</tr>				<tr>				  <td height="20" colspan="2"> </td>				</tr>				<tr class="titline">				  <td height="20" colspan="2"><b>ADICIONAR PRODUTO </b></td>				</tr>				<tr>				  <td colspan="2"><img src="image/spacer.gif" width="1" height="1"></td>				</tr>				<tr>				  <td colspan="2"><form action="add_produtos.asp" method="post" enctype="multipart/form-data" name="insere_produto">					<table width="100%"  border="0" cellpadding="0" cellspacing="0" class="txts">					  <tr>						<td width="2%"> </td>						<td width="11%">Produto:</td>						<td width="87%"><input name="produto" type="text" class="cxtxt" id="produto" size="50"><IFRAME src name="myIframe" id="myIframe" width="400" height="100" marginwidth="0" marginheight="0" style="display:none;"></iframe>						  </td>					  </tr>					  <tr>						<td> </td>						<td>Marca:</td>						<td><SELECT NAME="marca" SIZE="0" CLASS="cxtxt" onchange="carregar();">		  <%   SQL = " SELECT * FROM marcas "  Set RS = Conexao.Execute(SQL)  Do Until Rs.EOF		   marca = Rs("nome") 		   id_marca = Rs("id_marca")	 		  %><OPTION value=<%=rs("id_marca")%>><%=rs("nome")%></OPTION>				   <%		   Rs.movenext  loop 				   %></SELECT></td>
Se alguem puder me ajudar a solucionar o erro... ele nao sai do "Aguarde Carregando"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Eu testei o remote.asp dando um response.write na minha SQL (para testar entrei tipo //localhost/site/remote.asp?idm=1) e ele deu falha.. nao consigo deixar ele rodando perfeitamente... testei hospedando ele e tudo o mais mas tbm nao funciona... o que será qu eta acontecendo?alguem pode me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

ele dah o seguinte erro quando testo remote.aspMicrosoft JET Database Engine (0x80040E07)Tipo de dados imcompatível na expressão de critério./bracing/remote.asp, line 9a linha 9 eh a linha:rs1.Open SQL1, dbConnbom gente, consegui sozinho... eh que no meu banco um dos campos estava definido com texto e nao como numero...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito