%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsNewsEvents Dim rsNewsEvents_numRows Set rsNewsEvents = Server.CreateObject("ADODB.Recordset") rsNewsEvents.ActiveConnection = MM_opirqwar_STRING rsNewsEvents.Source = "SELECT tblCurrentEvents.NewsMemo, tblCurrentEvents.NewsDate FROM tblCurrentEvents WHERE (tblCurrentEvents.NewsId)=(SELECT Max(tblCurrentEvents.NewsId) AS MaxID FROM tblCurrentEvents)" rsNewsEvents.CursorType = 0 rsNewsEvents.CursorLocation = 2 rsNewsEvents.LockType = 1 rsNewsEvents.Open() rsNewsEvents_numRows = 0 %> <% Dim rsGuestBook Dim rsGuestBook_numRows Set rsGuestBook = Server.CreateObject("ADODB.Recordset") rsGuestBook.ActiveConnection = MM_opirqwar_STRING rsGuestBook.Source = "SELECT tblGuestBook.guestName, tblGuestBook.guestComment, tblGuestBook.guestDate FROM tblGuestBook WHERE (tblGuestBook.guestID)=(SELECT Max(tblGuestBook.guestID) AS MaxID FROM tblGuestBook) " rsGuestBook.CursorType = 0 rsGuestBook.CursorLocation = 2 rsGuestBook.LockType = 1 rsGuestBook.Open() rsGuestBook_numRows = 0 %>
![]() |
|||
|
|
Due to problems
with abuse of our guestbook, we have suspended the automated
posting service. To send your guestbook comments, please send
e-mail to:
Note that guestbook comment text is limited to 250 characters. While we appreciate, and read, all messages sent to us, we will edit any that are longer than the 250 character maximum when the message is destined for our guestbook. We will post your messages as soon as they are reviewed by the site administrator for appropriate size and content.
|
||
![]() |
|||