<% If rs.Eof Then If Request("procura") = "" Then %> <% Else %> <% End If Else rs.MoveFirst rs.PageSize = 20 TotalPaginas = rs.PageCount rs.AbsolutePage = intpagina Coluna = 0 Contador = 0 While Not rs.EOF And Contador < rs.PageSize %> <% Coluna=Coluna+1 If Coluna >=5 Then Coluna=0 %> <% Contador = Contador + 1 rs.MoveNext Else Contador = Contador + 1 rs.MoveNext End If wend %>

<%= rs("Fot_Data") %> ','','width=550,height=500')">" alt="" name="alb" height="65" border="0"> <%= rs("Album") %>

Mais Fotos

<% 'INICIO DA PAGINAÇÃO Response.Write "" Response.Write "" paginacao = 1 while paginacao < rs.Pagecount + 1 if intpagina = paginacao then Response.Write "" else Response.Write "" end If paginacao = paginacao + 1 wend Response.Write "" Response.Write " "%> <%=paginacao%> <% Response.Write " " %> <%=paginacao%> <%Response.Write " " 'FIM DA PAGINAÇÃO %>