Ir para conteúdo

POWERED BY:

Arquivado

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

cabral51

Problemas com select e top

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

E ae galera, tenhu na pagina form_clientes na qual ela tem um formulario de clientes, preciso ter uma setinha pra ir para o o proximo formulario, porém ja contem uma sql nesta pagina e naum estou conseguindo!!

<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexao.asp"--><%  RESPONSE.BUFFER = TRUE  session.LCID = 1046' Banco de Dados e Tabelas  Dim proximo,banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,empresa,cadastro,listar2    entid=trim(request.querystring("entid"))  codigox=trim(request.querystring("codigox"))  cadastro=request.QueryString("cadastro")  listar2=request.QueryString("listar2")  proximo=request.QueryString("proximo")  call abre_banco%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Grupo Mercosul - Marcas e Patentes-Dados dos Clientes</title><style type="text/css"><!--body {	background-image: url(../atualizacao/bg.jpg);	margin-top: 0px;	background-color: #CCCCCC;}.style11 {	font-family: "Trebuchet MS";	font-size: 12px;}.style17 {	color: #FFFFFF;	font-family: "Trebuchet MS";	font-size: 11px;}a:link {	text-decoration: none;}a:visited {	text-decoration: none;}a:hover {	text-decoration: none;}a:active {	text-decoration: none;}.style29 {color: #000000}#banner {align:center;margin-top:20px;margin-left:10px; }.style30 {font-size: 36px}--></style><script language="JavaScript" type="text/JavaScript"><!--function MM_preloadImages() { //v3.0  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();	var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)	if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}}function MM_findObj(n, d) { //v4.01  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {	d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);  if(!x && d.getElementById) x=d.getElementById(n); return x;}function MM_validateForm() { //v4.0  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);	if (val) { nm=val.name; if ((val=val.value)!="") {	  if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');		if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';	  } else if (test!='R') { num = parseFloat(val);		if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';		if (test.indexOf('inRange') != -1) { p=test.indexOf(':');		  min=test.substring(8,p); max=test.substring(p+1);		  if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';	} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }  } if (errors) alert('The following error(s) occurred:\n'+errors);  document.MM_returnValue = (errors == '');}//--></script></head><body><table width="777" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td width="777"><table width="778" border="0" align="center" cellpadding="0" cellspacing="0">	  <tr>		<td width="778"><img src="topo%20copy.jpg" alt="Página principal" width="778" height="100" border="0"></td>	  </tr>	</table></td>  </tr></table><table width="777" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td align="left" valign="top" bgcolor="#015792"><div align="justify"><a href="lista_cliente.asp?listar=cliente&codigox=<%=codigox%>&entid=<%=entid%>"><img src="clientescomarca.gif" width="152" height="35" border="0"></a><a href="lista_cliente.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="clientesemarca.gif" width="152" height="35" border="0"></a><a href="indicacao.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="indicar.gif" width="152" height="35" border="0"></a><a href="form_buscamarca.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="buscainpi.gif" width="164" height="35" border="0"></a><a href="orcamento.asp?listar=prospect&codigox=<%=codigox%>&entid=<%=entid%>"><img src="orçamento.gif" width="152" height="35" border="0"></a> </div></td>  </tr></table><table width="777" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>	<td width="777" bgcolor="#3777B0"> </td>  </tr></table><table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="style11">  <tr> 	<td width="151" align="left" valign="top" bgcolor="#f3f3f3"><p> 		<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="151" height="266">		  <param name="movie" value="menu-esquerdo.swf">		  <param name="quality" value="high">		  <embed src="menu-esquerdo.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="151" height="266"></embed> 		</object>	  </p></td>	<td width="609" align="left" valign="top" bgcolor="#FFFFFF"><blockquote>		   <div id="banner">			 <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="527" height="80">			   <param name="movie" value="BANNERCODI3.swf">			   <param name="quality" value="high">			   <embed src="BANNERCODI3.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="527" height="80"></embed>			 </object></div><br><table width="200" border="0" align="right" cellspacing="5">		  <tr>			<td><a href="form_codi.asp?lista_cliente.asp?listar=cliente&codigox=<%=codigox%>&entid=<%=entid%>" target="_self" style="text-decoration:none;"><img src="setinha.gif"></a> </td>		  </tr>	  </table> <p><br>			  	  </p><p><br>				</p><form name="form1" method="post" action="envia_cliente.asp">		  <%		StrSql="Select * from clientes"		StrSql= StrSql & " where cadastro=" & cadastro 		set tbBanco1=banco.Execute(strSQL)		%>			<p align="center">		  <div align="left">			<blockquote>			  <p><strong><font size="4" face="Verdana, Arial, Helvetica, sans-serif">Dados 			  do Cliente</font></strong></p>			</blockquote>		  </div>			<strong><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><br>		   			<div align="center">			  <% =tbbanco1("empresa") %>			</div>			</font>			<p align="center" style="font-size:12px"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Preencha os campos que estão em branco, e atualize seus dados.</font></strong></p>			</font>			</p>		  <table width="543" border="0" align="center">			<tr> 			  <td width="248">CNPJ: 				<input name="cnpj" type="text" id="cnpj" style="margin-left:16px" onBlur="MM_validateForm('0','','R');return document.MM_returnValue" value="<% =tbbanco1("cnpj") %>"> 			  </td>			  <td width="267">Empresa:				<input name="empresa" type="text" id="empresa" style="margin-left:43px" onBlur="MM_validateForm('0','','R');return document.MM_returnValue" value="<% =tbbanco1("empresa") %>"></td>			</tr>			<tr> 			  <td height="29">Site: 				<input name="site" type="text" id="site2" style="margin-left:23px" value="<% =tbbanco1("sitecli") %>"></td>			  <td>Email:				<input name="email" type="text" id="email" style="margin-left:61px" value="<% =tbbanco1("email") %>"></td>			</tr>			<tr> 			  <td>Cidade: 				<input name="cidade" type="text" id="cidade2" style="margin-left:7px" onBlur="MM_validateForm('0','','R');return document.MM_returnValue" value="<% =tbbanco1("cidadeclicorrespondencia") %>"></td>			  <td>End.Correspond:				<input name="endereco" type="text" id="endereco" value="<% =tbbanco1("end_de_correspondencia") %>"></td>			</tr>			<tr> 			  <td>Fone1: 				<input name="fone1" type="text" id="fone12" style="margin-left:11px" onBlur="MM_validateForm('0','','R');return document.MM_returnValue" value="<% =tbbanco1("fone1cli") %>"></td>			  <td>CEP:				<input name="cep" type="text" id="cep" style="margin-left:68px" onBlur="MM_validateForm('0','','R');return document.MM_returnValue" value="<% =tbbanco1("cepcli") %>"></td>			</tr>			<tr> 			  <td>Fax: 				<input name="fax" type="text" id="fax2" style="margin-left:26px" value="<% =tbbanco1("fax_cli") %>"></td>			  <td>Fone2:				<input name="fone2" type="text" id="fone2" style="margin-left:55px" value="<% =tbbanco1("fone2cli") %>"></td>			</tr>			<tr> 			  <td>Contato: 				<input name="contato" type="text" id="contato2" value="<% =tbbanco1("contatocli") %>"></td>			  <td><% if listar2="p" then%>Motivo:				<input name="motivo" type="text" id="motivo" style="margin-left:50px" value="<% =tbbanco1("rellig") %>">  <%end if%></td>			</tr>			<tr> 			  <td height="25"> </td>			  <td>Cargo.contato:				<input name="cargo" type="text" id="cargo" style="margin-left:9px" value="<% =tbbanco1("cargocontatocli") %>"></td>			</tr>					  </table>		  <div align="center">			 <% 			   StrSQl= "Select Top 1 * From clientes where cadastro<>" &cadastro			  strsql= "Order By cadastro Desc" 		   				proximo=tbbanco1("cadastro")			  %>			<p align="right" class="style29 style30"><<a href="form_cliente.asp?proximo=<%=proximo%>&entid=<%=entid%>&codigox=<%=codigox%>&listar2=p">></a></p>		 				<p class="style29"> 			  <input type="submit" name="Submit" value="Enviar Dados">			  <input name="codigox" type="hidden" id="codigox" value="<% =codigox %>">			  <input name="entid" type="hidden" id="entid" value="<% =entid %>">			</p>		  </div>	  </form><%				tbBanco1.Close		set tbBanco1=Nothing %>		<p align="center" class="style29"> 		</p>	</blockquote></td>  </tr>  <tr>	<td align="left" valign="top" bgcolor="#f3f3f3"> </td>	<td align="left" valign="top" bgcolor="#FFFFFF"> </td>  </tr></table><table width="779" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#60676F">  <tr>	<td width="779" bgcolor="#60676F"><div align="center" class="style17">© 1995-2005 - Todos os direitos reservados </div></td>  </tr></table><p style="margin-bottom: 0;"> </p></body></html><% call fecha_banco %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

O negocio esta confuso!!O que tô pedindo, e a estrutura de como esta a informação dos seus dados, já que você disse que e tudo aleatorio, entao preciso ver como está!!Sacou!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

na verdade naum esta aleatorio vo tentar explicar os mais importantes

 

 

<form name="form1" method="post" action="envia_cliente.asp">		  <%		StrSql="Select * from clientes"		StrSql= StrSql & " where cadastro=" & cadastro		set tbBanco1=banco.Execute(strSQL)		%>' aqui ele faz a aconsulta para trazer os dados do cara para o formulário!
Aqui esta o problema eu quero que tenha duas flechas <> uma para ir para o proximo formulario e outra para ir para o anterior, ja sei q terei que faze isso pelo cadastro, o cadastro maior do q este onde ele esta eh o q ele vai seguir

<% 			   StrSQl= "Select Top 1 * From clientes where cadastro<>" &cadastro			  strsql= "Order By cadastro Desc" 			   			proximo=tbbanco1("cadastro")			  %>			<p align="right" class="style29 style30"><<a href="form_cliente.asp?proximo=<%=proximo%>&entid=<%=entid%>&codigox=<%=codigox%>&listar2=p">></a></p>			 			<p class="style29"> 			  <input type="submit" name="Submit" value="Enviar Dados">			  <input name="codigox" type="hidden" id="codigox" value="<% =codigox %>">			  <input name="entid" type="hidden" id="entid" value="<% =entid %>">			</p>		  </div>	  </form><%				tbBanco1.Close		set tbBanco1=Nothing %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Bom na verdade ele vai para o mesmo formulario porem de outro cara se o cadastro do formulario q eu estou eh 1089 ele vai para o 1090 ou 1091 depende cqual o sucessor do q eu estou

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

se liga brunao:

<% if cadastro<> "" then			 ' proximo=cadastro			 StrSQl= "SELECT MAX( cadastro ) AS PROXIMO FROM clientes WHERE cadastro > "&cadastro		   ' strsql=  "Order By cadastro Desc" 		   	%>			<p align="right" class="style29 style30"><<a href="form_cliente.asp?cadastro=<%=tbbanco1("cadastro")%>&entid=<%=entid%>&codigox=<%=codigox%>&listar2=p">></a></p>		 	<%	end if%>
o problema eh que ali no a href eu to passando como parametro o cadastro=<%=tbbanco1("cadastro")

porem existe outra consulta nessa pagina que eh esta:

<%		StrSql="Select * from clientes"		StrSql= StrSql & " where cadastro=" & cadastro 		set tbBanco1=banco.Execute(strSQL)		%>
entaum quando eu clio na seta pra ir pra proxima pagina ele cai no mesmo formulario

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

<% if cadastro<> "" then ' proximo=cadastroStrSQl= "SELECT MAX( cadastro ) AS PROXIMO FROM clientes WHERE cadastro > "&cadastro *********************** ' strsql= "Order By cadastro Desc" %> <p align="right" class="style29 style30"><<a href="form_cliente.asp?cadastro=<%=tbbanco1("cadastro")%>&entid=<%=entid%>&codigox=<%=codigox%>&listar2=p">></a></p> <% end if%>

Cara, qual e o valor da variavel cadastro...Onde esta marcado, coloque a seguinte linha :Response.Write(cadastro)Response.End()Poste ae o resultado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Depende bruno da lista clientes que eh uma lista onde estao os clientes cada um tem um cadastro do banco, por exemplo eu clikei em um q o cadastro eh 14089

Compartilhar este post

Link para o post
Compartilhar em outros sites

joacatito    0

joacatito
Postado

Ainda não entendi seu problema...Mas de qq forma...Já tentou criar mais <form> com actions diferentes? Ou dependendo da consulta alterar o action do form?Lembrando q um form não pode ficar dentro do outro...Aí você jogaria o valor em campos hidden ou em Session e resgataria nas outras páginas... Sei lá...Tenta explicar melhor.

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