<%@LANGUAGE="VBSCRIPT"%> <% Dim rsList Dim rsList_cmd Dim rsList_numRows Set rsList_cmd = Server.CreateObject ("ADODB.Command") rsList_cmd.ActiveConnection = MM_CNannouncement_STRING rsList_cmd.CommandText = "SELECT ClosureDate, [Comment], EnterDt FROM tblAnnouncements ORDER BY EnterDt DESC" rsList_cmd.Prepared = true Set rsList = rsList_cmd.Execute rsList_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsList_numRows = rsList_numRows + Repeat1__numRows %> KFCS: Announcements


<% While ((Repeat1__numRows <> 0) AND (NOT rsList.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsList.MoveNext() Wend %>
Date
Announcement
<%=(rsList.Fields.Item("ClosureDate").Value)%> 
<%=(rsList.Fields.Item("Comment").Value)%> 

Return to Klamath Falls City Schools Website

Contact Webmaster
<% rsList.Close() Set rsList = Nothing %>