Publicado em 3 de nov.

Galeria de Fotos na Horizontal

Ola amigos ,

Tenho uma Galeria de Fotos que está funcionando perfeitamente so que gostaria de alterar a exibição das Galeria que hojé é na Vertical existe a possibilidade de deixa-la exibindo na Horizontal , abaixo o código :

<%
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
Response.AddHeader "Pragma", "no-cache"
response.Charset="iso-8859-1"
%>

<html>
<head>
<title>:: GALERIA ::</title>
<meta name="generator" content="Microsoft FrontPage 5.0">
<script language="JavaScript">

<!--
function na_open_window(name, url, left, top, width, height, toolbar, menubar, statusbar, scrollbar, resizable)
{

 toolbar_str = toolbar ? 'yes' : 'no';
 menubar_str = menubar ? 'yes' : 'no';
 statusbar_str = statusbar ? 'yes' : 'no';
 scrollbar_str = scrollbar ? 'yes' : 'no';
 resizable_str = resizable ? 'yes' : 'no';
 window.open(url, name, 'left='+left+',top='+top+',width='+width+',height='+height+',toolbar='+toolbar_str+',menubar='+menubar_str+',status='+statusbar_str+',scrollbars='+scrollbar_str+',resizable='+resizable_str);
}

// -->

</script>
</head>

<body bgcolor="#FFFFFF" text="black" link="#0000FF" vlink="#800080" alink="#FF0000" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table align="center" width="440" cellpadding="0" cellspacing="0">
 <tr>
 <td width="681" bgcolor="#FFFFFF"> <p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">

<%
PagAtual = Request.QueryString("PagAtual")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Galeria ORDER BY ID desc"
RS.Open SQL, conn, 3
Const NumPorPage = 15
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira p�gina
Else
PagAtual = Request.QueryString("PagAtual")
End If
RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o n�mero de registros
RS.MoveFirst
RS.PageSize = NumPorPage
Dim TotalPages
TotalPages = RS.PageCount
RS.AbsolutePage = PagAtual
Count = 0
i = 0
DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if

%></p>
<table cellspacing="0" width="438" bordercolordark="white" bordercolorlight="black" align="center" cellpadding="0" height="4">
 <tr>
 <td width="168" rowspan="3" height="1" bgcolor="#FFFFFF"><p align="center">
 <font face="Arial">
 <span style="font-size: 8pt">
 <a href="javascript:na_open_window('win', 'config/galeria.asp?data=<%=Rs("data")%>', 0, 0, 750, 600, 0, 0, 0, 0, 0)" target="_self"><img src='config/fotos/<%=Rs("Foto")%>' width="150" height="112" border="0"></a>
 </span></font> </p>
 </td>
 <td width="52" bgcolor="#FFFFFF" height="18" valign="top">
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;">
<b><font face="Arial" style="font-size: 8pt" color="#333333">Evento:</font></b><font face="Arial"><span style="font-size: 8pt">
</span></font> </p>
</td>
 <td width="225" bgcolor="#FFFFFF" height="18" valign="bottom">
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;">
<span style="font-size:8pt;"><font face="Arial" color="#333333"><%=Rs("Evento")%>
 </font></span> </p>
</td>
 <td width="4" bgcolor="#F0F0F0" height="1" rowspan="2">
</td>
 </tr>
 <tr>
 <td width="52" bgcolor="#FFFFFF" height="1" valign="top">
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left">
<font face="Arial" color="#333333"><b><span style="font-size:8pt;">Data:</span></b></font></p>
</td>
 <td width="225" bgcolor="#FFFFFF" height="1" valign="top">
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left">
<span style="font-size:8pt;"><font face="Arial" color="#333333"><%=Rs("Dia")%>  </font></span></p>
</td>
 </tr>
 <tr>
 <td width="52" bgcolor="#FFFFFF" height="45" valign="top">
 </td>
 <td width="225" bgcolor="#FFFFFF" height="45" valign="top">
 </td>
 <td width="4" bgcolor="#F0F0F0" height="45">
</td>
 </tr>
 <tr>
 <td width="434" colspan="4" bgcolor="#FFFFFF" height="7">
 <p style="line-height:50%; margin-top:0; margin-bottom:0;" align="center"> </p>
 </td>
 </tr>
</table>
<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">

<%
i = i+1
Count = Count + 1
RS.MoveNext
LOOP
%>
<%
Response.Write(" P�gina " & PagAtual & " de " & TotalPages & " - ")
var01 = Len(PagAtual)
var02 = var01 - 1
var03 = Left(PagAtual,var02)
var04 = Right(PagAtual,1)
var05 = var03 & 0
IF var04 <> 0 THEN
inicial = var05 + 1
final = inicial + 9
ELSE
inicial = var05 - 9
final = var05
END IF
indice_i = var04 - 1
indice_f = 10 - var04
If CInt(final) > CInt(TotalPages) Then final = TotalPages
IF PagAtual > 1 THEN

Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & 1 & "'>")
Response.Write("<img src='config/images/primeira.gif'border='0' alt='Primeira p�gina'>")
Response.Write("</a></font></B> ")
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write ("<img src='config/images/anterior.gif' border='0' alt='P�gina anterior'>")
Response.Write("</a></font></B> ")

IF PagAtual > 10 THEN

Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & inicial - 1 & "'>")

Response.Write("...")
Response.Write("</a> ")
ELSE
Response.Write("")
Response.Write("....")
Response.Write(" ")
END IF
Else

Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("<img src='config/images/primeira.gif' border='0' alt='Primeira p�gina'>")
Response.Write("</font></B> ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("<img src='config/images/anterior.gif' border='0' alt='P�gina anterior'>")
Response.Write("</font></B> ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

Response.Write("...")
Response.Write(" ")
End If
For i = inicial To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "[ " & i & " ] "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a> "
END IF
Next
IF CInt(PagAtual) <> CInt(TotalPages) THEN
p1 = Left(PagAtual,var02)
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0
IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN

Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & final + 1 & "'>")

Response.Write("...")
Response.Write("</a> ")
ELSE
Response.Write("")
Response.Write("...")
Response.Write(" ")
END IF

Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Pr�xima p�gina'>")
Response.Write("</a></font></B> ")
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & TotalPages & "'>")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima p�gina'>")
Response.Write("</a></font></B> ")

ELSE
Response.Write("")
Response.Write("...")

Response.Write("</font></B> ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Pr�xima p�gina'>")
Response.Write("</font></B> ")
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima p�gina'>")
Response.Write("</font></B> ")

End If
Rs.Close
Set RS = Nothing
Conn.Close

Set Conn = Nothing %></p>
 </td>
 </tr>
</table>
<p> </p>
</body>

</html>

Discussão (6)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...