Salve, ho una pagina asp dove aggiungo news in modo dinamico. Con uno script javascript faccio in modo che le news vengano visualizzate in modo scorrevole. Non riesco però a fare in modo che le news compaiano una dietro l'altra (in modo scorrevole in tutti i sensi e nn una sotto l'altra). Per avere una visione di quello che dico potete andare all'indirizzo dello script facendo click qui .
Il codice della pagina invece è questo:
--------------
Ho cancellato tutta la parte in asp che nn riguarda questo furum...lasciando solo la parte che interessa qui...
<table width="580" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor="<% = strNewsTableBorderColour %>">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="<% = strNewsTableColour %>">
<tr>
<td align="center" class="text"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
Dim rsNews 'Database recordset holding the news items
Dim intNewsItems 'Loop counter for displaying the news items
'Create recorset object
Set rsNews = Server.CreateObject("ADODB.Recordset")
'Initalise the strNewsSQL variable with an SQL statement to query the database
strNewsSQL = "SELECT TOP " & intPreviewNewsItems & " tblNews.* FROM tblNews ORDER BY News_Date DESC;"
'Query the database
rsNews.Open strNewsSQL, adoNewsCon
'If there are no news item to display then display a message seying so
If rsNews.EOF Then Response.Write("<span class=""text"">Sorry, There is no Site News Items to display</span>")
'Loop round to display each of the news items
For intNewsItems = 1 to intPreviewNewsItems
'Iv there are no records then exit for loop
If rsNews.EOF Then Exit For
%>
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" class="text"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></td>
</tr>
</table>
<div align="left" valign="top" class="testoMod">
<script language="JavaScript1.2">
//larghezza scroller in pixel
var marqueewidth=500
//altezza scroller (in pixels, solo per NS)
var marqueeheight=20
//velocità (valore + elevato=maggior velocità)
var speed=4
//Contenuto
var marqueecontents='<% = rsNews("News_title") %> - ><% = rsNews("Short_news") %>'
if (document.all)
document.write('<marquee scrollAmount='+speed+' style="width:'+marqueewidth+'">'+marqueecontents+' </marquee>')
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers){
setTimeout("window.onresize=regenerate",450)
intializemarquee()
}
}
function intializemarquee(){
document.cmarquee01.document.cmarquee02.document.w rite('<font>'+marqueecontents+'</font>')
document.cmarquee01.document.cmarquee02.document.c lose()
thelength=document.cmarquee01.document.cmarquee02. document.width
scrollit()
}
function scrollit(){
if (document.cmarquee01.document.cmarquee02.left>=the length*(-1)){
document.cmarquee01.document.cmarquee02.left-=speed
setTimeout("scrollit()",100)
}
else{
document.cmarquee01.document.cmarquee02.left=marqu eewidth
scrollit()
}
}
window.onload=regenerate2
</script>
</div>
<%
'Move to the next record in the recordset
rsNews.MoveNext
Next
'Reset server objects
rsNews.Close
Set rsNews = Nothing
Set strAdoNewsConfig = Nothing
Set adoNewsCon = Nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>