testo scorrevole

[waitec401]

Ho questo codice che prende i messaggi da un db, ora io vorrei visualizzarli tramite un testo scorrevole, finito uno inizi a vedersi il successico.

In pratica cio che avviene sul sito della gazzetta.

<%
'----------------------------------------------------------
' Richiama SQL per gli sms
'----------------------------------------------------------

'Definisci stringa di richiamo
strSQL = "SELECT TOP 1 id_sms,str_txt,str_visibile FROM tb_sms WHERE str_visibile=0 ORDER BY id_sms DESC"
objRs.Open strSQL, objConn
Dim sms
sms=0
Do Until ObjRs.EOF
Dim strStringa
Dim StrSMS
StrStringa= Replace(ObjRs("str_txt"),"+","")
StrSMS=Mid( StrStringa, 7)

Response.Write"<marquee loop =-1 scrolldelay=100 > "&StrSMS&"</marquee>"
sms = sms+1
objRs.MoveNext
Loop
ObjRs.Close
%>

sapete aiutarmi?

[Roby_72]

Devi farlo con js.
Se usi un db devi crearti dinamicamante il js che effettua lo scroll con i dati provenienti dal database.
Il js lo trovi nel forum javascript.


Roby