Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

W. Sales

exibir titulos de noticias em 3 colunas como fazer?

Por , em ASP Clássico

Recommended Posts

W. Sales    0

W. Sales
Postado

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>
<!-- Cido Silva - Desenvolvimento de sites, softwares e aplicações para web
www.cidosilva.com.br
 -->

<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>
BODY 
{ 
	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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ja tentou assim,Por exemplo registros 0-10 seria na primeira coluna, 11 - 21 no segundo e 22-32 na última (terceira coluna).

:

 

SqlStr = "SELECT Employee, PhNum " & _
		   "FROM TheTable " & _
		   "ORDER BY Employee "
 
 Set objRS = Server.CreateObject ("ADODB.RecordSet")
 objrs.Open SqlStr, ConStr, adOpenStatic, adLockOptimistic,adCmdText
   
   'Este é quantas colunas você quiser
   NumCols = 3

   NumRecs = objrs.RecordCount
   NumEachCol = NumRecs/NumCols
   
   If (NumRecs Mod NumCols) > 0 Then
	  TempNumRecs = NumRecs + (NumCols-(NumRecs Mod NumCols))
	  NumEachCol = TempNumRecs /NumCols
   End If

   Response.Write "<table>"

   Response.Write "<tr>"
   For x = 0 to NumCols - 1
	  ' Coluna Headings
	  Response.Write "<td>Trabalhador</td>"
	  Response.Write "<td>Fone</td>"
   Next
   Response.Write "</tr>"

   For y = 0 to NumEachCol-1
	  Response.Write "<tr>"
	  For x = 0 to NumCols-1
		 'Calcular o próximo 
		 RecNum = y + (NumEachCol * x)
		 'Certifique-se de que não esgotou os registros
		 If RecNum < NumRecs Then
			objrs.MoveFirst
			objrs.Move RecNum
			Response.Write "<td>" & objrs("Employee") & "</td>"
			Response.Write "<td>" & objrs("PhNum") & "</td>"
		 Else
			Response.Write "<td> </td>"
			Response.Write "<td> </td>"
		 End If
	  Next
	  Response.Write "</tr>"
   Next

   Response.Write "</table>"

 objrs.Close
 Set objRS = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você executou o codigo,...

ele exibe seus dados em 3 colunas, se kiser mais,

altere o NumCols = 3

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito