<%@LANGUAGE="VBSCRIPT"%> <% set Ps = Server.CreateObject("ADODB.Recordset") Ps.ActiveConnection = MM_Eastex_STRING Ps.Source = "SELECT * FROM Status" Ps.CursorType = 0 Ps.CursorLocation = 2 Ps.LockType = 3 Ps.Open() Ps_numRows = 0 %> <% set Cal = Server.CreateObject("ADODB.Recordset") Cal.ActiveConnection = MM_Eastex_STRING Cal.Source = "SELECT * FROM Calendar ORDER BY ItemDate ASC" Cal.CursorType = 0 Cal.CursorLocation = 2 Cal.LockType = 3 Cal.Open() Cal_numRows = 0 %><% dim ItemDate(500) dim ItemDesc(500) CC = -1 if not (Cal.BOF and Cal.EOF) then do while not Cal.EOF CC=CC+1 ItemDate(CC) = (Cal.Fields.Item("ItemDate").Value) ItemDesc(CC) = (Cal.Fields.Item("ItemDescription").Value) Cal.MoveNext() Loop end if %> Project Information
Home Page
General Project Info
The Big Thicket
Public Input
Project Updates
Contact Information
Frequently Asked Questions
Project Graphics
Site Administrators
ANRA Home Page
Project Updates : Presentations
Presentations

Click on the date of the presentation you wish to view from the list below.

No presentations are available at this time. Please check back soon.

 

Copyright © 2003-2007, The Angelina & Neches River Authority
Designed, developed, hosted and maintained by Freese and Nichols, Inc.
Visit the ANRA Web Site <% Ps.Close() %> <% Cal.Close() %>