Ir para conteúdo

POWERED BY:

Arquivado

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

cabral51

Problemas com , próximo e anterior

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

E ae galera!!!

estou com uma página chamada lista_cliente e outra chama form_cliente, o lista_cliente, somente lista as empresa e os dados delas com um link para o formulario desta empresa(form_cliente), dentro deste formulario eu precisaria de duas setas < > que vai para a próxima empresa e a empresa anterior, como fazer isto??

Vou deixar o código do form_cliente:

<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexao.asp"--><%  RESPONSE.BUFFER = TRUE  session.LCID = 1046' Banco de Dados e Tabelas  Dim 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")  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;}.style28 {	color: #000000;	font-weight: bold;	font-size: 24px;}.style29 {color: #000000}--></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">	<p align="center" style="margin-top:20px; margin-left:10px;">	  <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="BANNERCODI2.swf">		<param name="quality" value="high">		<embed src="BANNERCODI2.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="527" height="80"></embed>	  </object></p><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">			<p class="style29"> </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

Eu já fiz isso, utilizando SQL!!!

 

Você deve fazer duas SQL´s - Uma para o PROXIMO e outra para ANTERIOR

 

Ficara assim:

 

PROXIMO 

SELECT MAX( CODIGO ) AS PROXIMO FROM TABLE WHERE CODIGO_PRODUTO > CODIGO_ATUAL

ANTERIOR 

SELECT MAX( CODIGO ) AS ANTERIOR FROM TABLE WHERE CODIGO_PRODUTO < CODIGO_ATUAL
Faça o teste e veja o resultado.....

Qualquer coisa estamos ae!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

entaum brunao blza??isso eu pensei tudo so q tem um probleminha soh hehe!!o meu codigo naum esta crecente, esta aleatorio suponhamos: a primeira empresa eh numero 1082 a segunda eh 1087 mas a terceira eh 1045, na verdade o q eu estava pensando era fazer por consulta de ordem alfabetica mas naum estou conseguindo ta complicado!!!Valeww

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