Jump to content


Photo

Lado A Lado


  • Faça o login para participar
1 reply to this topic

#1 mkboy

mkboy

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 15/03/2004, 21:12

Eu quero que os dados de meu banco sejam exibidos desta ordem:

modelo

A minha ela lista os dados do banco na sequencia, tipo uma coluna só, então eu queria fazer ela igual a do site acima, tipo uma do lado da outra, e quando tivesse umas 03 na linha, ela passasse para a linha debaixo, ate completar a quantidade de registros pedido para exibir na paginacao.

Nao tenho ideia como faço. podem me ajudar!!!

Abaixo minha paginação que lista sempre abaixo....





<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<!--#include file="conexao.asp"-->
<html>
<head><meta http-equiv="imagetoolbar" content="no">
<title>Fotos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"> <font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
</strong></font><BR>
<font color="#000000" size="1"><BR>
</font>
<div align="center"><font color="#000000" size="1"> </font></div>
<!-- Programação e vizualização dos cadastros -->
<%
Dim objRs, x, intpage, strquantidade
intpage = request.QueryString("txtpage")
Set objRS = Server.CreateObject("Adodb.recordset")
call Abreconexao
strquantidade = request.querystring("quantia")
session("quantia") = strquantidade
if session("quantia") = "" then
objrs.pagesize = 5
else
objrs.pagesize = session("quantia")
end if
objRs.open "Select * From fotos order by id" , Objconn, 3, 3 'primeiro abre a conexao e segundo é qual banco, e 3 é o recordset que siginifica que ele move para tras e para frente,e o cursos do recordset move para tras e pra frente(segundo 3)
if intpage = "" then
intpage = 1
end if
objrs.absolutepage = cint(intpage)
x = 1
while NOT objRs.EOF and x <= objrs.pagesize
%>
<div align="center"> <a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe"><img src="fotos2/<%=objrs("foto")%>" width="75" height="56" border="0"></a>
<br>
</div>
<%
x = x + 1
ObjRs.movenext
wend
%>
<%if cint(intpage) > 1 then 'se for maior que a pagina 1 ira aparecer
%>
<div align="center">
<p><a href="menu.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>"><img src="anterior2.jpg" width="40" height="20" border="0"></a>
<%end if%>
<%if cint(intpage) < objrs.pagecount then 'quantidade de paginas
%>
<a href="menu.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>"><img src="proximo.jpg" width="40" height="20" border="0"></a>
<%end if%>
<%
objrs.close
set ObjRs= Nothing
call fechaconexao
%>
</p>
<p>&nbsp;</p>
<p>

</p>
</div>
</div>
<div align="center"></div>
</body>
</html>



#2 Xahuj

Xahuj

    Novato no fórum

  • Usuários
  • 18 posts
  • Sexo:Não informado

Posted 15/03/2004, 21:33

nooosa vc deu um copy nesse código ou vez.. tenta arrumar kra.. o eu faço isso com tabelas tipo:

<% Do While Not condados.EOF %>
<table width="500" border="1">
<tr bgcolor="#FFCC00"><td> <% Response.Write(condados.Fields("titulo"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("resumo"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor1"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor11"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor2"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("autor22"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("chamada"))%> </td></tr>
<tr><td> <% Response.Write(condados.Fields("data"))%> </td></tr>
</table>
<br>
<% condados.MoveNext:Loop%>

Blz!
Xahuj




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq