Como fazer sistema de notícia em destaque?

[Paulo Cézar Júnior 0]

Oi pessoal beleza...Gostaria de saber se alguém tem ou sabe como faze rum sistema de notícias de destaque como o da UOL. Tipo em vários sites eu já vi em flash, mas não encontrei nenhum tuto que ensinasse como montá-lo. O que eu preciso é igual ao da UOL. Na capa do site aparece a foto grande em cima e embaixo da foto a notícia. A cada 3 segundos muda para a outra notícia. O sistema fica rodando as 3 notícias de destaque no site... Esse da UOL não´é em flash...Meu site é em asp e usa access...como posso fazer...obrigado...

[jrcardozo 4]

pesquise em javascript, abaixo um link onde poderá encontrar exatamente o que quer

 

http://www.dynamicdrive.com/dynamicindex14...inslideshow.htm

 

depois é só buscar as noticias do seu DB

[Paulo Cézar Júnior 0]

Jonatahdj valeu pela indicação do JavaScript, agora você poderia me ajudar no comando para buscar as notícias no DB e exibir junto das fotos, alternando como no comando java.

 

Obrigado.

 

Abaixo a atual conexão na página que chama a notícia em destaque:

 

SQL2 = "SELECT Top 1 destaque.ID, destaque.categoria, destaque.titulo, destaque.descricao, destaque.data, destaque.foto, destaque.descricaofoto, destaque.foto2, destaque.descricaofoto2, categorias.categorias as auxcategorias FROM destaque, categorias WHERE categorias.ID=destaque.categoria ORDER BY destaque.ID DESC"Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open SQL2, Dados, 3, 3Cont = 2Aux = 1Dim RS2_Tema(2), RS2_Data(2), RS2_Titulo(2), RS2_Foto(2), RS2_Descricaofoto(2), RS2_Descricao(2), RS2_Link(2)While (Aux < Cont)  RS2_Tema(Aux) = RS2("auxcategorias")  RS2_Titulo(Aux) = RS2("titulo")  RS2_Data(Aux) = RS2("data")  RS2_Foto(Aux) = "noticias/imagens/destaque/" & RS2("foto")  If Ucase(Cstr(RS2_Foto(Aux))) = "noticias/IMAGENS/N" then 					RS2_Foto(Aux) = "noticias/imagens/semfoto.gif" 			   End if	    RS2_Descricaofoto(Aux) = RS2("descricaofoto")  RS2_Descricao(Aux) = RS2("descricao")	RS2_link(Aux) = "noticias/view_destaque.asp?id=" & RS2("ID")Aux = Aux + 1RS2.MoveNextWend

Abaixo o comando que exibe a notícia e foto:

<td width="223" height="347"> <table width="222" border="0" cellspacing="2" cellpadding="0">					<tr> 					  <td width="218"><font face="Verdana, Helvetica, sans-serif" size="1"><b><%=RS2_Tema(1)%></b></font></td>					</tr>					<tr> 					  <td height="200"><a href="<%=RS2_Link(1)%>"><img src="<%=RS2_Foto(1)%>" width="218" height="200" border="0"></a></td>					</tr>					<tr> 					  <td bgcolor="#E0E0E0"> <font face="Geneva, Arial, Helvetica" size="1"><a href="<%=RS2_Link(1)%>"></a><b><%=RS2_Descricaofoto(1)%></b></font> 					  </td>					</tr>					<tr> 					  <td height="18"><font face="Verdana, Helvetica, sans-serif" size="1"><b><%=RS2_Titulo(1)%></b></font></td>					</tr>					<tr> 					  <td height="75" valign="top" bgcolor="#E0E0E0"><font face="Verdana, Helvetica, sans-serif" size="1"><a href="<%=RS2_Link(1)%>"><%=RS2_Descricao(1)%></a></font></td>					</tr>					<tr> 					  <td height="18"> <table width="219" border="0" cellspacing="0" cellpadding="0">						  <tr> 							<td width="57"><font face="Geneva, Arial, Helvetica" size="1"><a href="<%=RS2_Link(1)%>"><%=RS2_Data(1)%></a></font></td>							<td width="162" align="right"><font face="Verdana, Helvetica, sans-serif" size="1"><b><a href="<%=RS2_Link(1)%>"><img src="noticias/imagens/b_mais.gif" width="34" height="12" border="0"></a></b></font></td>						  </tr>						</table>

PARA VER O CÓDIGO COMPLETO DA PÁGINA CLIQUE AQUI:

Código da página em txt