Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

Paginanação com link '"VBSCRIPT"'

Recommended Posts

Ai galera alguem tem um script de paginação q exiba os produtos um do lado do outro, ao em vez de ser um embaixo do outro,

e com link da pagina de detalhes

Compartilhar este post


Link para o post
Compartilhar em outros sites

Existem várias paginações no Laboratório de Scripts. Dê uma olhada lá.

 

Sobre exibir um do lado do outro é pura lógica. Usando <table> você faz isso. É só quebrar a linha (<tr>) quando exibir o número de produtos desejado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon desculpa mais naun entendi como assim (<tr>).....

devo colocar o <TR> entre parentes hã....

Compartilhar este post


Link para o post
Compartilhar em outros sites

veja como estou usando...

 

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados dados.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela produtos
strQuery = "SELECT * FROM produtos"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>nome</title>
<STYLE type=text/css>

A:link { text-decoration: none}
A:visited { text-decoration: none}


</STYLE>

</head>

<body link="#000000" vlink="#000000" alink="#000000">

	   <%While Not objRS.EOF %> <br>
<table cellspacing="0" cellpadding="0" width="353" class="texto" style="border: 1px solid black">
  <tr>
	<td height="17" width="351" style="height: 12.75pt">
	  <table width="348">
		<col width="64" span="2" style="width:48pt">
		<tr height="17" style="height:12.75pt">
		  <td rowspan="3" height="51" class="xl24" width="135" style="height: 38.25pt"><a href="#" onClick="window.open('<%Response.write objRS("foto")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=no,width=500,height=500'); return false;">
<font size="2" face="Verdana"><img border="1" src="<%Response.write objRS("foto")%>" width="133" height="110"></font></td></a>
		  
		  <td width="199"><font size="2" face="Verdana"><b><%Response.write objRS("nome")%></b></font></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height: 12.75pt" width="199"><font size="2" face="Verdana"><%Response.write objRS("descricao")%></font></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td height="17" style="height: 12.75pt" width="199"><font size="2" face="Verdana" color="#FF0000"><b><%Response.write objRS("valor")%></b></font></td>
		</tr>
		<tr height="17" style="height:12.75pt">
		  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="340"><font face="Verdana" size="1">Atualizado
			em: <%Response.write objRS("data")%></font></td>
		</tr>
	  </table>
	</td>
  </table>
			  <%
  'Move para o próximo registro
  objRS.MoveNext
  Wend
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>

</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

o tr dele entre parêntese é só ênfase no que ele está falando

 

em uma paginação "convencional" você colocar o loop entre as <td> para gerar as linhas, nessa agora coloque entre as <tr> para gerar as colunas necessárias!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola Ted k'

 

Cara deu certo sim, mas e agora como faço para controlar as colunas eu estou precisando de duas entendeu duas em duas tipo assim

 

 

 

PRODUTOS l PRODUTOS

l

- -------------------------------------------------

PRODUTOS l PRODUTOS

l

 

Deu para entender como eu gostaria q ficasse !!!!!!!

 

de uma olhada no no meu projeto http://www.shopcolina.com/nova/produto.asp

Compartilhar este post


Link para o post
Compartilhar em outros sites

só dessa vez rapa!!!

 

hehe

 

<table width="171" border="1" cellspacing="0" cellpadding="0">
  <tr>
<%
for i = 1 to 12
q = q + 1
%>
	<td width="167">d</td>
  <% if q = 4 then %>
  </tr>
<%
q = 0
End If
next
%>
</table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ted k' ultima vez mesmo cara rsrsrs,

usei o script q você postou mas naun deu certo veja o meu script

 

 

produtos.asp

 

<% registros = 2
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("banco.mdb") 
conexao.open 

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 1
rs.PageSize = registros

sql = "SELECT * FROM produtos ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina
While Not rs.EOF AND x < rs.PageSize
x = x + 1 %>
<html>

<head>
<STYLE type=text/css>

A:link { text-decoration: none}
A:visited { text-decoration: none}


</STYLE>
<title></title>
</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000">
	   
	   
	   <table width="1" height="1">
	  <tr>
  <td height=1 width=2>
	<table width="311" >
	 <tr>
		<td height="17" width="303" style="height: 12.75pt">
		  <table width="325" class="texto" style="border: 1px solid #b9b9b9">
			<col width="64" span="2" style="width:48pt">
			<tr height="17" style="height:12.75pt">
			  <td rowspan="3" height="51" class="xl24" width="64" style="height: 38.25pt">
				<p align="center"><a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=no,width=500,height=500'); return false;">
<font size="2" face="Verdana" color="#FF0000"><b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b></font></a></td>
			  <td width="247" align="center">
				<p align="center"><font size="2" face="Verdana"><b><%=rs("nome")%></b></font></td>
			</tr>
			<tr height="17" style="height:12.75pt">
			  <td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana"><%=rs("descricao")%></font></td>
			</tr>
			<tr height="17" style="height:12.75pt">
			  <td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana" color="#FF0000"><b><%=rs("valor")%></b></font></td>
			</tr>
			<tr height="17" style="height:12.75pt">
			  <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317"><font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font></td>
			</tr>
		  </table>
		</td>
	  </table>
	</td>
	   </table>
	   <left><font face="Verdana" size="1">
<% rs.MoveNext
Wend

anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=prod.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=prod.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=prod.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=prod.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=prod.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=prod.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
rs.Close
Set rs = Nothing
End If %>
</font>
	   </body>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Qual o erro em especifico?

Compartilhar este post


Link para o post
Compartilhar em outros sites

mais rapa, folgado hehehe, preste bem a atenção na variável "q", pense que o for é o seu while, olha como fica

 

CODE
<% registros = 2

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

 

'Efetuando a conexão com a base de dados criada -----------------------

Set conexao = Server.CreateObject("AdoDb.Connection")

conexao.provider="Microsoft.Jet.OLEDB.4.0"

conexao.connectionstring=Server.Mappath("banco.mdb")

conexao.open

 

Set rs = Server.Createobject("ADODB.RECORDSET")

set rs.ActiveConnection = Conexao

rs.CursorType = 1

rs.PageSize = registros

 

sql = "SELECT * FROM produtos ORDER BY id DESC"

rs.Open sql

If rs.EOF Then

Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

 

Else

rs.AbsolutePage = pagina

While Not rs.EOF AND x < rs.PageSize

x = x + 1 %>

<html>

 

<head>

<STYLE type=text/css>

 

A:link { text-decoration: none}

A:visited { text-decoration: none}

 

 

</STYLE>

<title></title>

</head>

 

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000">

 

 

<table width="1" height="1">

<tr>

<% q = q + 1 %>

<td height=1 width=2>

<table width="311" >

<tr>

<td height="17" width="303" style="height: 12.75pt">

<table width="325" class="texto" style="border: 1px solid #b9b9b9">

<col width="64" span="2" style="width:48pt">

<tr height="17" style="height:12.75pt">

<td rowspan="3" height="51" class="xl24" width="64" style="height: 38.25pt">

<p align="center"><a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res

izable=no,width=500,height=500'); return false;">

<font size="2" face="Verdana" color="#FF0000"><b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b></font></a></td>

<td width="247" align="center">

<p align="center"><font size="2" face="Verdana"><b><%=rs("nome")%></b></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana"><%=rs("descricao")%></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana" color="#FF0000"><b><%=rs("valor")%></b></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317"><font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font></td>

</tr>

</table>

</td>

</tr>

</table>

</td>

<% if q = 4 then %>

</tr>

<%

q = 0

End If

%>

</table>

<left><font face="Verdana" size="1">

<% rs.MoveNext

Wend

 

anterior = pagina - 1

proxima = pagina + 1

ultima = rs.PageCount

primeira = 1

ultm2 = FormatNumber(rs.PageCount - 1,0)

If pagina <> 1 Then

Response.Write "<b>« <a href=prod.asp?pagina="&primeira&">Primeira Página</a></b> "

End If

If pagina > 1 AND pagina <> 2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

End If

If pagina > 1 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "

End If

Response.Write "<b>[ "&pagina&" ]</b> "

If Not rs.EOF Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "

End If

If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

End If

If Not rs.EOF Then

Response.Write "<b><a href=prod.asp?pagina="&ultima&">Última Página</a> »</b> "

End If

rs.Close

Set rs = Nothing

End If %>

</font>

 

e estava faltando alguns trs que coloquei, ver ai!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola hargon boa noite...

 

Hargon o script do Ted k' de certo, eu gostaria q ficasse de outro jeito um do lado do outro, ja tentei de tudo mais naun consigo oq eu tenho q fazer ...

Ja coloquei o loop em todas os <tr>

 

 

duvidas no script veja no post acima q o ted k' me mandou ........

 

 

me ajuda ai por favor .....

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta aí:

CODE

<% registros = 2

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

 

'Efetuando a conexão com a base de dados criada -----------------------

Set conexao = Server.CreateObject("AdoDb.Connection")

conexao.provider="Microsoft.Jet.OLEDB.4.0"

conexao.connectionstring=Server.Mappath("banco.mdb")

conexao.open

 

Set rs = Server.Createobject("ADODB.RECORDSET")

set rs.ActiveConnection = Conexao

rs.CursorType = 1

rs.PageSize = registros

 

sql = "SELECT * FROM produtos ORDER BY id DESC"

rs.Open sql

If rs.EOF Then

Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

 

Else

rs.AbsolutePage = pagina

x = x + 1 %>

<html>

 

<head>

<STYLE type=text/css>

 

A:link { text-decoration: none}

A:visited { text-decoration: none}

 

 

</STYLE>

<title></title>

</head>

 

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000">

 

 

<table width="1" height="1">

<tr>

<% q = q + 1 %>

<%

While Not rs.EOF AND x < rs.PageSize

%>

<td height=1 width=2>

<table width="311" >

<tr>

<td height="17" width="303" style="height: 12.75pt">

<table width="325" class="texto" style="border: 1px solid #b9b9b9">

<col width="64" span="2" style="width:48pt">

<tr height="17" style="height:12.75pt">

<td rowspan="3" height="51" class="xl24" width="64" style="height: 38.25pt">

<p align="center"><a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res

izable=no,width=500,height=500'); return false;">

<font size="2" face="Verdana" color="#FF0000"><b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b></font></a></td>

<td width="247" align="center">

<p align="center"><font size="2" face="Verdana"><b><%=rs("nome")%></b></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana"><%=rs("descricao")%></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana" color="#FF0000"><b><%=rs("valor")%></b></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317"><font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font></td>

</tr>

</table>

</td>

</tr>

</table>

</td>

<% if q mod 4 = 0 then %>

</tr><tr>

<%

q = 0

End If

%>

</table>

<left><font face="Verdana" size="1">

<% rs.MoveNext

Wend

 

anterior = pagina - 1

proxima = pagina + 1

ultima = rs.PageCount

primeira = 1

ultm2 = FormatNumber(rs.PageCount - 1,0)

If pagina <> 1 Then

Response.Write "<b>« <a href=prod.asp?pagina="&primeira&">Primeira Página</a></b> "

End If

If pagina > 1 AND pagina <> 2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

End If

If pagina > 1 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "

End If

Response.Write "<b>[ "&pagina&" ]</b> "

If Not rs.EOF Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "

End If

If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

End If

If Not rs.EOF Then

Response.Write "<b><a href=prod.asp?pagina="&ultima&">Última Página</a> »</b> "

End If

rs.Close

Set rs = Nothing

End If %>

</font>

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon ficou a mesma coisa....

naun ficou um do lado do outro , ficou um debaixo do outro.....

esta igual o script do ted k'

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olha a correção do jovem Ted ai rs... dei mole.

 

Coloca o q dentro do loop e teste novamente.

Compartilhar este post


Link para o post
Compartilhar em outros sites

ja coloquei hargon mas naun deu certo .....

 

 

 

veja ai

 

<% registros = 2
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

'Efetuando a conexão com a base de dados criada -----------------------
Set conexao = Server.CreateObject("AdoDb.Connection")
conexao.provider="Microsoft.Jet.OLEDB.4.0"
conexao.connectionstring=Server.Mappath("banco.mdb")
conexao.open

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 1
rs.PageSize = registros

sql = "SELECT * FROM produtos ORDER BY id DESC"
rs.Open sql
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else
rs.AbsolutePage = pagina
x = x + 1 %>

<html>
<head>
<STYLE type=text/css>
A:link { text-decoration: none}
A:visited { text-decoration: none}
</STYLE>

<title></title>
</head>

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000">
	 <table width="1" height="1">
<tr>	  <%
While Not rs.EOF AND x < rs.PageSize
q = q + 1 %>
   
	<td height=1 width=2> 
	   <table width="311" >  
		  <tr>	 
  <td height="17" width="303" style="height: 12.75pt">
  <table width="325" class="texto" style="border: 1px solid #b9b9b9">
<col width="64" span="2" style="width:48pt">   
	   <tr height="17" style="height:12.75pt">	
 <td rowspan="3" height="51" class="xl24" width="64" style="height: 38.25pt">
 <p align="center"><a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res
izable=no,width=500,height=500'); return false;">
 <font size="2" face="Verdana" color="#FF0000"><b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b></font></a></td>
 <td width="247" align="center"> 
 <p align="center"><font size="2" face="Verdana"><b><%=rs("nome")%></b></font></td>
 </tr>	
 <tr height="17" style="height:12.75pt">
	 <td height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana"><%=rs("descricao")%></font></td> 
 </tr>
	 <tr height="17" style="height:12.75pt">
	  <td height="17" style="height: 12.75pt" width="247">
	  <font size="2" face="Verdana" color="#FF0000"><b><%=rs("valor")%></b></font></td>
	   </tr>	 
			  <tr height="17" style="height:12.75pt">   
						 <td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317">
	<font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font></td>
				</tr>
						  </table> 
								 </td>
										 </tr>
  </table>  
	</td> 
	<% if q mod 4 = 0 then %> 
	   </tr>
	   <tr>  
  <%q = 0
  End If	%>  
  </table>
  <left><font face="Verdana" size="1">
<% rs.MoveNext
Wend

anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=prod.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=prod.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=prod.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=prod.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=prod.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=prod.asp?pagina="&ultima&">Última Página</a> »</b> "
End If
rs.Close
Set rs = Nothing
End If 
%>
</font>

</body>

Compartilhar este post


Link para o post
Compartilhar em outros sites

chega, retei!!!

 

seu HTML está todo errado, concertei ele, depois você ajeita do seu modo, teste ai:

 

CODE

<% registros = 2

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

 

'Efetuando a conexão com a base de dados criada -----------------------

Set conexao = Server.CreateObject("AdoDb.Connection")

conexao.provider="Microsoft.Jet.OLEDB.4.0"

conexao.connectionstring=Server.Mappath("banco.mdb")

conexao.open

 

Set rs = Server.Createobject("ADODB.RECORDSET")

set rs.ActiveConnection = Conexao

rs.CursorType = 1

rs.PageSize = registros

 

sql = "SELECT * FROM produtos ORDER BY id DESC"

rs.Open sql

If rs.EOF Then

Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

 

Else

rs.AbsolutePage = pagina

x = x + 1 %>

 

<html>

<head>

<STYLE type=text/css>

A:link { text-decoration: none}

A:visited { text-decoration: none}

</STYLE>

 

<title></title>

</head>

 

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000">

<table width="100%" height="1">

<tr> <%

While Not rs.EOF AND x < rs.PageSize

q = q + 1 %>

 

<td height=1 width=2>

<table width="311" >

<tr>

<td height="17" width="303" style="height: 12.75pt">

<table width="325" class="texto" style="border: 1px solid #b9b9b9">

<col width="64" span="2" style="width:48pt">

<tr height="17" style="height:12.75pt">

<td colspan="2" height="51" class="xl24" width="64" style="height: 38.25pt"><p align="center"><a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res

izable=no,width=500,height=500'); return false;"><font size="2" face="Verdana" color="#FF0000"><b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b></font></a></td>

<td width="247" colspan="2" align="center"><p align="center"><font size="2" face="Verdana"><b><%=rs("nome")%></b></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td colspan="2" height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana"><%=rs("descricao")%></font></td>

<td colspan="2"height="17" style="height: 12.75pt" width="247"> </td>

</tr>

<tr colspan="2" height="17" style="height:12.75pt">

<td colspan="2"height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana" color="#FF0000"><b><%=rs("valor")%></b></font></td>

<td> </td>

</tr>

<tr colspan="2" height="17" style="height:12.75pt">

<td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317"><font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font></td>

<td> </td>

</tr>

</table></td>

</tr>

</table>

</td>

<% if q = 3 then %>

</tr>

<%q = 0

End If %>

</table>

<left><font face="Verdana" size="1">

<% rs.MoveNext

Wend

 

anterior = pagina - 1

proxima = pagina + 1

ultima = rs.PageCount

primeira = 1

ultm2 = FormatNumber(rs.PageCount - 1,0)

If pagina <> 1 Then

Response.Write "<b>« <a href=prod.asp?pagina="&primeira&">Primeira Página</a></b> "

End If

If pagina > 1 AND pagina <> 2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

End If

If pagina > 1 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "

End If

Response.Write "<b>[ "&pagina&" ]</b> "

If Not rs.EOF Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "

End If

If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

End If

If Not rs.EOF Then

Response.Write "<b><a href=prod.asp?pagina="&ultima&">Última Página</a> »</b> "

End If

rs.Close

Set rs = Nothing

End If

%>

</font>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente resumir esse html, não precisa de tudo isso para fazer o que você quer e está tornando seu código confuso.

 

Abaixo postei uma correção no código do Ted. A tabela fecha dentro do While, tem que ser fora.

CODE
<table width="100%" height="1">

<tr> <%

While Not rs.EOF AND x < rs.PageSize

q = q + 1 %>

 

<td height=1 width=2>

<table width="311" >

<tr>

<td height="17" width="303" style="height: 12.75pt">

<table width="325" class="texto" style="border: 1px solid #b9b9b9">

<col width="64" span="2" style="width:48pt">

<tr height="17" style="height:12.75pt">

<td colspan="2" height="51" class="xl24" width="64" style="height: 38.25pt"><p align="center"><a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res

izable=no,width=500,height=500'); return false;"><font size="2" face="Verdana" color="#FF0000"><b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b></font></a></td>

<td width="247" colspan="2" align="center"><p align="center"><font size="2" face="Verdana"><b><%=rs("nome")%></b></font></td>

</tr>

<tr height="17" style="height:12.75pt">

<td colspan="2" height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana"><%=rs("descricao")%></font></td>

<td colspan="2"height="17" style="height: 12.75pt" width="247"> </td>

</tr>

<tr colspan="2" height="17" style="height:12.75pt">

<td colspan="2"height="17" style="height: 12.75pt" width="247"><font size="2" face="Verdana" color="#FF0000"><b><%=rs("valor")%></b></font></td>

<td> </td>

</tr>

<tr colspan="2" height="17" style="height:12.75pt">

<td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317"><font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font></td>

<td> </td>

</tr>

</table></td>

</tr>

</table>

</td>

<% if q = 3 then %>

</tr><tr>

<%q = 0

End If %>

<% rs.MoveNext

Wend

%>

</tr>

</table>

<left><font face="Verdana" size="1">

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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