<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim News
Dim News_numRows
Set News = Server.CreateObject("ADODB.Recordset")
News.ActiveConnection = MM_interasia_STRING
News.Source = "SELECT * FROM News ORDER BY dt DESC"
News.CursorType = 0
News.CursorLocation = 2
News.LockType = 1
News.Open()
News_numRows = 0
' The following is the code for the scrolling news ticker. This will only work on a IIS server and IE browsers. Netscape users will still see the news, but it will not scroll.
Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,sMarquee
Dim conCurrent
Dim rstCurrent
Set rstCurrent = News
strSQL = News.Source
sHtml1 = ""
sHtml2 = " "
sHtml4 = ""
sHtml5 = " "
sTxt = ""
Dim Repeat7__numRows
Dim Repeat7__index
Repeat7__numRows = -1
Repeat7__index = 0
News_numRows = News_numRows + Repeat7__numRows
While ((Repeat7__numRows <> 0) AND (NOT News.EOF))
sTxt = sTxt & sHtml1 & DoDateTime((News.Fields.Item("dt").Value), 1, 4105) & " - " & sHtml2 & _
rstCurrent("ID") & sHtml3 & (News.Fields.Item("headline").Value) & sHtml4 & sHtml5
Repeat7__index=Repeat7__index+1
Repeat7__numRows=Repeat7__numRows-1
News.MoveNext()
Wend
iSpeed = 40 ' Speed of Marquee (higher = slower)
iTop = 0 ' Y Location Within Object
iLeft = 0 ' X Location""""
iWidth = 800 ' Width
iHeight = 0 ' Height
'Insert marquee into objects innerHtml Property (in this Case a table cell)
sMarquee=""
%>
InterAsia Media Page
