News con scroll verticale

[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.......

[andropoff]

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.......

nella sezione script...

nn credo si possa fare uno scroll il ASP..

con ASP recuperi le variabili da visualizzare, con una js fai lo scroll con stop all'hover del mouse.

[cavicchiandrea]

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:

<%
'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
%>