Originariamente inviato da gensole
buongiorno sapete indicarmi uno script per le news che faccia anche lo scroll verticale ma che si fermi al passaggio del mouse????vi ringrazio.......
Prova questo:
codice:
<%
'Connessione DB
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("percorso/tuo_db_news.mdb") 
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
'Apertura recorset
Set rsNews = Server.CreateObject("ADODB.Recordset")
	strSQL_New = "SELECT * FROM tua_tabella_News where News_Data ORDER by News_Data desc"
	Set rsNews = conn.Execute(strSQL_New)
	sHtml1 = "<FONT face='verdana' SIZE='1' COLOR='Black'>"
	sHtml2 = "<A HREF='PaginaNews.asp?ID="
	sHtml3 = "'>"
	sHtml4 = "</A></FONT>

"
	sTxt = ""
'Verifica recordset
If rsNews.EOF Then
   Response.Write "<center><FONT Face='Arial' SIZE='1'>Non ci sono nuove News</font></center>" 
Else
   rsNews.movefirst
   
'Mostra le prime 5 News
  i=0
do until i=5 or rsNews.EOF
  i=i+1
'visualizzione records news  
 sTxt = sTxt & sHtml1 & "Data: " & rsNews("News_Data") &  sHtml2 & _
 rsNews("ID") & sHtml3 &"
"& rsNews("News_titolo") & sHtml4
 rsNews.movenext
Loop
'Setto i valori della tabella velocita larghezza altezza
 iSpeed = 85 	
 iTop = 0		
 iLeft = 0		
 iWidth = 145	 
 iHeight = 110
 sMarquee="<MARQUEE onmouseover='this.stop();' " & _
 "onmouseout='this.start();'direction='up' scrollamount='1' " & _
 "scrolldelay='" & iSpeed & "' Top='" & iTop & "' left='" & iLeft & _
 "' width='" & iWidth & "' height='" & iHeight & "'>" & sTxt & "</MARQUEE>"
End IF
'visualizzo il tutto
 Response.Write "<table border='0' width='8%' height='1' cellspacing='0' cellpadding='0'>"
 Response.Write "<tr><td width='100%' height='1' bgcolor='#98A0B8'>[img]immagini/News.gif[/img]"
 Response.Write "</td></tr><tr><td width='100%' height='1' align='center' bgcolor='#EDF8FE'>"& sMarquee & "[img]immagini/separatore.gif[/img]</td></tr></table>"
'distruggo il recorset
rsNews.Close
Set rsNews = Nothing
'distruggo la connessione
conn.Close
Set conn = Nothing
else
 Response.Write "[img]immagini/separatore.gif[/img]"

End IF
%>