<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim rsLatestAdditions Dim rsLatestAdditions_numRows Set rsLatestAdditions = Server.CreateObject("ADODB.Recordset") rsLatestAdditions.ActiveConnection = MM_connK1XAlpha_STRING rsLatestAdditions.Source = "SELECT * FROM [Latest News] ORDER BY newsDate DESC" rsLatestAdditions.CursorType = 0 rsLatestAdditions.CursorLocation = 2 rsLatestAdditions.LockType = 1 rsLatestAdditions.Open() rsLatestAdditions_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 rsLatestAdditions_numRows = rsLatestAdditions_numRows + Repeat1__numRows %> K1X Alpha 2.0
Site hosted by Angelfire.com: Build your free website today!
<% rsLatestAdditions.Close() Set rsLatestAdditions = Nothing %>