Galeria de fotos com paginacao

[GnomO! 0]

Fiz o seguinte codigo para uma galeria de fotos com paginação...

mais aconteceu o seguinte erro na linha que esta em vermelho:

 

Tipo de erro:

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

Instrução esperada

/NegociosOffshore/Paginacao.asp, line 57

Wend

 

ao retirar o Wend que se encontra na mesma

o seguinte erro apareceu (linha que esta em verde):

 

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

 

 

Codigo:

 

<%

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

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()

%>

O que faço? Não consigo uma soluçao para este problema..

 

Desde Ja agradeço,

GnomO!

[GnomO! 0]

Ok.. vou tentar..Obrigado x)

[GnomO! 0]

lucas... nao consegui fazer..mais eu achei um jeito aquie tirei o wend da linha 43e funcionou a paginaçaoso que as fotos nao ficam lado a lado..como resolveria este problema?Grato,GnomO!

[GnomO! 0]

Coe galera! consegui fazer a paginacao

de outra forma.. porem so esta faltando uma

coisa que nao consigo resolver... esta parte

do codigo:

 

<!--Tudo que vai ser paginado-->

 

<%

While Not rstPaginacao.EOF AND x < rstPaginacao.PageSize

x = x + 1

 

While Not rstPaginacao.EOF

Response.Write("<TR>")

Cont = 0

While Not rstPaginacao.EOF And Cont < 2

Response.Write("<TH bgcolor=white><A href=""/?sec=" & sec & "&pag=galeria&pg=listafoto&cod=" & rstPaginacao("Codigo") & """><IMG src=""" & rstPaginacao("Imagem1") & """ border=0 alt=""" & rstPaginacao("Descricao") & """></A></TH>")

rstPaginacao.MoveNext()

Cont = Cont + 1

Wend

If Not rstPaginacao.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

Response.Write("</TABLE>"

 

rstPaginacao.MoveNext()

Wend

%>

<!--Fim Tudo que vai ser paginado-->

O problema esta ai nestas duas linhas em cores diferentes na

qual nao consigo resolver.. Acontece o seguinte erro:

 

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/paginacao2.asp, line 47

 

no caso de ngm souber resolver este problema alguem teria

um codigo de galeria de fotos onde as imagens q faz intervalos

de 2 fotos por linha?

 

Desde já agradeço

GnomO!