Implementing rolling News

Often in some sites see there are such things, a box, inside the
The content (usually the news headlines) is rolled over and over again. Actually in
The ability to display such features on IE 4 is an unusually simple thing to do.
The main function has only one:
Sub Shownews
(TITLESTR,TITLELINK,DATESTR,LEFT,TOP,NEWSSTR)
Parameter description:
Title of Titlestr Box
Titlelink A join of a box header, which can be an empty string
Datestr If it is news, of course to show the date, but also other
The Hint information
Absolute coordinates of the Left,top box
Newstr the information that is actually displayed and its join, is a two-D array.
Invoke Example
<!--#include file= "News.inc"-->
<%
Dim newsstr (1,5)
Newsstr (0,0) = "Download this bulletin bar"
Newsstr (1,0) = "HTTP://WWW.AAAAAAA.AAAAAA"

NEWSSTR (0,1) = "XXX"
Newsstr (1,1) = "http://www.xxx.com/"

Newsstr (0,2) = "Software Download"
NEWSSTR (1,2) = "http://www.xxx.com/"

Newsstr (0,3) = "Fan Greeting card"
Newsstr (1,3) = "Http://www.soccerchina.com/postcard"

Newsstr (0,4) = "Chinese Yahoo"
Newsstr (1,4) = "Http://gbchinese.yahoo.com"

Newsstr (0,5) = "Football World"
Newsstr (1,5) = "http://www.soccerchina.com"

Shownews "Site list", "", "98-12-15", 10,100,newsstr
%>