%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_dsnNews_STRING rsNews.Source = "SELECT * FROM tblNews" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 2 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %>
Date: <%=(rsNews.Fields.Item("News_Date").Value)%> |
<%=(rsNews.Fields.Item("News_title").Value)%> |
<%=(rsNews.Fields.Item("Short_news").Value)%> |