Foros del Web » Programando para Internet » ASP Clásico »

Marquesina en ASP

Estas en el tema de Marquesina en ASP en el foro de ASP Clásico en Foros del Web. Hola.A ver si me podeis echar una mano, tengo un pagina donde he introducido una marquesina que al pasar el raton por encima se pare ...
  #1 (permalink)  
Antiguo 26/02/2002, 15:21
cesars
Invitado
 
Mensajes: n/a
Puntos:
Marquesina en ASP

Hola.A ver si me podeis echar una mano, tengo un pagina donde he introducido una marquesina que al pasar el raton por encima se pare el texto.Esta marquesina esta echa en javaScript, esta funcion de javascript me la pasaron, la persona que me la paso metia los datos a pelo pero mi problema es sacar estos datos de una base de datos.
Gracias
  #2 (permalink)  
Antiguo 26/02/2002, 15:25
Avatar de DanielRey
Usuario no validado
 
Fecha de Ingreso: enero-2001
Ubicación: Mendoza
Mensajes: 630
Antigüedad: 23 años, 4 meses
Puntos: 1
Re: Marquesina en ASP

Hola Cesars

Probá con
<MARQUEE DIRECTION=RIGHT BEHAVIOR=SCROLL SCROLLAMOUNT=10 SCROLLDELAY=200>
<%= Rs("texto_marquee")%></MARQUEE>

Suerte

  #3 (permalink)  
Antiguo 26/02/2002, 16:07
 
Fecha de Ingreso: noviembre-2001
Ubicación: Manta Ecuador
Mensajes: 200
Antigüedad: 22 años, 6 meses
Puntos: 0
Re: Marquesina en ASP

Mira aquí te paso el codigo completo del marquee que utilizo, Espero te sirva de algo.
<%' Problemas con Netscape
Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, SQL_scroll,sMarquee
Dim rstCurrent
Set rstCurrent = Server.CreateObject("ADODB.Recordset")
SQL_scroll = "SELECT * FROM noticias WHERE fecha = now() ORDER BY hora Desc LIMIT 5"
Set rstCurrent = titular.Execute(SQL_scroll)
sHtml1 = "<P><font class='tercera3' color='#000000' face='arial' size='1'>"
sHtml2 = "<A class = tercera3 color='#000000' face='arial' size='1' HREF='sistema/noticias/ver_noticia.asp?id_noticias="
sHtml3 = "'>"
sHtml4 = "</A></FONT></P>"
sTxt = ""
rstCurrent.movefirst
do while not rstCurrent.eof
horanoti = rstCurrent("hora")
horadisplay = FormatDateTime(horanoti, vbShortTime)
sTxt = sTxt & sHtml1 & horadisplay & " - " & sHtml2 & _
rstCurrent("id_noticias") & sHtml3 & rstCurrent("titular") & sHtml4
rstCurrent.movenext
loop
iSpeed = 55 ' Speed of Marquee (higher = slower)
iTop = 0 ' Y Location Within Object
iLeft = 0 ' X Location""""
iWidth = 167 ' Width
iHeight = 125 ' Height
'Insert marquee into objects innerHtml Property (in this Case a table cell)
sMarquee="<MARQUEE onmouseover='this.stop();' " & _
"onmouseout='this.start();'direction='up' scrollamount='1' " & _
"scrolldelay='" & iSpeed & "' top='" & iTop & "' left='" & iLeft & _
"' width='" & iWidth & "' height='" & iHeight & "'>" & sTxt & "</MARQUEE>"


%>
<table>
<tr>
<td>
<%=sMarquee%> </td>
</tr>
</table>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:57.