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")
Pergunta
Pernudo
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>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.