Ir para conteúdo

POWERED BY:

Arquivado

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

shumi

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

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

talvez o erro seja o mesmo veja la em cima que o nome do form tambem esta diferentetem que estar tudo igual em todas as referencias ao form

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Onde??? veja acho que arrumei todos... essa mensagem já ta me enchendo hehehe

 

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("dbsistema.mdb")Conexcao.openIf NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd If'varcod = request.querystring("varcod")' resgatando o id da campanhacod = request("id")sql = "select * from dados where cod=" & codSet rs=Conexcao.Execute(sql)%><html><head><title>Sistema NewStyle</title> <style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;		}		.texto11 {	font-family: Arial, Helvetica, sans-serif;	font-size: 13px;	color: #464646;	}-->  </style>   <script language="JavaScript" type="text/JavaScript">	function carregar(){	Combo1 = document.Cadastro.estabelecimento; //ALTERE AQUI PARA SEU FORM E 1º SELECT	Combo2 = document.Cadastro.promotora; //ALTERE AQUI PARA SEU FORM E 2º SELECT	var url;	url = 'remote.asp?uf='+Combo1[Combo1.selectedIndex].value;	Combo2.options.length = 0;	addItem(Combo2,"Aguarde...carregando","",false,Combo2.length)	myIframe.location = url;	Combo2.focus()	}		function inicia(){	local1 = new Array();	var maximo1, i;	local1 = myIframe.loc;	maximo1 = local1.length;	Combo2.options.length = 0;	//addItem(Combo2,false,Combo2.length);	for (i=0;i<maximo1;i++){	addItem(Combo2,local1[i][1],local1[i][0],false,Combo2.length);	}	}		function addItem(obj,strText,strValue,blSel,intPos){	 	 var newOpt,i,ArTemp,selIndex;	 	 selIndex = (blSel)?intPos:obj.selectedIndex;	 	 newOpt = new Option(strText,strValue);	 	 Len = obj.options.length+1	 	 if (intPos > Len) return	 	 obj.options.length = Len	 	 if (intPos != Len) {	 		  ArTemp = new Array();	 		  for(i=intPos;i<obj.options.length-1;i++)	 			   ArTemp[i] = Array(obj.options[i].text,obj.options[i].value);	 		  for(i=intPos+1;i<Len;i++)	 			   obj.options[i] = new Option(ArTemp[i-1][0],ArTemp[i-1][1]);	 	 }	 	 obj.options[intPos] = newOpt;	 	 if (selIndex > intPos)	 		  obj.selectedIndex = selIndex+1;	 	 else if (selIndex == intPos)	  		  obj.selectedIndex = intPos;	 }	 </script><script LANGUAGE="JavaScript">function formatCurrency(num) {num = num.toString().replace(/\$|\,/g,'');if(isNaN(num))num = "0";sign = (num == (num = Math.abs(num)));num = Math.floor(num*100+0.50000000001);cents = num%100;num = Math.floor(num/100).toString();if(cents<10)cents = "0" + cents;for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)num = num.substring(0,num.length-(4*i+3))+'.'+num.substring(num.length-(4*i+3));return (((sign)?'':'-') + num);}function valor(){var inicial = document.getElementById("inicial").value;var entrada = document.getElementById("entrada").value;var final = document.getElementById("final").value;if (isNaN(inicial) || isNaN(entrada) || isNaN(final) ) {alert("Preencha os campos corretamente!");} else {var vendas = Number(inicial) + Number(entrada) - Number(final);document.getElementById("vendas").value = formatCurrency(vendas); //AQUI FORMATO O CAMPO}}</script></head><body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><img src="topo.jpg"><p>  <style type="text/css"><!-- CSS body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color: #464646;	}--></style></p><p align="center"><span class="texto11">Dados da Promoção <%=rs("acao")%></span></p><center> <form name="Cadastro" id="Cadastro" method="post">	 <input type="hidden" name="cod" value="<%=cod%>">	 	 <table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="91"><span class="texto10">Estabelecimento :</span></td>		 <%		MINHAVARR = rs("estabelecimento")		MEUARRAYR = SPLIT(MINHAVARR,",") %>		<td width="245"><span class="texto10">						  <div style="DISPLAY: none; POSITION: absolute" align="left">			<IFRAME src name="myIframe" id="myIframe" width="400" height="100" marginwidth="0" marginheight="0"></IFRAME>			</div>		  		  <select name="estabelecimento" size="1" id="estabelecimento" onChange="carregar();">			<option value>...</option>			<%		FOR I = LBOUND(MEUARRAYR) TO UBOUND(MEUARRAYR)			%>			<%IF TRIM(MEUARRAYR(I)) <> "" THEN%>			<option value="<%=(MEUARRAYR(I))%>"><%=(MEUARRAYR(I))%></option>			<%END IF%>			<%NEXT%>		  </select></span></td>		  <td width="61"><span class="texto10">Promotora :</span></td>		  <td width="32"><span class="texto10">			<select name="promotora" id="promotora">			<option value></option>						</select></td>			   </tr>		</table>					<table width="457" border="1" bordercolor="#00CCFF">	  <tr>		<td width="35"><span class="texto10">Data :</span></td>		  <td width="178"><input name="data" type="text" id="data" size="2">			/			<input name="data" type="text" id="data" size="2">			/			<input name="data" type="text" id="data" size="4"></td>			 <td width="45"><span class="texto10">Produto:</span></td>		<%		MINHAVAR = rs("nosso_produto")		MEUARRAY = SPLIT(MINHAVAR,",") %>		<td width="169"><span class="texto10">		  <select name="produto" size="1" id="produto">			<option value>...</option>			<%		FOR I = LBOUND(MEUARRAY) TO UBOUND(MEUARRAY)			%>			<%IF TRIM(MEUARRAY(I)) <> "" THEN%>			<option value="<%=(MEUARRAY(I))%>"><%=(MEUARRAY(I))%></option>			<%END IF%>			<%NEXT%>		  </select>	</span></td></tr></table>		<table width="457" border="1" bordercolor="#00CCFF">			<tr>		 <td><div align="center"><span class="texto10">Inicial</span></div></td>		  <td><div align="center"><span class="texto10">Entrada</span></div></td>		  <td><div align="center"><span class="texto10">Final</span></div></td>		  <td><div align="center"><span class="texto10">Vendas</span></div></td>		</tr>		<tr>		  <td>			<div align="center">			<input name="inicial" type="text" id="inicial" size="10" onKeyUp="valor();">		  </div></td>		  <td>			<div align="center">			<input name="entrada" type="text" id="entrada" size="10" onKeyUp="valor();"></div></td>		  <td>			<div align="center">		   			<input name="final" type="text" id="final" size="10" onKeyUp="valor();">		  </div></td>		  <td><div align="center"><span class="texto10">			<input type="text" name="vendas" id="vendas">			</span></div></td>		</tr>							</table>		<br>		<script language="javascript" type="text/javascript">function QualBotao(Id) {	if (Id=="1") {	document.getElementById("Cadastro").action = "acoes_f2.asp?cod="+document.getElementById('cod').value+"&estabelecimento="+estabelecimento+"&data="+data;	} else {	document.getElementById("Cadastro").action = "acoes_valida.asp";	}	document.getElementById("Cadastro").submit();}</script>			   <input type="button" id="1" value="Mais ocorrencia" onClick="QualBotao(this.id);">		<input type="button" id="2" value="Apenas essa" onClick="QualBotao(this.id);">  </form></center><center><p> </p>  <p>	<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">	  <param name="movie" value="voltar4.swf">	  <param name="quality" value="high">	  <embed src="voltar4.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	</object>	<br></p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p></body></html>

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