Galeria De Fotos Com Paginacao

Gnomo · Junho 16, 2006

Boa tarde galera...

To procurando na net um exemplo

de galeria de fotos com paginação

mas nem to achando :( alguém pode

me dar uma ajuda? qria uma parecida

com essa aqui:

http://www.brasil1.com.br/site/noticias/sh...id_categoria=65

Desde já agradeço,

GnomO!

Gnomo · Junho 16, 2006

Esqueci de uma coisa..

eu tenho o código da galeria...

mas não sei aplicar a paginação na mesma.

segue o código:

<!--#include file="lib/dbAbre.asp" -->

<P><TABLE border=0 cellpadding=7 cellspacing=0 align=center>
<%
Set rstGaleria = CreateObject("ADODB.Recordset")

        rstGaleria.Open "SELECT Codigo, Imagem1, Descricao FROM GaleriasFotos WHERE Galeria= " & Request("cod") & " ORDER BY Codigo;", conn
        While Not rstGaleria.EOF
            Response.Write("<TR>")
            Cont = 0
            While Not rstGaleria.EOF And Cont < 2
                Response.Write("<TH bgcolor=white><A href=""/?sec=" & sec & "&pag=galeria&pg=listafoto&cod=" & rstGaleria("Codigo") & """><IMG src=""" & rstGaleria("Imagem1") & """ border=0 alt=""" & rstGaleria("Descricao") & """></A></TH>")
                rstGaleria.MoveNext()
                Cont = Cont + 1
            Wend
            If Not rstGaleria.EOF Then Response.Write("</TR>")
        Wend
        If Cont > 0 And Cont < 2 Then
            While Cont < 2
                Response.Write("<TH bgcolor=white>&nbsp;</TH>")
                Cont = Cont + 1
            Wend
        End If
%></TABLE><%
    'End If
rstGaleria.Close()
%>

Desde já agradeço,

GnomO!

cyberalexxx · Junho 16, 2006

Paginação é simples de fazer, da uma olhada nesse tutorial que eu sempre recomendo:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

Junho 19, 2006

Ok cyberalexxx

vou tentar..

Obrigado..

Gnomo · Junho 19, 2006

cyberalexxx tentei fazer a paginação

mais esta dando erro... peguei o exemplo

deste artigo do imasters:

http://www.imasters.com.br/artigo/1287/asp...o_sem_misterios

deu nisso:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\NegociosOffshore\dados\dados.mdb;"
conn.CursorLocation = 3
Set rstGeral = CreateObject("ADODB.Recordset")
%>

<P><TABLE border=0 cellpadding=7 cellspacing=0 align=center>
<%
		rstGeral.Open "SELECT * FROM GaleriasFotos WHERE Galeria= " & Request("cod") & " ORDER BY Codigo;", conn
		If rstGeral.EOF Then
		Response.Write "Nenhum registro encontrado!"
		Response.End
		Else
		If Request("pag") = "" Then
		intpagina=1
		Else
		If cint(Request("pag")) < 1 Then
		intpagina=1
		Else
		If cint(Request("pag")) > rstGeral.PageCount Then
		intpagina = rstGeral.PageCount
		Else
		intpagina = Request("pag")
		End If
		End If
		End If
		End If
		rstGeral.AbsolutePage = intpagina
		intrec=0

			While intrec < rstGeral.PageSize And Not rstGeral.EOF
			Response.Write("<TR>")
			Cont = 0
			While Not rstGeral.EOF And Cont < 2
				Response.Write("<TH bgcolor=white><A href=""/?sec=" & sec & "&pag=galeria&pg=listafoto&cod=" & rstGeral("Codigo") & """><IMG src=""" & rstGeral("Imagem1") & """ border=0 alt=""" & rstGeral("Descricao") & """></A></TH>")
				rstGeral.MoveNext()
				Cont = Cont + 1
			Wend
			If Not rstGeral.EOF Then Response.Write("</TR>")
		Wend
		If Cont > 0 And Cont < 2 Then
			While Cont < 2
				Response.Write("<TH bgcolor=white>&nbsp;</TH>")			
				Cont = Cont + 1
			Wend
		End If
%></TABLE><%
		rstGeral.MoveNext
		intrec=intrec+1
		If rstGeral.EOF Then
		Response.Write " "
	End If
	Wend

If intpagina > 1 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina-1%>">Anterior</a>
<%
End If
If strcomp(intpagina,rstGeral.PageCount) <> 0 Then
%>
  <a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina + 1%>">Próxima</a> 
<%
	End If
rstGeral.Close()
%>

mais esta aparecendo seguinte erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/NegociosOffshore/Paginacao.asp, line 57

Wend

O que faço agora Pai Mei rsrsrsrsrs?

cyberalexxx · Junho 19, 2006

tem um Wend sobrando no seu código (está em vermelho):

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\NegociosOffshore\dados\dados.mdb;"
conn.CursorLocation = 3
Set rstGeral = CreateObject("ADODB.Recordset")
%>
<P><TABLE border=0 cellpadding=7 cellspacing=0 align=center>
<%
rstGeral.Open "SELECT * FROM GaleriasFotos WHERE Galeria= " & Request("cod") & " ORDER BY Codigo;", conn
If rstGeral.EOF Then
Response.Write "Nenhum registro encontrado!"
Response.End
Else
If Request("pag") = "" Then
intpagina=1
Else
If cint(Request("pag")) < 1 Then
intpagina=1
Else
If cint(Request("pag")) > rstGeral.PageCount Then
intpagina = rstGeral.PageCount
Else
intpagina = Request("pag")
End If
End If
End If
End If
rstGeral.AbsolutePage = intpagina
intrec=0
While intrec < rstGeral.PageSize And Not rstGeral.EOF
Response.Write("<TR>")
Cont = 0
While Not rstGeral.EOF And Cont < 2
Response.Write("<TH bgcolor=white><A href=""/?sec=" & sec & "&pag=galeria&pg=listafoto&cod=" & rstGeral("Codigo") & """><IMG src=""" & rstGeral("Imagem1") & """ border=0 alt=""" & rstGeral("Descricao") & """></A></TH>")
rstGeral.MoveNext()
Cont = Cont + 1
Wend
If Not rstGeral.EOF Then Response.Write("</TR>")
Wend
If Cont > 0 And Cont < 2 Then
While Cont < 2
Response.Write("<TH bgcolor=white> </TH>")
Cont = Cont + 1
Wend
End If
%></TABLE><%
rstGeral.MoveNext
intrec=intrec+1
If rstGeral.EOF Then
Response.Write " "
End If
Wend
If intpagina > 1 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina-1%>">Anterior</a>
<%
End If
If strcomp(intpagina,rstGeral.PageCount) <> 0 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina + 1%>">Próxima</a>
<%
End If
rstGeral.Close()
%>

bareta · Junho 19, 2006

caso queira uma pronta.... tenho...

http://www.cgmotion.com/galeria

ou http://www.rcmdigital.com.br

Gnomo · Junho 19, 2006

Retirei o Wend

mas outro erro aparece:

ADODB.Recordset (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/NegociosOffshore/Paginacao.asp, line 51

:(

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\NegociosOffshore\dados\dados.mdb;"
conn.CursorLocation = 3
Set rstGeral = CreateObject("ADODB.Recordset")
%>
<P><TABLE border=0 cellpadding=7 cellspacing=0 align=center>
<%
rstGeral.Open "SELECT * FROM GaleriasFotos WHERE Galeria= " & Request("cod") & " ORDER BY Codigo;", conn
If rstGeral.EOF Then
Response.Write "Nenhum registro encontrado!"
Response.End
Else
If Request("pag") = "" Then
intpagina=1
Else
If cint(Request("pag")) < 1 Then
intpagina=1
Else
If cint(Request("pag")) > rstGeral.PageCount Then
intpagina = rstGeral.PageCount
Else
intpagina = Request("pag")
End If
End If
End If
End If
rstGeral.AbsolutePage = intpagina
intrec=0

' Inicio Página
While intrec < rstGeral.PageSize And Not rstGeral.EOF
Response.Write("<TR>")
Cont = 0
While Not rstGeral.EOF And Cont < 2
Response.Write("<TH bgcolor=white><A href=""/?sec=" & sec & "&pag=galeria&pg=listafoto&cod=" & rstGeral("Codigo") & """><IMG src=""" & rstGeral("Imagem1") & """ border=0 alt=""" & rstGeral("Descricao") & """></A></TH>")
rstGeral.MoveNext()
Cont = Cont + 1
Wend
If Not rstGeral.EOF Then Response.Write("</TR>")
Wend
If Cont > 0 And Cont < 2 Then
While Cont < 2
Response.Write("<TH bgcolor=white> </TH>")
Cont = Cont + 1
Wend
End If
%></TABLE><%
rstGeral.MoveNext 'Linha do erro
intrec=intrec+1
If rstGeral.EOF Then
Response.Write " "
End If
' Wend 'Retirei o Wend
If intpagina > 1 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina-1%>">Anterior</a>
<%
End If
If strcomp(intpagina,rstGeral.PageCount) <> 0 Then
%>
<a href="paginacao.asp?cod=<%=rstGeral("Codigo")%>&pag=<%=intpagina + 1%>">Próxima</a>
<%
End If
rstGeral.Close()
%>

O que faço agora?!

Desde já agradeço...

Entrar

Galeria De Fotos Com Paginacao

Pergunta

Gnomo

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

Gnomo

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Gnomo

Link para o comentário

Compartilhar em outros sites

cyberalexxx

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Gnomo

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades