exibir titulos de noticias em 3 colunas como fazer?
Seguinte galera peguei esse sistema do cido silva muito massa , só que ele mostra as noticias na vertical, comun isso uma abaixo da outra. ex.:
Noticias1
Noticias2
Noticias3
Noticias4
Noticias5
Noticias6
Só que eu queria que ela exibisse esses titulos divididos em três colunas tipo assim:
Noticias 1 - Noticias 2 - Noticias 3
Noticias 4 - Noticias 5 - Noticias 6
Abaixo o código se algum puder ajudar valeu
<!-- #include file="config.inc" --><%session.LCID=1046%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><meta NAME="description" CONTENT="Breve descrição do seu site.">
<meta NAME="keywords" CONTENT="Suas palavras chave.">
<meta name="revisit-after" content="4days">
<meta name="robots" content="index,follow">
<title>..:: web ::..</title>
<STYLE type=text/css> font-family: verdana;
font-size: 12px;
color: #ffffff;
scrollbar-face-color: #E9F5FC;
scrollbar-highlight-color: #E9F5FC;
scrollbar-shadow-color: #E9F5FC;
scrollbar-3dlight-color: #E9F5FC;
scrollbar-arrow-color: #006699;
scrollbar-track-color: #E9F5FC;
scrollbar-darkshadow-color: #E9F5FC;
}BODY {
BACKGROUND-REPEAT: repeat-y
}
TD {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
P {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
LI {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px
}
A {
text-decoration: none;
color: #4D4B4D;
}A:Hover {
text-decoration: none;
color: #4D4B4D;
}IMG {
border-color: #4D4B4D;
}A:Visited {
text-decoration: none;
color: #4D4B4D;
}A:Active {
text-decoration: none;
color: #4D4B4D;
}
}INPUT {
BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM-COLOR: #DCDCDC; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #DCDCDC; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #DCDCDC; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #DCDCDC; BORDER-TOP-WIDTH: 1px; COLOR: #106394; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px
}
</STYLE>
</STYLE>
<meta name="generator" content="Namo WebEditor v5.0">
</head>
<body leftmargin="0" bgcolor="#E9F5FC" topmargin="0" text="black" link="black" vlink="black" alink="black">
<TABLE WIDTH="420" BORDER=0 CELLPADDING=4 CELLSPACING=4>
<TR>
<TD height="28" width="420" valign="top">
<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center"><%PagAtual = Request.QueryString("PagAtual") 'página atual
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/dados.mdb")
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM noticias WHERE Classe='Noticias'ORDER BY id desc"
RS.Open SQL, conn, 3
'############## paginacao Introdução #################
'------- Coloque aqui a quantidade de registros que você deseja por página --------
Const NumPorPage = 4
'Verifica qual a página solicitada
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
'Cria conexão com o Banco de Dados, já abrir anteriormente
'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")
'>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient
RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
'Cria a String SQL
'>>> FIZ EM CIMA Dim SQLpag
'>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos"
'>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet
RS.MoveFirst 'Move o RecorSet para o início
RS.PageSize = NumPorPage 'Coloca a quantidade de páginas
Dim TotalPages 'Pega o número total de páginas
TotalPages = RS.PageCount
RS.AbsolutePage = PagAtual 'Configura a página atual'############## paginacao Introdução - FIM #################
Count = 0 'Zera o contador
'Inicia a Função DO, utilizando a quantidade de páginas especificadas
'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo
i = 0
DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize
' ----- linhas coloridas -------
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if
'-------------------------------
%>
<table cellspacing="0" width="420" bgcolor="#E9F5FC" bordercolordark="#E9F5FC" bordercolorlight="black" align="center" cellpadding="0">
<tr>
<td width="420"><font face="Verdana" color="#1E7BEF"><span style="font-size:8pt;"><strong><%=Rs("data")%> </strong>
<br>
<a href='mostra.asp?noticias=<%=Rs("id")%>&Classe=<%Response.Write Classe%>' target='_parent'><strong></strong>
<%=Rs("Topico")%></a></span></font>
<hr size="1" width="420" color="#A9CEEB">
</td>
</tr>
</table>
<%
i = i+1
Count = Count + 1 'paginacao
RS.MoveNext
LOOP 'tb paginacao%>
<font color="#1E7BEF"><div align="right"><strong><a href="noticias.html" target="_parent">Mais Notícias</a></strong></div></font>
</p>
</TD>
</TR>
</TABLE>
</body>
</html>Discussão (3)
Carregando comentários...