<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim news
Dim news_numRows
Set news = Server.CreateObject("ADODB.Recordset")
news.ActiveConnection = MM_amp_STRING
news.Source = "SELECT * FROM news ORDER BY date DESC"
news.CursorType = 0
news.CursorLocation = 2
news.LockType = 1
news.Open()
news_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 3
Repeat1__index = 0
news_numRows = news_numRows + Repeat1__numRows
%>
news
<%
While ((Repeat1__numRows <> 0) AND (NOT news.EOF))
%>
<%= DoDateTime((news.Fields.Item("date").Value), 2, -1) %> - <%=(news.Fields.Item("title").Value)%>
<%=(news.Fields.Item("news").Value)%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
news.MoveNext()
Wend
%>
<%
news.Close()
Set news = Nothing
%>