Ayuda con news rotatorias

[Faser]

Hola a todos,

estoy desarrollando una página con diversos temas y aplicaciones.
Una de ellas es realizar una serie de news que vayan a pareciendo de forma vertical "tipo scroll automático", y cuando te pones encima se detenga. Eso esta bien, con una aplicación en JavaScript se acaba el tema.
Pero el problema que os propongo es que estas noticias deben de ser actualizables desde una base de datos. Y cada semana poderse actualizar desde el administrador.

Me pregunto... cómo puedo hacerlo??...

Si sabeis de algun sitio donde lo explique bien, o hay por ahí algún código semejante os lo agradecería..

Un saludo a todos.

[AlZuwaga]

agarrá cualquier script de rotación de noticias y mediante ASP generás dinámicamente el array de javascript con los contenidos a mostrar... no es tan dificil.

Si querés, nos pasás algún script que te guste y en base a el te ayudamos a hacerlo

[Faser]

Gracias dazuaga
Perdon la ausencia. No pude conectarme hasta hoy mismo, y evidentemente han pasado los dias.
Respecto a buscar un script y en base a el me echan una mano, me parece fantástico. Me ayudarian mucho.

Tengo el script, pero es demasiado largo para adjuntarlo en el cuerpo del mensaje. Son una 200 líneas de codigo. Y ademas va lincado a un documento de texto donde hay las noticias.

Puedo zipearlo y colgarlo para que lo testeen??? Y si es así, como lo hago??

[AlZuwaga]

ok, zipealo y adjuntalo a [email protected]
voy a tratar de ayudarte (ando escaso de tiempo) y si no puedo adjunto ese zip a este mensaje para ver que sale de esto.


saludos

[Faser]

Bien señores... ya di con el código.
gracias por la ayuda prestada. En breve cuando tenga depurado el código lo colgaré por si a alguien le interesa.

Un saludo al mundo!!!

[gadget]

...cuya promesa ya ha sido visto por 47 personas...

[Faser]

Disculpar por la tardanza, realmente se me fue de la cabeza el colgarlo para que puedan utilizarlo.

Bueno ahí va el codigo.
Espero que se entienda.


<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
Dim vNewA, vVelocidadA, vTopA, vLeftA, vWidthA, vHeightA, vFechaA, vLinkA, vfLinkA, vSQLA,vMarqueeA
Dim ConnNewA
Dim rsNewA
Set ConnNewA = CreateObject("ADODB.Connection")
Set rsNewA = Server.CreateObject("ADODB.Recordset")
ConnNewA.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & Server.MapPath("../../bd/news.mdb"))
vSQLA = "SELECT * FROM news ORDER BY fecha_cas DESC"
Set rsNewA = ConnNewA.Execute(vSQLA)
vFechaA = "<P class='titularbold'>"
vLinkA = "<A class='blanquito' HREF='../news/noticiadetalle.asp?ID="
vfLinkA = "' target='_blank'>"
vCerrarA = "</A></P>"
vNewA = ""
rsNewA.movefirst
do while not rsNewA.eof
vNewA = vNewA & "<b>" & vFechaA & rsNewA("fecha_cas") & "</b><br>" & vLinkA & _
rsNewA("ID") & vfLinkA & rsNewA("titol_cas") & vCerrarA
rsNewA.movenext
loop
vVelocidadA = 40
vTopA = 0
vLeftA = 100
vWidthA = 125
vHeightA = 167

vMarqueeA="<MARQUEE onmouseover='this.stop();' " & _
"onmouseout='this.start();'direction='up' scrollamount='1' " & _
"scrolldelay='" & vVelocidadA & "' top='" & vTopA & "' left='" & vLeftA & _
"' width='" & vWidthA & "' height='" & vHeightA & "'>" & vNewA & "</MARQUEE>"

ConnNewA.close
set ConnNewA = Nothing
%>

<table width=150 height=167 cellpadding="2" cellspacing="0" align="center" class="bg_tablagaleria">
<tr>
<td width="iWidth" height="166" id="tDisplay"> <%=vMarqueeA%> </td>
</tr>
</table>

[8461277]

me pordrian explicar cuantos campos debe contar la BD para que funcione este codigo, me parece intersante y quiro colocarlo en mi pagina

Miguel

[Faser]

En mi caso solamente tengo tres campos.

Uno es el id (autonumerico).
Otro seria "fecha_cas" (como he puesto en el ejemplo)
Otro seria el titularde la noticia llamado "titol_cas".

Y otro campo que contendrá la noticia que puede llevar el nombre que quieras.

Este último se pagina en una nueva página al clicar sobre la noticia.

Lleva este nombre porqué la página contenia tres idiomas. (castellano, catalan e ingles).