Ir para conteúdo

POWERED BY:

Arquivado

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

Elton2203

Paginando Fotos

Por , em ASP Clássico

Recommended Posts

Elton2203    0

Elton2203
Postado

Bom Dia galera, consegui esse tutorial de como paginar fotos e ele está funcionando direitinho, porém as fotos estão ficando enfileiradas uma embaixo da outra e eu as keria uma ao lado da outra, passando para a linha de baixo somente qdo terminar o corpo da minha div, estou enviando para a galera q está a procura de uma q funcione e para os amigos programadores gostaria de uma dica de como colocar uma foto do lado da outra.

 

segue o código...

 

<%

'Abrindo a Conexão com o Banco

Dim caminho

Dim conexao

caminho = Server.MapPath("Dados/eltonassuncao.mdb")

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

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

 

'Selecionando todos os Produtos da Tabela

Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")

strBuscaProdutos = "SELECT * FROM TB_PORTFOTOS ORDER BY ID_FOTO"

rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

 

'Definindo o Numero de Paginas com a propriedade "PageSize" do objeto Recordset

rsBuscaProdutos.PageSize = 10

 

'Criamos as Validações

if rsBuscaProdutos.eof then

Mensagem = "Nenhum Registro Encontrado"

Response.End

else

'Definimos em qual pagina o visitante está

if Request.QueryString("pagina")="" then

intpagina = 1

else

if cint(Request.QueryString("pagina"))<1 then

intpagina = 1

else

if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then

intpagina = rsBuscaProdutos.PageCount

else

intpagina = Request.QueryString("pagina")

end if

end if

end if

end if

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<title>Tutorial de Paginação</title>

 

<link href="css/estilo.css" rel="stylesheet" type="text/css" />

 

<link rel="stylesheet" href="lightbox/css/lightbox.css" type="text/css" media="screen" />

 

<script src="lightbox/js/prototype.js" type="text/javascript"></script>

<script src="lightbox/js/scriptaculous.js?load=effects,builder" type="text/javascript"></script>

<script src="lightbox/js/lightbox.js" type="text/javascript"></script>

 

</head>

<body>

<%

'Iniciamos o Loop

rsBuscaProdutos.AbsolutePage = intpagina

intrec = 0

While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof

%>

 

<div id="corpo">

<a href="imgPortFotos/<%=rsBuscaProdutos("ARQUIVO")%>" rel="lightbox[roadtrip]">

<img src="imgPortFotos/<%=rsBuscaProdutos("ARQUIVO")%>"width="70" height="70" border="0" />

</a>

</div>

 

<%

rsBuscaProdutos.MoveNext

intrec = intrec + 1

if rsBuscaProdutos.eof then

response.write " "

end if

Wend

%>

 

<%

'Criamos as Validações para a navegação "Anterior" e "Próximo"

if intpagina>1 then

%>

 

<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

 

<%

end if

if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then

%>

 

<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a>

 

<%

end if

rsBuscaProdutos.close

Set rsBuscaProdutos = Nothing

%>

 

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o problema não deve estar no ASP mas no CSS provavelmente

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