Olá pessoal, estou precisando de uma ajuda, eu peguei um script pronto de fotos (Chacal Albun) e não estou conseguindo acertar algumas coisas nele.. a são linkadas para uma nova janela e eu queria q fossem em pop-up... mas não consegui acertar isso... e eu queria colocar um numero maximo de imagens por paginas.... tipo se eu colocar 100 fotos elas vao aparecer em uma unica pagina eu queria que aparecessem no maximo 20 fotos em uma foto...sera q alguém pode me ajudar com isso??? alguém conhece algum outro script de albun de fotos??pode ser com upload...pois o chacal não é... por favor coloquem o link aqui pra mim... obrigado pessoal.. vo colocar a pagina q não consigo alterar.... abracos.. <!--#include file="conectar.asp"--> <html> <head> <title> Fotos </title> <body bgcolor="#ffffff"> <% AbreConexao idcat=request.querystring("idcat") idalbum=request.querystring("idalbum") cat=request.querystring("cat") album=request.querystring("album") '/////COMECA AS CATEGORIAS If idcat = "" Then Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome") If rsCats.EOF Then Response.Write "<font size=1>Nenhuma categoria encontrada!</font>" Else While not rsCats.EOF Response.Write "<font size=1><a href=""default.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><BR></font>" rsCats.Movenext Wend End If '/////COMECA OS ALBUNS Else If idalbum = "" Then Response.Write "<font size=1><B>"&cat&"</font></B><BR><BR>" Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome") If rsAlbum.EOF Then Response.Write "<font size=1>Nenhum album encontrado!</font>" Else While not rsAlbum.EOF Response.Write "<font size=1><a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """>" & rsAlbum("nome") & "<BR></font>" rsAlbum.Movenext Wend End If '/////COMECA AS FOTOS Else Response.Write "<font size=1><B>"& cat &" > "& album & "</font></b><BR><BR>" Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"") If rsFotos.EOF Then Response.Write "<font size=1>Nenhuma foto encontrada!</font>" Else Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 5 Then Response.Write "<tr>" End If If contar <> 5 Then Response.Write "<TR>" End If imagem=rsFotos("imagem") If RsFotos.eof then exit do Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""80"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if End If End If %></font> </body> </html>
