<%@ Language=VBScript %>
<%
'=======================================================================
'
' "ASP Forums" - a web-based discussion forum implementation.
' Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Lesser General Public
' License as published by the Free Software Foundation; either
' version 2.1 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
' Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public
' License along with this library; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'
'=======================================================================

'=======================================================================
' ASP Forums version 2.0 beta 6 - October 20th 2000.
'=======================================================================
%>
<%Option Explicit%>
<%
'=======================================================================
'
' "ASP Forums" - a web-based discussion forum implementation.
' Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Lesser General Public
' License as published by the Free Software Foundation; either
' version 2.1 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
' Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public
' License along with this library; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'
'=======================================================================

'=======================================================================
' ASP Forums version 2.0 beta 6 - October 20th 2000.
'=======================================================================

' Appearance Constants
Const adFlatBevel = 0
Const ad3Dbevel = 1

' BOFAction Constants
Const adDoMoveFirst = 0
Const adStayBOF = 1

' CommandType Constants
Const adCmdText = 1
Const adCmdTable = 2
Const adCmdStoredProc = 4
Const adCmdUnknown = 8

' Mode Constants
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = 12
Const adModeShareDenyNone = 16

' ConnectionString Constants
Const adConnectStringTypeUnknown = 0
Const adOLEDB = 1
Const adOLEDBFile = 2
Const adODBC = 3

' CursorLocation Constants
Const adUseServer = 2
Const adUseClient = 3

' CursorType Constants
Const adOpenForwardOnly = 0 ' Note   ForwardOnly cursors are not available for the ADO Data Control.
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

' EOFAction Constants
Const adDoMoveLast = 0
Const adStayEOF = 1
Const adDoAddNew = 2

' EventReason Constants
Const adRsnAddNew = 1
Const adRsnDelete = 2
Const adRsnUpdate = 3
Const adRsnUndoUpdate = 4
Const adRsnUndoAddNew = 5
Const adRsnUndoDelete = 6
Const adRsnRequery = 7
Const adRsnResynch = 8
Const adRsnClose = 9
Const adRsnMove = 10

' EventStatus Constants
Const adStatusOK = 1
Const adStatusErrorsOccurred = 2
Const adStatusCantDeny = 3  
Const adStatusCancel = 4
Const adStatusUnwantedEvent = 5  

' LockType Constants
Const adLockUnspecified = -1
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

' Orientation Constants
Const adHorizontal = 0
Const adVertical = 1
%>
<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
// Global variables - yuk!
// ======================================================================
var currentMessage_disc;

var currentUsername_disc = "Name Unset";

var currentUserFullName_disc = "Unset";

var currentUserEmailAddress_disc = "unset@unset.com";

var isAdministrator_disc = false;

var config = new ASPFConfig ("");

var undefined_disc;

// ======================================================================
// CONSTANTS - well, pseudo-constants really...
// ======================================================================
var ASPF_FORM_OBJECT_TYPE_DISC = 100;
var ASPF_MESSAGE_OBJECT_TYPE_DISC = 101;
var ASPF_RECORDSET_OBJECT_TYPE_DISC = 102;

// ======================================================================
//
// The TRIVIAL interface.
//
// These functions are the simple objects users add to their HTML docs.
// They're a bit simplistic, but their trivially easy to use.
//
// None of them take parameters, and they directly output the object -
// they don't return a string.
//
// ======================================================================

function FORUM_LINK_DISC
(
)
{
  ASPFPageElement.showForumLink ();
  return;
}

function PARENT_MESSAGE_LINK_DISC
(
)
{
  ASPFPageElement.showParentMessageLink ();
  return;
}

function SEARCH_FORM_DISC
(
)
{
  ASPFPageElement.showSearchForm ();
  return;
}

function SMALL_SEARCH_FORM_DISC
(
)
{
  ASPFPageElement.showSmallSearchForm ();
  return;
}

function NEW_POST_BUTTON_DISC
(
)
{
  ASPFPageElement.showNewPostButton ();
  return;
}

function NEW_POST_LINK_DISC
(
)
{
  ASPFPageElement.showNewPostLink ();
  return;
}

function NEW_REPLY_BUTTON_DISC
(
)
{
  ASPFPageElement.showNewReplyButton ();
  return;
}

function EDIT_POST_BUTTON_DISC
(
)
{
  ASPFPageElement.showEditPostButton ();
  return;
}

function ALL_ROOT_POSTS_DISC
(
)
{
  ASPFPageElement.showAllThreads ();
  return;
}

function ALL_ROOT_POSTS_THREADED_DISC
(
)
{
  ASPFPageElement.showAllThreads ();
  return;
}

function CURRENT_POSTS_THREADED_DHTML_DISC
(
)
{
  ASPFPageElement.showCurrentThreads ();
  return;
}

function CURRENT_ROOT_POSTS_THREADED_DISC
(
)
{
  ASPFPageElement.showCurrentThreads ();
  return;
}

function CURRENT_ROOT_POSTS_THREADED_STATIC_DISC
(
)
{
  ASPFPageElement.showCurrentThreadsStatic ();
  return;
}

function NEW_POST_FORM_DISC
(
)
{
  ASPFPageElement.showNewPostForm ();
  return;
}

function EDIT_POST_FORM_DISC
(
)
{
  ASPFPageElement.showEditPostForm ();
  return;
}

function ARCHIVE_DISC
(
)
{
  ASPFPageElement.showArchive ();
  return;
}

function SEARCH_RESULTS_DISC
(
)
{
  ASPFPageElement.actionSearch ();
  return;
}

function POST_MESSAGE_DISC
(
)
{
  ASPFPageElement.actionSaveNewMessage ();
  return;
}

function SAVE_EDITED_MESSAGE_DISC
(
)
{
  ASPFPageElement.actionSaveUpdatedMessage ();
  return;
}

function MESSAGE_DISC
(
)
{
  ASPFPageElement.showCurrentMessage ();
  return;
}

function THREAD_DISC
(
)
{
  ASPFPageElement.showCurrentThread ();
  return;
}

function ADMIN_TOOLS_DISC
(
)
{
  ASPFPageElement.showAdminSQLForm ();
  ASPFPageElement.actionExecuteAdminSQL ();
  return;
}

function STD_MESSAGE_DISC
(
)
{
  ASPFPageElement.showStandardMessage ();
  return;
}

function FORUM_TITLE_DISC
(
)
{
  ASPFPageElement.showForumTitle ();
  return;
}

function SUBJECT_DISC
(
)
{
  ASPFPageElement.showMessageSubject ();
  return;
}

function MESSAGE_BODY_DISC
(
)
{
  ASPFPageElement.showMessageBody ();
  return;
}

function AUTHOR_DISC
(
)
{
  ASPFPageElement.showMessageAuthorName ();
  return;
}

function AUTHOR_EMAIL_DISC
(
)
{
  ASPFPageElement.showMessageAuthorEmail ();
  return;
}

function AUTHOR_FULL_NAME_DISC
(
)
{
  ASPFPageElement.showMessageAuthorFullname ();
  return;
}

function DATE_CREATED_DISC
(
)
{
  ASPFPageElement.showMessageDateCreated ();
  return;
}

function DATE_MODIFIED_DISC
(
)
{
  ASPFPageElement.showMessageDateModified ();
  return;
}

function SORT_CODE_DISC
(
)
{
  ASPFPageElement.showMessageSortCode ();
  return;
}

function NUM_CHILDREN_DISC
(
)
{
  ASPFPageElement.showMessageNumChildren ();
  return;
}

function MESSAGE_ID_DISC
(
)
{
  ASPFPageElement.showMessageID ();
  return;
}

function PARENT_ID_DISC
(
)
{
  ASPFPageElement.showMessageParentID ();
  return;
}

function THREAD_ID_DISC
(
)
{
  ASPFPageElement.showMessageThreadID ();
  return;
}

function CLEANUP_DISC
(
)
{
  var dbDatabase = new ASPFDatabase ();
  dbDatabase.cleanup ();

  if (config.CACHE_PurgeOnPageCleanup)
    {
      var cchRecordCache = new ASPFCache ();
      cchRecordCache.purge ();

      delete cchRecordCache;
    }

  delete dbDatabase;
  delete config;
  delete currentMessage_disc;
  return;
}

//=======================================================================
//
// Some global helper functions.  Some of these should have been built into
// the language if you ask me...
//
//=======================================================================

function isUndefined_disc
(
 JSvariable
)
{
  var bIsUndefined;

  if ("object" == typeof (JSvariable))
    {
      bIsUndefined = false;
    }
  else
    {
      bIsUndefined = (String (JSvariable).valueOf () == "undefined" ? true : false);
    }

  return bIsUndefined;
}

function isDefined_disc
(
 JSvariable
)
{
  return !isUndefined_disc (JSvariable);
}

function safeStringDereference_disc
(
 JSvariable
)
{
  return (isUndefined_disc (String (JSvariable)) ? "" : String (JSvariable));
}

function safeNumberDereference_disc
(
 JSvariable
)
{
  return (isUndefined_disc (JSvariable) ? "0" : JSvariable);
}

</SCRIPT>

<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// CACHE OBJECT
//
// ======================================================================

function ASPFCache
(
)
{
  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function retrieveObjectByKey_cch_disc
(
 strKey
)
{
  var objCachedObject = undefined_disc;
  if (config.CACHE_Enabled)
    {
      strKey = this.unmangleKey (strKey);

      var strLastUpdated = Application (strKey + config.CACHE_TimeStampKey);
      if (isDefined_disc (strLastUpdated))
	{
	  if (this.cacheObjectAlive (strLastUpdated))
	    {
	      objCachedObject = Application (strKey);
	    }
	}
    }

  return objCachedObject;
}

function storeObjectByKey_cch_disc
(
 strKey,
 objCachedObject
)
{
  if (config.CACHE_Enabled)
    {
      strKey = this.unmangleKey (strKey);

      Application.Lock ();
      Application (strKey) = objCachedObject;
      Application (strKey + config.CACHE_TimeStampKey) = (new Date ()).toLocaleString ();
      Application.Unlock ();
    }

  return;
}

function removeObjectByKey_cch_disc
(
 strKey
)
{
  if (config.CACHE_Enabled)
    {
      strKey = this.unmangleKey (strKey);

      this.removeObjectPrivateRoutine (strKey);
      this.removeObjectPrivateRoutine (strKey + config.CACHE_TimeStampKey);
    }

  return;
}

function removeObjectPrivateRoutine_cch_disc
(
 strUnmangledkey
)
{
  Application.Lock ();
  if (isDefined_disc (Application (strUnmangledkey)))
    {
      if (typeof (Application (strUnmangledkey)) == "object")
	{
	  Application (strUnmangledkey).close ();
	}
      Application (strUnmangledkey) = undefined_disc;
    }
  Application.Unlock ();

  return;
}

function removeObjectsByKeyPrefix_cch_disc
(
 strKeyPrefix
)
{
  strKeyPrefix = this.unmangleKey (strKeyPrefix);
  var strCurrentKey;
  for (var nCounter = 1; nCounter <= Application.Contents.Count; nCounter++)
    {
      strCurrentKey = Application.Contents.Key (nCounter);
      if (strKeyPrefix.toUpperCase () == (strCurrentKey.substring (0, strKeyPrefix.length)).toUpperCase ())
	{
	  this.removeObjectPrivateRoutine (strCurrentKey);
	}
    }

  return;
}

function purge_cch_disc
(
)
{
  Response.Write ("<H2>Purging</H2>");
  this.removeObjectsByKeyPrefix (config.getUniqueKey ());

  return;
}

// ======================================================================
//
// Private object methods.  These should not be called except by this object.
//
// ======================================================================

function unmangleKey_cch_disc
(
 strKey
)
{
  return config.getUniqueKey () + strKey;
}

function cacheObjectAlive_cch_disc
(
 strUpdateTime
)
{
  var bAreWeAlive;
  var dtItemCachedAt = new Date (strUpdateTime);
  var dtCurrentTimeStamp = new Date ();
  var nCacheTimeout = config.ADMINSETTING_CacheTimeoutMinutes * 60 * 1000;

  if (((dtCurrentTimeStamp - dtItemCachedAt) < nCacheTimeout)
      || (dtItemCachedAt.getDate () != dtCurrentTimeStamp.getDate ()))
    {
      bAreWeAlive = true;
    }
  else
    {
      bAreWeAlive = false;
    }

  delete dtItemCachedAt;
  delete dtCurrentTimeStamp;
  return bAreWeAlive;
}

ASPFCache.purge = purge_cch_disc;

ASPFCache.prototype.retrieveObjectByKey = retrieveObjectByKey_cch_disc;
ASPFCache.prototype.storeObjectByKey = storeObjectByKey_cch_disc;
ASPFCache.prototype.removeObjectByKey = removeObjectByKey_cch_disc;
ASPFCache.prototype.removeObjectPrivateRoutine = removeObjectPrivateRoutine_cch_disc;
ASPFCache.prototype.removeObjectsByKeyPrefix = removeObjectsByKeyPrefix_cch_disc;
ASPFCache.prototype.purge = purge_cch_disc;
ASPFCache.prototype.unmangleKey = unmangleKey_cch_disc;
ASPFCache.prototype.cacheObjectAlive = cacheObjectAlive_cch_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// CONFIG OBJECT
//
// ======================================================================

function ASPFConfig
(
)
{
  this.ADMINSETTING_ForumName = "Discussion Forum";

  this.ADMINSETTING_DatabaseFilename = "forum.mdb";
  this.ADMINSETTING_DatabaseTable = "[Forum]";
  this.ADMINSETTING_DatabaseDSN = "";

  this.ADMINSETTING_DaysMessagesActive = 28;
  this.ADMINSETTING_VirtualPath = undefined_disc;
  this.ADMINSETTING_CacheTimeoutMinutes = 120;

  this.ADMINSETTING_EmailAdminName = "";
  this.ADMINSETTING_EmailAdminAddress = "";
  this.ADMINSETTING_EmailAlertFromName = "ASP Forums (unknown forum) auto-alert";
  this.ADMINSETTING_EmailAlertFromAddress = "asp-auto-alert@aspforums.com";
  this.ADMINSETTING_EmailAlertSignature = "--\nThis message was generated by ASP Forums discussion software.\nVisit http://www.aspforums.com/ for further information.";
  this.ADMINSETTING_EmailAlertSignatureHTML = "<FONT FACE=\"Tahoma,Arial,Helvetica,Sans Serif\" SIZE=\"-2\"><P><HR width=\"80%\" align=\"left\"><P>This message was generated by <A HREF=\"http://www.aspforums.com/\" TITLE=\"ASP Forums web site\">ASP Forums discussion software</A>.<BR>&copy; Copyright 1999 ASP Forums. All rights reserved. Please read our <A href=\"http://www.aspforums.com/about/privacy/\" TITLE=\"ASP Forums&#146; statement on privacy and use of personal information.\">privacy policy</A> to see how we try to protect your privacy.</P></FONT>";

  // The following govern the images used for expanding and collapsing threads.
  this.ADMINSETTING_ExpandImagePathname = "plus.gif";
  this.ADMINSETTING_ExpandImageWidth = 11;
  this.ADMINSETTING_ExpandImageHeight = 11;
  this.ADMINSETTING_CollapseImagePathname = "minus.gif";
  this.ADMINSETTING_CollapseImageWidth = 11;
  this.ADMINSETTING_CollapseImageHeight = 11;
  this.ADMINSETTING_NoExpandImagePathname = "blank.gif";
  this.ADMINSETTING_NoExpandImageWidth = 11;
  this.ADMINSETTING_NoExpandImageHeight = 11;
  this.ADMINSETTING_ExpandCollapseFontSize = 2;

  // The following govern the images used for the formatting toolbar on the IE5 text control.
  this.ADMINSETTING_ToolbarBackgroundColour = "#CCCCCC";
  this.ADMINSETTING_ToolbarImagePathname = "toolbar.gif";
  this.ADMINSETTING_ToolbarButtonImagePathname = "button_normal.gif";
  this.ADMINSETTING_ToolbarButtonImageUpPathname = "button_up.gif";
  this.ADMINSETTING_ToolbarButtonImageDownPathname = "button_down.gif";
  this.ADMINSETTING_ToolbarButtonImageWidth = 25;
  this.ADMINSETTING_ToolbarButtonImageHeight = 20;
  this.ADMINSETTING_ToolbarSpacerImagePathname = "toolbar_spacer.gif";
  this.ADMINSETTING_ToolbarSpacerImageWidth = 5;
  this.ADMINSETTING_ToolbarSpacerImageHeight = 20;
  this.ADMINSETTING_ToolbarTotalWidth = 300;

  // The following govern the appearance of some page elements.
  this.ADMINSETTING_CSSClass = "ASPForums";
  this.ADMINSETTING_CSSClassViewAuthor = "ASPForumsViewAuthor";
  this.ADMINSETTING_CSSClassViewNoChildren = "ASPForumsViewNoChildren";
  this.ADMINSETTING_CSSClassViewOneChild = "ASPForumsViewOneChild";
  this.ADMINSETTING_CSSClassViewManyChildren = "ASPForumsViewManyChildren";
  this.ADMINSETTING_CSSClassViewDate = "ASPForumsViewDate";
  this.ADMINSETTING_CSSClassViewSubject = "ASPForumsViewSubject";
  this.ADMINSETTING_CSSClassMsgPostedByLabel = "ASPForumsMsgPostedByLabel";
  this.ADMINSETTING_CSSClassMsgPostedBy = "ASPForumsMsgPostedBy";
  this.ADMINSETTING_CSSClassMsgPostedOnLabel = "ASPForumsMsgPostedOnLabel";
  this.ADMINSETTING_CSSClassMsgPostedOn = "ASPForumsMsgPostedOn";
  this.ADMINSETTING_CSSClassMsgBodyLabel = "ASPForumsMsgBodyLabel";
  this.ADMINSETTING_CSSClassMsgBody = "ASPForumsMsgBody";
  this.ADMINSETTING_CSSClassFormBody = "ASPForumsFormBody";
  this.ADMINSETTING_CSSClassFormBodyLabel = "ASPForumsFormBodyLabel";
  this.ADMINSETTING_CSSClassFormSubject = "ASPForumsFormSubject";
  this.ADMINSETTING_CSSClassFormSubjectLabel = "ASPForumsFormSubjectLabel";
  this.ADMINSETTING_CSSClassFormEmailResponses = "ASPForumsFormEmailResponses";
  this.ADMINSETTING_CSSClassFormEmailResponsesLabel = "ASPForumsFormEmailResponsesLabel";
  this.ADMINSETTING_CSSClassFormPostedBy = "ASPForumsFormPostedBy";
  this.ADMINSETTING_CSSClassFormPostedByLabel = "ASPForumsFormPostedByLabel";
  this.ADMINSETTING_CSSClassFormFullName = "ASPForumsFormFullName";
  this.ADMINSETTING_CSSClassFormFullNameLabel = "ASPForumsFormFullNameLabel";
  this.ADMINSETTING_CSSClassFormEmailAddress = "ASPForumsFormEmailAddress";
  this.ADMINSETTING_CSSClassFormEmailAddressLabel = "ASPForumsFormEmailAddressLabel";
  this.ADMINSETTING_CSSClassFormSearch = "ASPForumsFormSearch";
  this.ADMINSETTING_CSSClassFormSearchSmall = "ASPForumsFormSearchSmall";
  this.ADMINSETTING_CSSClassFormDateElement = "ASPForumsFormDateElement";
  this.ADMINSETTING_CSSClassFormMonthElement = "ASPForumsFormMonthElement";
  this.ADMINSETTING_CSSClassFormYearElement = "ASPForumsFormYearElement";

  this.ADMINSETTING_DefaultEmbeddedLinkTarget = undefined_disc;
  this.ADMINSETTING_TopPageTarget = undefined_disc;
  this.ADMINSETTING_AdminPageTarget = undefined_disc;
  this.ADMINSETTING_ArchivePageTarget = undefined_disc;
  this.ADMINSETTING_EditPostActionPageTarget = undefined_disc;
  this.ADMINSETTING_EditPostPageTarget = undefined_disc;
  this.ADMINSETTING_MainPageTarget = undefined_disc;
  this.ADMINSETTING_NewPostActionPageTarget = undefined_disc;
  this.ADMINSETTING_NewPostPageTarget = undefined_disc;
  this.ADMINSETTING_SearchPageTarget = undefined_disc;
  this.ADMINSETTING_ShowMessagePageTarget = undefined_disc;

  this.ADMINSETTING_TableBorderSize = 0;
  this.ADMINSETTING_TableFullWidth = 468;
  this.ADMINSETTING_TableTitleColumnWidth = 100;
  this.ADMINSETTING_TableFieldColumnWidth = 368;
  this.ADMINSETTING_TextAreaRows = 10;
  this.ADMINSETTING_TextAreaCols = 52;
  this.ADMINSETTING_PrecisLength = 150;
  this.ADMINSETTING_ViewIndentResponseSpaces = 8;
  this.ADMINSETTING_InputboxMaxLength = 100;
  this.ADMINSETTING_SubjectInputboxSize = 50;
  this.ADMINSETTING_ExpandFirstNThreads = 0;
  this.ADMINSETTING_ShowAtMostNThreads = 0;
  this.ADMINSETTING_WrapMessageThreadViews = true;

  // The following switches turn on or off various ASP Forums features.
  this.ADMINSWITCH_AllowEmailResponses = true;
  this.ADMINSWITCH_AllowUserEditing = true;
  this.ADMINSWITCH_AllowRichFormatting = true;
  this.ADMINSWITCH_AllowRichFormattingImages = false;
  this.ADMINSWITCH_AllowHTMLEmail = true;
  this.ADMINSWITCH_ShowExpandCollapse = true;
  this.ADMINSWITCH_ShowEmailAddresses = true;
  this.ADMINSWITCH_ShowNewPostButtonOnMessage = true;
  this.ADMINSWITCH_ViewPostsAscending = false;
  this.ADMINSWITCH_ExpandAllThreads = false;

  // The following text strings are used on the default.asp page.
  this.USERTEXT_VIEW_NoMessages = "There are no messages to display.";
  this.USERTEXT_VIEW_NoRepliesTag = "No&nbsp;replies";
  this.USERTEXT_VIEW_OneReplyTag = "&nbsp;reply";
  this.USERTEXT_VIEW_ManyRepliesTag = "&nbsp;replies";
  this.USERTEXT_VIEW_SeparateSubjectAuthor = " by ";
  this.USERTEXT_VIEW_SeparateAuthorDate = " on ";
  this.USERTEXT_VIEW_PopupExpandLink = "+ Expand this thread";
  this.USERTEXT_VIEW_PopupCollapseLink = "- Collapse this thread";

  // The following text strings are used on the showmessage.asp page.
  this.USERTEXT_SHOW_NewPostButton = "Post a new message";
  this.USERTEXT_SHOW_EditPostButton = "Edit this post";
  this.USERTEXT_SHOW_ReplyPostButton = "Post a reply";
  this.USERTEXT_SHOW_PostedByPrompt = "Posted&nbsp;by:";
  this.USERTEXT_SHOW_PostedOnPrompt = "Posted on:";
  this.USERTEXT_SHOW_BodyPrompt = "Message:";
  this.USERTEXT_SHOW_PopupSubjectPrefix = "Open message: ";
  this.USERTEXT_SHOW_PopupEmailPrefix = "Email: ";

  // The following text strings are used on the newpost.asp, newpostaction.asp, editpost and editpostaction.asp pages.
  this.USERTEXT_POST_UpdateFailedPrefix = "Saving failed: ";
  this.USERTEXT_POST_UpdateSuccessful = "Your changes have been saved.";
  this.USERTEXT_POST_PostFailedPrefix = "Posting failed: ";
  this.USERTEXT_POST_PostSuccessful = "Your message has been posted.  Please do not refresh this page, since that will repost your message!";
  this.USERTEXT_POST_ForumLinkPrefix = "Go back to ";
  this.USERTEXT_POST_ReplySubjectPrefix = "Re: ";
  this.USERTEXT_POST_PreviousMessageLinkText = "Go back to the previous message.";
  this.USERTEXT_POST_UsernamePrompt = "&nbsp;Username:";
  this.USERTEXT_POST_FullnamePrompt = "&nbsp;Full Name:";
  this.USERTEXT_POST_EmailAddressPrompt = "&nbsp;Email Address:";
  this.USERTEXT_POST_PostedByPrompt = "&nbsp;Posted by:";
  this.USERTEXT_POST_SubjectPrompt = "&nbsp;Subject:";
  this.USERTEXT_POST_BodyPrompt = "Message:";
  this.USERTEXT_POST_EmailResponsesPrompt = "Email me when someone responds to my post";
  this.USERTEXT_POST_SubmitButton = "Post Message";
  this.USERTEXT_POST_SaveChangesButton = "Save";
  this.USERTEXT_POST_NotAuthorisedToEditMessage = "You are not authorised to edit this message.";
  this.USERTEXT_POST_ErrorNoSubject = "A subject is required for each post.";
  this.USERTEXT_POST_ErrorNoBody = "A message is required for each post.";
  this.USERTEXT_POST_ErrorNoUsername = "No username was supplied for posting.";
  this.USERTEXT_POST_ErrorNoName = "No name was supplied for posting.";
  this.USERTEXT_POST_ErrorNoEmail = "No email address was supplied for posting.";
  this.USERTEXT_POST_ErrorInvalidThreadID = "An internal error (invalid thread ID) occurred.";
  this.USERTEXT_POST_ErrorInvalidParentID = "An internal error (invalid parent ID) occurred.";

  // The following strings are all used on the archive.asp page.
  this.USERTEXT_ARCHIVE_ShowResults = "Show posts from that month";

  // The following strings are used on the search.asp page.
  this.USERTEXT_SEARCH_SmallSearchPrefix = "Keyword search forum:";
  this.USERTEXT_SEARCH_SubmitButton = "Search Forum";
  this.USERTEXT_SEARCH_ResultsHeader1 = "Your search for ";
  this.USERTEXT_SEARCH_ResultsHeader2 = " found ";
  this.USERTEXT_SEARCH_ResultsHeaderSuffix0Match = " matches.";
  this.USERTEXT_SEARCH_ResultsHeaderSuffix1Match = " match.";
  this.USERTEXT_SEARCH_ResultsHeaderSuffixManyMatches = " matches.";

  // The following strings are used on the admin.asp page.
  this.USERTEXT_SQL_EnterPrompt = "Enter your SQL queries or updates below:"
  this.USERTEXT_SQL_ExecutePrompt = "Execute SQL";
  this.USERTEXT_SQL_ResultsPrefix = "Results:";
  this.USERTEXT_SQL_StatementPrefix = "SQL statement: ";
  this.USERTEXT_SQL_DBErrorPrefix = "Database errors occured:";
  this.USERTEXT_SQL_DBErrorNumberPrompt = "Error Number = ";
  this.USERTEXT_SQL_DBErrorDescriptionPrompt = "Error description = ";
  this.USERTEXT_SQL_DBErrorNoErrorPrompt = "No database errors occured.";
  this.USERTEXT_SQL_DeleteSuccessfulMessage = "Deletion successful";
  this.USERTEXT_SQL_DeleteUnsuccessfulMessage = "Deletion failed";
  this.USERTEXT_SQL_DeleteHierarchyButton = "Delete Subthread From Message ID";
  this.USERTEXT_SQL_PurgeCacheButton = "Purge Cache";

  // The following strings are all used in email messages.
  this.USERTEXT_MAIL_AdminNewPostSubjectPrefix = "New Post";
  this.USERTEXT_MAIL_AdminNewPostBodyPrefix = "A new message by ";
  this.USERTEXT_MAIL_AdminNewPostSeparateNameForum = " was posted in ";
  this.USERTEXT_MAIL_UserNewResponseSubjectPrefix = "New Response";
  this.USERTEXT_MAIL_UserNewPostSeparateNameMessage = " has responded to your message: ";
  this.USERTEXT_MAIL_UserNewPostNameSuffix = " has responded to your message. ";
  this.USERTEXT_MAIL_UserNewPostMessagePrefix = "The response reads: ";

  // The following are used by our general string-handling routines.
  this.USERTEXT_STRING_StringTruncatedSuffix = "...";
  this.USERTEXT_STRING_WarningUnverifiedEmail = "WARNING: Email link created by poster. ";
  this.USERTEXT_STRING_WarningUnverifiedImage = "WARNING: Image embedded by poster. ";
  this.USERTEXT_STRING_WarningUnverifiedLink = "WARNING: URL created by poster. ";

  // You can rename the files involved, should you really want to.
  this.PAGE_AdminLocalPath = "admin.asp";
  this.PAGE_ArchiveLocalPath = "archive.asp";
  this.PAGE_EditPostActionLocalPath = "editpostaction.asp";
  this.PAGE_EditPostLocalPath = "editpost.asp";
  this.PAGE_MainLocalPath = "default.asp";
  this.PAGE_MainPreferredLocalPath = "./";
  this.PAGE_NewPostActionLocalPath = "newpostaction.asp";
  this.PAGE_NewPostLocalPath = "newpost.asp";
  this.PAGE_SearchLocalPath = "search.asp";
  this.PAGE_ShowMessageLocalPath = "showmessage.asp";

  this.CACHE_TimeStampKey = "Timestamp";
  this.CACHE_Enabled = false;
  this.CACHE_PurgeOnPageCleanup = false;
  this.CACHE_ItemSeparator = "|";
  this.CACHE_AllRootMessagesKey = "AllRoot";
  this.CACHE_CurrentRootMessagesKeyPrefix = "CurrentRoot";
  this.CACHE_AllCurrentMessagesKeyPrefix = "AllCurrent";
  this.CACHE_RootArchivedMessagesKeyPrefix = "ArchivedRoot";
  this.CACHE_AllArchivedMessagesKeyPrefix = "ArchivedAll";
  this.CACHE_AllThreadMessagesKey = "AllThread";
  this.CACHE_SubThreadMessagesKey = "SubThread";

  this.CONST_NoError = 0;
  this.CONST_Error = 1;

  this.FORM_MessageFormName = "ASPFMessage";
  this.FORM_SearchFormName = "ASPFSearch";
  this.FORM_ArchiveFormName = "ASPFArchive";
  this.FORM_AdminDeleteFormName = "ASPFAdminDelete";
  this.FORM_AdminPurgeFormName = "ASPFAdminPurge";
  this.FORM_AdminSQLFormName = "ASPFAdminSQL";
  this.FORM_CheckboxChecked = " CHECKED";
  this.FORM_CheckboxUnchecked = "";
  this.FORM_CheckboxTrue = "Yes";

  this.FORM_QueryStringMessageID = "messageID";
  this.FORM_QueryStringViewExpand = "expand";
  this.FORM_QueryStringViewCollapse = "collapse";
  this.FORM_QueryStringViewCentre = "centreOnMessage-";

  this.FORM_FieldMessageID = "messageID";
  this.FORM_FieldSubject = "subject";
  this.FORM_FieldMessage = "message";
  this.FORM_FieldSortCode = "sortCode";
  this.FORM_FieldParentID = "parentID";
  this.FORM_FieldThreadID = "threadID";
  this.FORM_FieldEmailResponses = "emailResponses";
  this.FORM_FieldHiddenEmailOnResponse = "emailParentOnResponse";
  this.FORM_FieldSearchString = "SearchString";
  this.FORM_FieldUsername = "username";
  this.FORM_FieldEmailaddress = "emailaddress";
  this.FORM_FieldFullname = "fullname";
  this.FORM_FieldSQLStatement = "SQLStatement";
  this.FORM_FieldMessageIDToDelete = "messageIDToDelete";
  this.FORM_FieldPurgeCache = "purgeCache";
  this.FORM_FieldArchiveDate = "archiveDate";
  this.FORM_FieldDateDaySuffix = "Day";
  this.FORM_FieldDateMonthSuffix = "Month";
  this.FORM_FieldDateYearSuffix = "Year";

  this.DATABASE_MaxSortcodeSize = 25;
  this.DATABASE_MaxSubjectSize = 100;
  this.DATABASE_MaxMessageSize = 2500;
  this.DATABASE_MaxUsernameSize = 50;
  this.DATABASE_MaxFullnameSize = 50;
  this.DATABASE_MaxEmailAddressSize = 50;
  this.DATABASE_FieldMessageID = "messageID";
  this.DATABASE_FieldParentID = "parent";
  this.DATABASE_FieldThreadID = "threadID";
  this.DATABASE_FieldSortCode = "sortCode";
  this.DATABASE_FieldNumChildren = "numChildren";
  this.DATABASE_FieldAuthorName = "author";
  this.DATABASE_FieldAuthorFullName = "authorFullName";
  this.DATABASE_FieldAuthorEmail = "authorEmail";
  this.DATABASE_FieldSubject = "subject";
  this.DATABASE_FieldBody = "body";
  this.DATABASE_FieldEmailParentOnResponse = "emailParentOnResponse";
  this.DATABASE_FieldDateCreated = "dateCreated";
  this.DATABASE_FieldDateModified = "dateModified";

  this.SYS_AllJavascriptEvents = "onAbort|onAfterUpdate|onBeforeUnload|onBeforeUpdate|onBlur|onBounce|onClick|onChange|onDataAvailable|onDataSetChanged|onDataSetComplete|onDblClick|onDragDrop|onError|onErrorUpdate|onFilterChange|onFocus|onHelp|onKeyDown|onKeyPress|onKeyUp|onLoad|onMouseDown|onMouseMove|onMouseOut|onMouseOver|onMouseUp|onMove|onReadyStateChange|onReset|onResize|onRowEnter|onRowExit|onScroll|onSelect|onSelectStart|onStart|onSubmit|onUnload";
  this.SYS_CurrentVersion = "2.0 beta 6";
  this.SYS_CurrentVersionReference = "ASP Forums " + this.SYS_CurrentVersion;

  return this;
}

function getDHTMLFunctionName_cnf_disc
(
)
{
  return "expandCollapseForum" + this.getUniqueKey () + "Click_disc";
}

function getDHTMLEventHandler_cnf_disc
(
)
{
  return this.getDHTMLFunctionName () + " (event); return false;";
}

function getPagePath_cnf_disc
(
 strPageName
)
{
  var strPagePath;
  if (isUndefined_disc (this.ADMINSETTING_VirtualPath))
    {
      strPagePath = strPageName;
    }
  else
    {
      strPagePath = this.ADMINSETTING_VirtualPath + strPageName;
    }

  return strPagePath;
}

function getAdminPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_AdminLocalPath);
}

function getArchivePagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_ArchiveLocalPath);
}

function getMainPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_MainLocalPath);
}

function getMainPagePreferredPath_cnf_disc
(
)
{
  var strPagePath;
  if (isUndefined_disc (this.ADMINSETTING_VirtualPath))
    {
      strPagePath = this.PAGE_MainPreferredLocalPath;
    }
  else
    {
      strPagePath = this.ADMINSETTING_VirtualPath;
    }

  return strPagePath;
}

function getNewPostActionPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_NewPostActionLocalPath);
}

function getNewPostPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_NewPostLocalPath);
}

function getEditPostActionPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_EditPostActionLocalPath);
}

function getEditPostPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_EditPostLocalPath);
}

function getSearchPagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_SearchLocalPath);
}

function getShowMessagePagePath_cnf_disc
(
)
{
  return this.getPagePath (this.PAGE_ShowMessageLocalPath);
}

function getDatabaseDSN_cnf_disc
(
)
{
  if (this.ADMINSETTING_DatabaseDSN == "")
    {
      var strDBPath = Server.MapPath (this.ADMINSETTING_DatabaseFilename);

      this.ADMINSETTING_DatabaseDSN = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;UserCommitSync=Yes;Threads=3;SafeTransactions=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=512;ImplicitCommitSync=Yes;FIL=MS Access;DriverId=25;DefaultDir=;DBQ=" + strDBPath
    }

  return this.ADMINSETTING_DatabaseDSN;
}

function getSiteBaseURL_cnf_disc
(
)
{
  return "http://" + String (Request.ServerVariables ("HTTP_HOST"));
}

function getEditableUserInfoSwitch_cnf_disc
(
)
{
  var bInfoEditable;
  if ((currentUsername_disc == "")
      || (currentUserFullName_disc == "")
      || (currentUserEmailAddress_disc == ""))
    {
      bInfoEditable = true;
    }
  else
    {
      bInfoEditable = false;
    }

  return bInfoEditable;
}

function getUserHTMLMailPreference_cnf_disc
(
 strUsernameToCheck
)
{
  return true;
}

function getUserEmailResponsePreference_cnf_disc
(
 strUsernameToCheck
)
{
  return false;
}

function getUniqueKey_cnf_disc
(
)
{
  var strKey;
  strKey = this.ADMINSETTING_ForumName + this.ADMINSETTING_DatabaseTable;
  strKey = strKey.replace (/ /gi, "");
  strKey = strKey.replace (/\[/gi, "");
  strKey = strKey.replace (/\]/gi, "");
  strKey = strKey.replace (/\(/gi, "");
  strKey = strKey.replace (/\)/gi, "");
  strKey = strKey.replace (/\-/gi, "");

  return strKey;
}

function forumContextSwitch_cnf_disc
(
 strNewForumName,
 strNewForumTableName,
 strNewForumDSN,
 strNewForumFilename,
 strNewForumVirtualPath
)
{
  if (isDefined_disc (strNewForumName))
    {
      this.ADMINSETTING_ForumName = strNewForumName;
    }

  if (isDefined_disc (strNewForumTableName))
    {
      this.ADMINSETTING_DatabaseTable = strNewForumTableName;
    }

  if (isDefined_disc (strNewForumDSN))
    {
      this.ADMINSETTING_DatabaseDSN = strNewForumDSN;
    }

  if (isDefined_disc (strNewForumFilename))
    {
      this.ADMINSETTING_DatabaseFilename = strNewForumFilename;
    }

  if (isDefined_disc (strNewForumVirtualPath))
    {
      this.ADMINSETTING_VirtualPath = strNewForumVirtualPath;
    }

  return;
}

ASPFConfig.prototype.getDHTMLFunctionName = getDHTMLFunctionName_cnf_disc;
ASPFConfig.prototype.getDHTMLEventHandler = getDHTMLEventHandler_cnf_disc;
ASPFConfig.prototype.getPagePath = getPagePath_cnf_disc;
ASPFConfig.prototype.getAdminPagePath = getAdminPagePath_cnf_disc;
ASPFConfig.prototype.getArchivePagePath = getArchivePagePath_cnf_disc;
ASPFConfig.prototype.getEditPostActionPagePath = getEditPostActionPagePath_cnf_disc;
ASPFConfig.prototype.getEditPostPagePath = getEditPostPagePath_cnf_disc;
ASPFConfig.prototype.getMainPagePath = getMainPagePath_cnf_disc;
ASPFConfig.prototype.getMainPagePreferredPath = getMainPagePreferredPath_cnf_disc;
ASPFConfig.prototype.getNewPostActionPagePath = getNewPostActionPagePath_cnf_disc;
ASPFConfig.prototype.getNewPostPagePath = getNewPostPagePath_cnf_disc;
ASPFConfig.prototype.getSearchPagePath = getSearchPagePath_cnf_disc;
ASPFConfig.prototype.getShowMessagePagePath = getShowMessagePagePath_cnf_disc;

ASPFConfig.prototype.getEditableUserInfoSwitch = getEditableUserInfoSwitch_cnf_disc;
ASPFConfig.prototype.getDatabaseDSN = getDatabaseDSN_cnf_disc;
ASPFConfig.prototype.getSiteBaseURL = getSiteBaseURL_cnf_disc;
ASPFConfig.prototype.getUserHTMLMailPreference = getUserHTMLMailPreference_cnf_disc;
ASPFConfig.prototype.getUserEmailResponsePreference = getUserEmailResponsePreference_cnf_disc;
ASPFConfig.prototype.getUniqueKey = getUniqueKey_cnf_disc;
ASPFConfig.prototype.forumContextSwitch = forumContextSwitch_cnf_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// DATABASE OBJECT
//
// ======================================================================

function ASPFDatabase
(
)
{
  return this;
}

// ======================================================================
//
// Interface to recordset fields (not private member variables).
//
// ======================================================================

function getSubjectField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldSubject));
}

function getBodyField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldBody));
}

function getSortCodeField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldSortCode));
}

function getAuthorNameField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldAuthorName));
}

function getAuthorEmailField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldAuthorEmail));
}

function getAuthorFullnameField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldAuthorFullName));
}

function getAuthorEmailField_db_disc
(
 msgMessageRecord
)
{
  return String (msgMessageRecord.Fields (config.DATABASE_FieldAuthorEmail));
}

function getMessageIDField_db_disc
(
 msgMessageRecord
)
{
  return Number (msgMessageRecord.Fields (config.DATABASE_FieldMessageID).Value);
}

function getParentIDField_db_disc
(
 msgMessageRecord
)
{
  return Number (msgMessageRecord.Fields (config.DATABASE_FieldParentID).Value);
}

function getThreadIDField_db_disc
(
 msgMessageRecord
)
{
  return Number (msgMessageRecord.Fields (config.DATABASE_FieldThreadID).Value);
}

function getNumChildrenField_db_disc
(
 msgMessageRecord
)
{
  return Number (msgMessageRecord.Fields (config.DATABASE_FieldNumChildren).Value);
}

function getDateCreatedField_db_disc
(
 msgMessageRecord
)
{
  return new Date (msgMessageRecord.Fields (config.DATABASE_FieldDateCreated));
}

function getDateModifiedField_db_disc
(
 msgMessageRecord
)
{
  return new Date (msgMessageRecord.Fields (config.DATABASE_FieldDateModified));
}

function getEmailParentOnResponseField_db_disc
(
 msgMessageRecord
)
{
  return Number (msgMessageRecord.Fields (config.DATABASE_FieldEmailParentOnResponse).Value);
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function getAllRootMessages_db_disc
(
 bSortAscending
)
{
  var strSQL = "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldParentID;
  strSQL += " = 0 ORDER BY ";
  strSQL += config.DATABASE_FieldDateCreated;

  if (bSortAscending)
    {
      strSQL = strSQL + " ASC";
    }
  else
    {
      strSQL = strSQL + " DESC";
    }

  return this.getCachedOrNewData (config.CACHE_AllRootMessagesKey, strSQL);
}

function getCurrentRootMessages_db_disc
(
 bSortAscending
)
{
  var dtCutoffDate = new Date ();
  dtCutoffDate.setDate (dtCutoffDate.getDate () - config.ADMINSETTING_DaysMessagesActive);

  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " > {d '";
  strSQL += dtCutoffDate.getODBCNormalisedDate ();
  strSQL += "'} AND (";
  strSQL += config.DATABASE_FieldParentID;
  strSQL += " = 0 OR ";
  strSQL += config.DATABASE_FieldParentID;
  strSQL += " IN (SELECT ";
  strSQL += config.DATABASE_FieldMessageID;
  strSQL += " FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " < {d '";
  strSQL += dtCutoffDate.getODBCNormalisedDate ();
  strSQL += "'})) ORDER BY ";
  strSQL += config.DATABASE_FieldDateCreated;

  if (bSortAscending)
    {
      strSQL += " ASC";
    }
  else
    {
      strSQL += " DESC";
    }

  delete dtCutoffDate;
  return this.getCachedOrNewData (config.CACHE_CurrentRootMessagesKeyPrefix + config.CACHE_ItemSeparator + config.ADMINSETTING_DaysMessagesActive, strSQL);
}

function getAllCurrentMessages_db_disc
(
 bSortAscending
)
{
  var dtCutoffDate = new Date ();
  dtCutoffDate.setDate (dtCutoffDate.getDate () - config.ADMINSETTING_DaysMessagesActive);

  var strSortOrder = "";
  if (bSortAscending)
    {
      strSortOrder = " ASC";
    }
  else
    {
      strSortOrder = " DESC";
    }

  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " > {d '";
  strSQL += dtCutoffDate.getODBCNormalisedDate ();
  strSQL += "'} ORDER BY ";
  strSQL += config.DATABASE_FieldThreadID;
  strSQL += strSortOrder;
  strSQL += ", ";
  strSQL += config.DATABASE_FieldSortCode;
  strSQL += " ASC";


  delete dtCutoffDate;
  return this.getCachedOrNewData (config.CACHE_AllCurrentMessagesKeyPrefix + config.CACHE_ItemSeparator + config.ADMINSETTING_DaysMessagesActive, strSQL);
}

function getArchiveRootMessages_db_disc
(
 dtArchiveDate,
 bSortAscending
)
{
  var dtCutoffDate = new Date (dtArchiveDate);
  dtCutoffDate.setMonth (dtArchiveDate.getMonth () + 1);

  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " >= {d '";
  strSQL += dtArchiveDate.getODBCNormalisedDate ();
  strSQL += "'} AND ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " < {d '";
  strSQL += dtCutoffDate.getODBCNormalisedDate ();
  strSQL += "'} AND (";
  strSQL += config.DATABASE_FieldParentID;
  strSQL += " = 0 OR ";
  strSQL += config.DATABASE_FieldParentID;
  strSQL += " IN (SELECT ";
  strSQL += config.DATABASE_FieldMessageID;
  strSQL += " FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " < {d '";
  strSQL += dtArchiveDate.getODBCNormalisedDate ();
  strSQL += "'} AND ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " >= {d '";
  strSQL += dtCutoffDate.getODBCNormalisedDate ();
  strSQL += "'})) ORDER BY ";
  strSQL += config.DATABASE_FieldDateCreated;

  if (bSortAscending)
    {
      strSQL += " ASC";
    }
  else
    {
      strSQL += " DESC";
    }

  delete dtCutoffDate;
  return this.getCachedOrNewData (config.CACHE_RootArchivedMessagesKeyPrefix + config.CACHE_ItemSeparator + config.ADMINSETTING_DaysMessagesActive, strSQL);
}

function getAllArchiveMessages_db_disc
(
 dtArchiveDate,
 bSortAscending
)
{
  var dtCutoffDate = new Date (dtArchiveDate);
  dtCutoffDate.setMonth (dtArchiveDate.getMonth () + 1);

  var strSortOrder;
  if (bSortAscending)
    {
      strSortOrder = " ASC";
    }
  else
    {
      strSortOrder = " DESC";
    }

  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " >= {d '";
  strSQL += dtArchiveDate.getODBCNormalisedDate ();
  strSQL += "'} AND ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " < {d '";
  strSQL += dtCutoffDate.getODBCNormalisedDate ();
  strSQL += "'} ORDER BY ";
  strSQL += config.DATABASE_FieldThreadID;
  strSQL += strSortOrder;
  strSQL += ", ";
  strSQL += config.DATABASE_FieldSortCode;
  strSQL += " ASC";

  delete dtCutoffDate;
  return this.getCachedOrNewData (config.CACHE_AllArchivedMessagesKeyPrefix + config.CACHE_ItemSeparator + dtArchiveDate.getYear () + config.CACHE_ItemSeparator + dtArchiveDate.getMonth (), strSQL);
}

function getAllThreadMessages_db_disc
(
 nThreadID
)
{
  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldThreadID;
  strSQL += " = ";
  strSQL += nThreadID;
  strSQL += " ORDER BY ";
  strSQL += config.DATABASE_FieldSortCode;

  return this.getCachedOrNewData (config.CACHE_AllThreadMessagesKey + config.CACHE_ItemSeparator + nThreadID, strSQL);
}

function getSubThreadMessages_db_disc
(
 nThreadID,
 strStartAtSortCode
)
{
  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldThreadID;
  strSQL += " = ";
  strSQL += nThreadID;
  strSQL += " AND ";
  strSQL += config.DATABASE_FieldSortCode;
  strSQL += " >= '";
  strSQL += strStartAtSortCode;
  strSQL += "' ORDER BY ";
  strSQL += config.DATABASE_FieldSortCode;

  return this.getCachedOrNewData (config.CACHE_SubThreadMessagesKey + config.CACHE_ItemSeparator + nThreadID + config.CACHE_ItemSeparator + strStartAtSortCode, strSQL);
}

function getMessageByID_db_disc
(
 nMessageID
)
{
  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldMessageID;
  strSQL += " = ";
  strSQL += nMessageID;

  return new ASPFMessage (this.executeSQL (strSQL), ASPF_RECORDSET_OBJECT_TYPE_DISC);
}

function getRecordByID_db_disc
(
 nMessageID
)
{
  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldMessageID;
  strSQL += " = ";
  strSQL += nMessageID;

  return this.executeSQL (strSQL);
}

function getRecordBySortCode_db_disc
(
 strSortCode
)
{
  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldSortCode;
  strSQL += " = ";
  strSQL += strSortCode;

  return new ASPFMessage (this.executeSQL (strSQL), ASPF_RECORDSET_OBJECT_TYPE_DISC);
}

function getRecordByDateCreated_db_disc
(
 dtDateCreated
)
{
  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " = {d '";
  strSQL += dtDateCreated.getODBCNormalisedDate ();
  strSQL += "'}";

  return new ASPFMessage (this.executeSQL (strSQL), ASPF_RECORDSET_OBJECT_TYPE_DISC);
}

function getOpenDatabaseConnection_db_disc
(
)
{
  var cnOpenConnection;

  if (isDefined_disc (ASPFDatabase.DBConnection))
    {
      cnOpenConnection = ASPFDatabase.DBConnection;
    }
  else
    {
      cnOpenConnection = Server.CreateObject ("ADODB.Connection");
      cnOpenConnection.Mode = adModeReadWrite;

      cnOpenConnection.Open (config.getDatabaseDSN ());
      ASPFDatabase.DBConnection = cnOpenConnection;
    }

  return cnOpenConnection;
}

function getAdminSQLResults_db_disc
(
 cnDBConnection,
 strSQL
)
{
  return this.executeSQLUsingConnection (strSQL, cnDBConnection);
}

function executeSQL_db_disc
(
 strSQL
)
{
  var cnDBConnection = this.getOpenDatabaseConnection ();

  return this.executeSQLUsingConnection (strSQL, cnDBConnection);
}

function executeSQLUsingConnection_db_disc
(
 strSQL,
 cnDBConnection
)
{
  var rsRecordSet;

  rsRecordSet = Server.CreateObject ("ADODB.RecordSet");

//  Response.Write ("<H5>" + strSQL + "</H5>");
//  Response.Write ("<pre>" + executeSQLUsingConnection_db_disc.caller + "</pre>");

  rsRecordSet.Open (strSQL, cnDBConnection, adOpenKeyset, adLockOptimistic, adCmdText);

  return rsRecordSet;
}

function searchForum_db_disc
(
 strStringToSearchFor
)
{
  var strSearchString;
  strSearchString = String (strStringToSearchFor).replace (/\'/gi, ASPFHTML.DOUBLE_QUOTES ());

  var strSQL = "";
  strSQL += "SELECT * FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldBody;
  strSQL += " LIKE '%";
  strSQL += strSearchString;
  strSQL += "%' OR ";
  strSQL += config.DATABASE_FieldSubject;
  strSQL += " LIKE '%";
  strSQL += strSearchString;
  strSQL += "%' OR ";
  strSQL += config.DATABASE_FieldAuthorName;
  strSQL += " LIKE '%";
  strSQL += strSearchString;
  strSQL += "%' OR ";
  strSQL += config.DATABASE_FieldAuthorEmail;
  strSQL += " LIKE '%";
  strSQL += strSearchString;
  strSQL += "%' OR ";
  strSQL += config.DATABASE_FieldAuthorFullName;
  strSQL += " LIKE '%";
  strSQL += strSearchString;
  strSQL += "%' ORDER BY ";
  strSQL += config.DATABASE_FieldDateCreated;
  strSQL += " DESC";

  return this.executeSQL (strSQL);
}

function saveNewRecord_db_disc
(
 msgNewMessage
)
{
  var dtPostedDate = new Date();

  var cnDBConnection = this.getOpenDatabaseConnection ();
  this.beginTransaction ();

  msgNewMessage.setSortCode (this.getNewSortCode (msgNewMessage.getParentID ()));
  msgNewMessage.setDateCreated (dtPostedDate);
  msgNewMessage.setDateModified (dtPostedDate);

  var rsNewMessageRecord = Server.CreateObject ("ADODB.RecordSet");

  rsNewMessageRecord.Open (config.ADMINSETTING_DatabaseTable,
			   cnDBConnection,
			   adOpenKeyset,
			   adLockPessimistic,
			   adCmdTable);
  rsNewMessageRecord.AddNew ();

  rsNewMessageRecord.Fields (config.DATABASE_FieldDateCreated)
    = dtPostedDate.getODBCNormalisedTimeStamp ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldDateModified)
    = dtPostedDate.getODBCNormalisedTimeStamp ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldParentID)
    = msgNewMessage.getParentID ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldNumChildren)
    = 0;
  rsNewMessageRecord.Fields (config.DATABASE_FieldSortCode)
    = msgNewMessage.getSortCode ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldThreadID)
    = msgNewMessage.getThreadID ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldAuthorName)
    = msgNewMessage.getAuthorName ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldAuthorFullName)
    = msgNewMessage.getAuthorFullname ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldAuthorEmail)
    = msgNewMessage.getAuthorEmail ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldEmailParentOnResponse)
    = ((msgNewMessage.getEmailParentOnResponse () == true) ? "True" : "False");
  rsNewMessageRecord.Fields (config.DATABASE_FieldSubject)
    = msgNewMessage.getSubject ();
  rsNewMessageRecord.Fields (config.DATABASE_FieldBody)
    = msgNewMessage.getBody ();

  rsNewMessageRecord.Update ();
  var msgTempMessage = new ASPFMessage (rsNewMessageRecord, ASPF_RECORDSET_OBJECT_TYPE_DISC);

  msgNewMessage.setMessageID (msgTempMessage.getMessageID ());
  if (isUndefined_disc (msgNewMessage.getThreadID ()) || (msgNewMessage.getThreadID () == 0))
    {
      msgNewMessage.setThreadID (msgTempMessage.getMessageID ());
    }

  if (msgTempMessage.getSortCode () == "0")
    {
      var strSQL = "";
      strSQL += "UPDATE ";
      strSQL += config.ADMINSETTING_DatabaseTable;
      strSQL += " SET ";
      strSQL += config.DATABASE_FieldThreadID;
      strSQL += " = ";
      strSQL += msgTempMessage.getMessageID ();
      strSQL += ", ";
      strSQL += config.DATABASE_FieldSortCode;
      strSQL += " = str(";
      strSQL += msgTempMessage.getMessageID ();
      strSQL += ") WHERE ";
      strSQL += config.DATABASE_FieldMessageID;
      strSQL += " = ";
      strSQL += msgTempMessage.getMessageID ();
      this.executeSQLUsingConnection (strSQL, cnDBConnection);
    }

  if (cnDBConnection.Errors.Count == 0)
    {
      this.commitTransaction ();
    }
  else
    {
      this.rollbackTransaction ();
    }

  this.expireCurrentCache ();
  this.expireThreadCache (msgTempMessage.getThreadID ());
  this.expireArchiveCache (dtPostedDate);

  cnDBConnection = "";
  rsNewMessageRecord.Close ();

  delete dtPostedDate;
  delete rsNewMessageRecord;
  return msgTempMessage.getMessageID ();
}

function saveUpdatedRecord_db_disc
(
 msgUpdatedMessage
)
{
  var dtModifiedDate = new Date();
  msgUpdatedMessage.setDateModified (dtModifiedDate);

  var cnDBConnection = this.getOpenDatabaseConnection ();
  this.beginTransaction ();

  var rsUpdatedMessageRecord = this.getRecordByID (msgUpdatedMessage.getMessageID ());

  var nNewNumChildren;
  void msgUpdatedMessage.getNumChildren ();

  void rsUpdatedMessageRecord.Fields (config.DATABASE_FieldNumChildren);
  if (msgUpdatedMessage.getNumChildren () >
      rsUpdatedMessageRecord.Fields (config.DATABASE_FieldNumChildren))
    {
      nNewNumChildren = msgUpdatedMessage.getNumChildren ();
    }
  else
    {
      nNewNumChildren = rsUpdatedMessageRecord.Fields (config.DATABASE_FieldNumChildren);
    }

  rsUpdatedMessageRecord.Fields (config.DATABASE_FieldDateModified)
    = dtModifiedDate.getODBCNormalisedTimeStamp ();
  rsUpdatedMessageRecord.Fields (config.DATABASE_FieldNumChildren)
    = nNewNumChildren;
  rsUpdatedMessageRecord.Fields (config.DATABASE_FieldEmailParentOnResponse)
    = ((msgUpdatedMessage.getEmailParentOnResponse () == true) ? "True" : "False");
  rsUpdatedMessageRecord.Fields (config.DATABASE_FieldSubject)
    = msgUpdatedMessage.getSubject ();
  rsUpdatedMessageRecord.Fields (config.DATABASE_FieldBody)
    = msgUpdatedMessage.getBody ();

  rsUpdatedMessageRecord.Update ();

  if (cnDBConnection.Errors.Count == 0)
    {
      this.commitTransaction ();
    }
  else
    {
      this.rollbackTransaction ();
    }

  this.expireCurrentCache ();
  this.expireThreadCache (msgUpdatedMessage.getThreadID ());
  this.expireArchiveCache (dtModifiedDate);

  cnDBConnection = "";
  rsUpdatedMessageRecord.Close ();

  delete rsUpdatedMessageRecord;
  delete dtModifiedDate;
  return;
}

function getNewSortCode_db_disc
(
 nParentID
)
{
  var strNewSortCode;

  if (nParentID == 0)
    {
      strNewSortCode = "0";
    }
  else
    {
      var msgParentMessage = this.getMessageByID (nParentID);

      msgParentMessage.setNumChildren (msgParentMessage.getNumChildren () + 1);

      strNewSortCode = msgParentMessage.getSortCode () + "." + msgParentMessage.getNumChildren ();

      msgParentMessage.saveUpdatedData ();

      delete msgParentMessage;
    }

  return strNewSortCode;
}

function deleteMessage_db_disc
(
 cnDBConnection,
 nMessageID
)
{
  var msgMessageToDelete = this.getMessageByID (nMessageID);
  var nParentID = msgMessageToDelete.getParentID ();
  if (msgMessageToDelete.getNumChildren () > 0)
    {
      var strThreadSQL = "";
      strThreadSQL += "SELECT * FROM ";
      strThreadSQL += config.ADMINSETTING_DatabaseTable;
      strThreadSQL += " WHERE ";
      strThreadSQL += config.DATABASE_FieldThreadID;
      strThreadSQL += " = ";
      strThreadSQL += msgMessageToDelete.getThreadID ();
      strThreadSQL += " AND ";
      strThreadSQL += config.DATABASE_FieldSortCode;
      strThreadSQL += " LIKE '";
      strThreadSQL += msgMessageToDelete.getSortCode ();
      strThreadSQL += "%' ORDER BY ";
      strThreadSQL += config.DATABASE_FieldSortCode;
      var rsChildren = this.executeSQLUsingConnection (strThreadSQL, cnDBConnection);

      while (!rsChildren.EOF)
	{
	  rsChildren.Delete();
	  rsChildren.MoveNext();
	}
      delete rsChildren;
    }

  var strSQL = "";
  strSQL += "DELETE FROM ";
  strSQL += config.ADMINSETTING_DatabaseTable;
  strSQL += " WHERE ";
  strSQL += config.DATABASE_FieldMessageID;
  strSQL += " = ";
  strSQL += nMessageID;
  this.executeSQLUsingConnection (strSQL, cnDBConnection);

  delete msgMessageToDelete;
  return;
}

function decrementNumChildren_db_disc
(
 cnDBConnection,
 nParentID
)
{
  if (nParentID != 0)
    {
      var msgParentMessage = this.getMessageByID (nParentID);

      var strSQL = "";
      strSQL += "UPDATE ";
      strSQL += config.ADMINSETTING_DatabaseTable;
      strSQL += " SET ";
      strSQL += config.DATABASE_FieldNumChildren;
      strSQL += "=";
      strSQL += (msgParentMessage.getNumChildren () - 1);
      strSQL += " WHERE ";
      strSQL += config.DATABASE_FieldMessageID;
      strSQL += " = ";
      strSQL += nParentID;
      this.executeSQLUsingConnection (strSQL, cnDBConnection);
      delete msgParentMessage;
    }

  return;
}

function getConnectionErrors_db_disc
(
 cnDBConnection
)
{
  var strErrorOutput = "";

  if (cnDBConnection.errors.count > 0)
    {
      strErrorOutput += config.USERTEXT_SQL_DBErrorPrefix;

      for (var nCounter = 0; nCounter < cnDBConnection.errors.count; nCounter++)
	{
	  strErrorOutput += config.USERTEXT_SQL_DBErrorNumberPrompt;
	  strErrorOutput += cnDBConnection.errors (nCounter).number + "\n";
	  strErrorOutput += config.USERTEXT_SQL_DBErrorDescriptionPrompt;
	  strErrorOutput += cnDBConnection.errors (nCounter).description + "\n";
	}
    }
  else
    {
      strErrorOutput += config.USERTEXT_SQL_DBErrorNoErrorPrompt;
    }

  return strErrorOutput;
}

function deleteMessageHierarchy_db_disc
(
 nMessageID
)
{
  var cnDBConnection = this.getOpenDatabaseConnection ();
  this.beginTransaction ();

  var msgMessageToDelete = this.getMessageByID (nMessageID);
  var nParentID = msgMessageToDelete.getParentID ();

  this.deleteMessage (cnDBConnection, nMessageID);
  this.decrementNumChildren (cnDBConnection, nParentID);

  var strReturnedMessage = "";
  if (cnDBConnection.Errors.Count == 0)
    {
      strReturnedMessage = config.USERTEXT_SQL_DeleteSuccessfulMessage.strong ();
      this.commitTransaction ();
    }
  else
    {
      strReturnedMessage = config.USERTEXT_SQL_DeleteUnsuccessfulMessage.strong ();
      this.rollbackTransaction ();
    }

  delete msgMessageToDelete;
  return strReturnedMessage;
}

function beginTransaction_db_disc ()
{
  if (ASPFDatabase.DBTransactionLevel == 0)
    {
      var cnDBConnection = this.getOpenDatabaseConnection ();
      cnDBConnection.BeginTrans ();
      cnDBConnection = "";
    }

  ASPFDatabase.DBTransactionLevel++;
  return;
}

function commitTransaction_db_disc ()
{
  if (ASPFDatabase.DBTransactionLevel == 1)
    {
      var cnDBConnection = this.getOpenDatabaseConnection ();
      cnDBConnection.CommitTrans ();
      cnDBConnection = "";
    }

  ASPFDatabase.DBTransactionLevel--;
  return;
}

function rollbackTransaction_db_disc ()
{
  var cnDBConnection = this.getOpenDatabaseConnection ();
  cnDBConnection.RollbackTrans ();
  cnDBConnection = "";
  ASPFDatabase.DBTransactionLevel = 0;

  return;
}

function isInTransation_db_disc ()
{
  var bIsInTransaction;
  if (ASPFDatabase.DBTransactionLevel > 0)
    {
      bIsInTransaction = true;
    }
  else
    {
      bIsInTransaction = false;
    }

  return bIsInTransaction;
}

function getCachedOrNewData_db_disc
(
 strItemKey,
 strSQL
)
{
  var cchCurrentCache = new ASPFCache ();
  var objCachedData = cchCurrentCache.retrieveObjectByKey (strItemKey);

  var objRequiredData;
  if (isUndefined_disc (objCachedData))
    {
      objRequiredData = this.executeSQL (strSQL);
      cchCurrentCache.storeObjectByKey (strItemKey, objRequiredData);
    }
  else
    {
      objRequiredData = objCachedData;
      if (objRequiredData.RecordCount > 0)
	{
	  objRequiredData.MoveFirst ();
	}
    }

  delete cchCurrentCache;
  return objRequiredData;
}

function expireThreadCache_db_disc
(
 nThreadID
)
{
  var cchCurrentCache = new ASPFCache ();
  cchCurrentCache.removeObjectByKey (config.CACHE_AllThreadMessagesKey + config.CACHE_ItemSeparator + nThreadID);
  cchCurrentCache.removeObjectsByKeyPrefix (config.CACHE_SubThreadMessagesKey + config.CACHE_ItemSeparator + nThreadID);

  delete cchCurrentCache;
  return;
}

function expireCurrentCache_db_disc
(
)
{
  var cchCurrentCache = new ASPFCache ();
  cchCurrentCache.removeObjectByKey (config.CACHE_AllRootMessagesKey);
  cchCurrentCache.removeObjectsByKeyPrefix (config.CACHE_AllCurrentMessagesKeyPrefix);
  cchCurrentCache.removeObjectsByKeyPrefix (config.CACHE_CurrentRootMessagesKeyPrefix);

  delete cchCurrentCache;
  return;
}

function expireArchiveCache_db_disc
(
 dtArchiveDate
)
{
  if (isDefined_disc (dtArchiveDate))
    {
      var cchCurrentCache = new ASPFCache ();
      cchCurrentCache.removeObjectByKey (config.CACHE_AllArchivedMessagesKeyPrefix + config.CACHE_ItemSeparator + dtArchiveDate.getYear () + config.CACHE_ItemSeparator + dtArchiveDate.getMonth ());
      cchCurrentCache.removeObjectByKey (config.CACHE_RootArchivedMessagesKeyPrefix + config.CACHE_ItemSeparator + dtArchiveDate.getYear () + config.CACHE_ItemSeparator + dtArchiveDate.getMonth ());
      delete cchCurrentCache;
    }

  return;
}

function cleanup_db_disc
(
)
{
  if (isDefined_disc (ASPFDatabase.DBConnection))
    {
      delete ASPFDatabase.DBConnection;
    }

  return;
}

ASPFDatabase.DBConnection = undefined_disc;
ASPFDatabase.DBTransactionLevel = 0;

ASPFDatabase.prototype.getSubjectField = getSubjectField_db_disc;
ASPFDatabase.prototype.getBodyField = getBodyField_db_disc;
ASPFDatabase.prototype.getSortCodeField = getSortCodeField_db_disc;
ASPFDatabase.prototype.getAuthorNameField = getAuthorNameField_db_disc;
ASPFDatabase.prototype.getAuthorEmailField = getAuthorEmailField_db_disc;
ASPFDatabase.prototype.getAuthorFullnameField = getAuthorFullnameField_db_disc;
ASPFDatabase.prototype.getAuthorEmailField = getAuthorEmailField_db_disc;
ASPFDatabase.prototype.getMessageIDField = getMessageIDField_db_disc;
ASPFDatabase.prototype.getParentIDField = getParentIDField_db_disc;
ASPFDatabase.prototype.getThreadIDField = getThreadIDField_db_disc;
ASPFDatabase.prototype.getNumChildrenField = getNumChildrenField_db_disc;
ASPFDatabase.prototype.getDateCreatedField = getDateCreatedField_db_disc;
ASPFDatabase.prototype.getDateModifiedField = getDateModifiedField_db_disc;
ASPFDatabase.prototype.getEmailParentOnResponseField = getEmailParentOnResponseField_db_disc;

ASPFDatabase.prototype.getAllRootMessages = getAllRootMessages_db_disc;
ASPFDatabase.prototype.getCurrentRootMessages = getCurrentRootMessages_db_disc;
ASPFDatabase.prototype.getAllCurrentMessages = getAllCurrentMessages_db_disc;
ASPFDatabase.prototype.getArchiveRootMessages = getArchiveRootMessages_db_disc;
ASPFDatabase.prototype.getAllArchiveMessages = getAllArchiveMessages_db_disc;
ASPFDatabase.prototype.getAllThreadMessages = getAllThreadMessages_db_disc;
ASPFDatabase.prototype.getSubThreadMessages = getSubThreadMessages_db_disc;
ASPFDatabase.prototype.getMessageByID = getMessageByID_db_disc;
ASPFDatabase.prototype.getRecordByID = getRecordByID_db_disc;
ASPFDatabase.prototype.getRecordBySortCode = getRecordBySortCode_db_disc;
ASPFDatabase.prototype.getRecordByDateCreated = getRecordByDateCreated_db_disc;
ASPFDatabase.prototype.getOpenDatabaseConnection = getOpenDatabaseConnection_db_disc;
ASPFDatabase.prototype.getAdminSQLResults = getAdminSQLResults_db_disc;
ASPFDatabase.prototype.executeSQL = executeSQL_db_disc;
ASPFDatabase.prototype.executeSQLUsingConnection = executeSQLUsingConnection_db_disc;
ASPFDatabase.prototype.getNewSortCode = getNewSortCode_db_disc;
ASPFDatabase.prototype.deleteMessage = deleteMessage_db_disc;
ASPFDatabase.prototype.decrementNumChildren = decrementNumChildren_db_disc;
ASPFDatabase.prototype.getConnectionErrors = getConnectionErrors_db_disc;
ASPFDatabase.prototype.deleteMessageHierarchy = deleteMessageHierarchy_db_disc;
ASPFDatabase.prototype.searchForum = searchForum_db_disc;
ASPFDatabase.prototype.saveNewRecord = saveNewRecord_db_disc;
ASPFDatabase.prototype.saveUpdatedRecord = saveUpdatedRecord_db_disc;
ASPFDatabase.prototype.beginTransaction = beginTransaction_db_disc;
ASPFDatabase.prototype.commitTransaction = commitTransaction_db_disc;
ASPFDatabase.prototype.rollbackTransaction = rollbackTransaction_db_disc;
ASPFDatabase.prototype.isInTransation = isInTransation_db_disc;
ASPFDatabase.prototype.getCachedOrNewData = getCachedOrNewData_db_disc;
ASPFDatabase.prototype.expireThreadCache = expireThreadCache_db_disc;
ASPFDatabase.prototype.expireCurrentCache = expireCurrentCache_db_disc;
ASPFDatabase.prototype.expireArchiveCache = expireArchiveCache_db_disc;
ASPFDatabase.prototype.cleanup = cleanup_db_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// DATE OBJECT ADDITIONS
//
// ======================================================================

function getODBCNormalisedDate_date_disc
(
)
{
  var strYear;
  var strMonth;
  var strDay;

  strYear = this.getFullYear ();

  strMonth = this.getMonth () + 1;
  if (strMonth < 10)
    {
      strMonth = "0" + strMonth;
    }

  strDay = this.getDate ();
  if (strDay < 10)
    {
      strDay = "0" + strDay;
    }

  return strYear + "-" + strMonth + "-" + strDay;
}

function getODBCNormalisedTime_date_disc
(
)
{
  var strNormalisedTime = "";

  if (this.getHours () >= 10)
    {
      strNormalisedTime += this.getHours ();
    }
  else
    {
      strNormalisedTime += "0" + this.getHours ();
    }

  strNormalisedTime += ":";

  if (this.getMinutes () >= 10)
    {
      strNormalisedTime += this.getMinutes ();
    }
  else
    {
      strNormalisedTime += "0" + this.getMinutes ();
    }

  strNormalisedTime += ":";

  if (this.getSeconds () >= 10)
    {
      strNormalisedTime += this.getSeconds ();
    }
  else
    {
      strNormalisedTime += "0" + this.getSeconds ();
    }

  return strNormalisedTime;
}

function getODBCNormalisedTimeStamp_date_disc
(
)
{
  return this.getODBCNormalisedDate () + " " + this.getODBCNormalisedTime ();
}

function getMonthName_date_disc
(
)
{
  return this.getMonthNameByIndex (this.getMonth ());
}

function getDayName_date_disc
(
)
{
  return this.getDayNameByIndex (this.getDay ());
}

function getDateSuffix_date_disc
(
)
{
  return this.getDateSuffixByIndex (this.getDate ());
}

function getMonthNameByIndex_date_disc
(
 nIndex
)
{
  var strMonthName;
  switch (nIndex)
    {
    case 0:
      strMonthName = "January";
      break;

    case 1:
      strMonthName = "February";
      break;

    case 2:
      strMonthName = "March";
      break;

    case 3:
      strMonthName = "April";
      break;

    case 4:
      strMonthName = "May";
      break;

    case 5:
      strMonthName = "June";
      break;

    case 6:
      strMonthName = "July";
      break;

    case 7:
      strMonthName = "August";
      break;

    case 8:
      strMonthName = "September";
      break;

    case 9:
      strMonthName = "October";
      break;

    case 10:
      strMonthName = "November";
      break;

    case 11:
      strMonthName = "December";
      break;

    default:
      strMonthName = "Error";
      break;
    }

  return strMonthName;
}

function getDayNameByIndex_date_disc
(
 nIndex
)
{
  var strDayName;
  switch (nIndex)
    {
    case 0:
      strDayName = "Sunday";
      break;

    case 1:
      strDayName = "Monday";
      break;

    case 2:
      strDayName = "Tuesday";
      break;

    case 3:
      strDayName = "Wednesday";
      break;

    case 4:
      strDayName = "Thursday";
      break;

    case 5:
      strDayName = "Friday";
      break;

    case 6:
      strDayName = "Saturday";
      break;

    default:
      strDayName = "Error";
      break;
    }

  return strDayName;
}

function getDateSuffixByIndex_date_disc
(
 nIndex
)
{
  var strDateSuffix;

  switch (nIndex)
    {
    case 1:
    case 21:
    case 31:
      strDateSuffix = "st";
      break;

    case 2:
    case 22:
      strDateSuffix = "nd";
      break;

    case 3:
    case 23:
      strDateSuffix = "rd";
      break;

    case 4:
    case 5:
    case 6:
    case 7:
    case 8:
    case 9:
    case 10:
    case 11:
    case 12:
    case 13:
    case 14:
    case 15:
    case 16:
    case 17:
    case 18:
    case 19:
    case 20:
    case 21:
    case 22:
    case 23:
    case 24:
    case 25:
    case 26:
    case 27:
    case 28:
    case 29:
    case 30:
      strDateSuffix = "th";
      break;

    case 0:
    default:
      strDateSuffix = "Error";
      break;
    }

  return strDateSuffix;
}

function getShortFormat_date_disc
(
)
{
  var strHTMLout = "";
  strHTMLout += this.getDayName ();
  strHTMLout += ", ";
  strHTMLout += this.getDate ();
  strHTMLout += this.getDateSuffix ();
  strHTMLout += " ";
  strHTMLout += this.getMonthName ();
  strHTMLout += " ";
  strHTMLout += this.getFullYear();

  return strHTMLout;
}

function getLongFormat_date_disc ()
{
  var strHTMLout = "";
  strHTMLout += this.getDayName ();
  strHTMLout += ", ";
  strHTMLout += this.getDate ();
  strHTMLout += this.getDateSuffix ();
  strHTMLout += " ";
  strHTMLout += this.getMonthName ();
  strHTMLout += " ";
  strHTMLout += this.getFullYear();

  return strHTMLout;
}

Date.getMonthNameByIndex = getMonthNameByIndex_date_disc;
Date.getDayNameByIndex = getDayNameByIndex_date_disc;
Date.getDateSuffixByIndex = getDateSuffixByIndex_date_disc;

Date.prototype.getODBCNormalisedDate = getODBCNormalisedDate_date_disc;
Date.prototype.getODBCNormalisedTime = getODBCNormalisedTime_date_disc;
Date.prototype.getODBCNormalisedTimeStamp = getODBCNormalisedTimeStamp_date_disc;
Date.prototype.getMonthName = getMonthName_date_disc;
Date.prototype.getDayName = getDayName_date_disc;
Date.prototype.getDateSuffix = getDateSuffix_date_disc;
Date.prototype.getMonthNameByIndex = getMonthNameByIndex_date_disc;
Date.prototype.getDayNameByIndex = getDayNameByIndex_date_disc;
Date.prototype.getDateSuffixByIndex = getDateSuffixByIndex_date_disc;
Date.prototype.getShortFormat = getShortFormat_date_disc;
Date.prototype.getLongFormat = getLongFormat_date_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// EMAIL OBJECT
//
// ======================================================================

function ASPFEmail
(
)
{
  this.setToName ("");
  this.setToAddress ("");
  this.setFromName ("");
  this.setFromAddress ("");
  this.setSubject ("");
  this.setBody ("");

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getToName_eml_disc
(
)
{
  return String (this._toName);
}

function setToName_eml_disc
(
 strNewToName
)
{
  this._toName = String (strNewToName);
  return;
}

function getToAddress_eml_disc
(
)
{
  return String (this._toAddress);
}

function setToAddress_eml_disc
(
 strNewToAddress
)
{
  this._toAddress = String (strNewToAddress);
  return;
}

function getFromName_eml_disc
(
)
{
  return String (this._fromName);
}

function setFromName_eml_disc
(
 strNewFromName
)
{
  this._fromName = String (strNewFromName);
  return;
}

function getFromAddress_eml_disc
(
)
{
  return String (this._fromAddress);
}

function setFromAddress_eml_disc
(
 strNewFromAddress
)
{
  this._fromAddress = String (strNewFromAddress);
  return;
}

function getSubject_eml_disc
(
)
{
  return String (this._subject);
}

function setSubject_eml_disc
(
 strNewSubject
)
{
  this._subject = String (strNewSubject);
  return;
}

function getBody_eml_disc
(
)
{
  return String (this._body);
}

function setBody_eml_disc
(
 strNewBody
)
{
  this._body = String (strNewBody);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function getFromEmailLink_eml_disc
(
)
{
  var strHTMLout = "";

  if (config.ADMINSWITCH_ShowEmailAddresses)
    {
      var strLinkURL = "mailto:" + this.getFromAddress ();
      var strLinkText = "";
      strLinkText += config.USERTEXT_SHOW_PopupEmailPrefix;
      strLinkText += this.getFromName ();
      strLinkText += " (";
      strLinkText += this.getFromAddress ();
      strLinkText += ")";

      strHTMLout += A_open_html_disc (strLinkURL, strLinkText);
      strHTMLout += this.getFromName ();
      strHTMLout += ASPFHTML.A_close ();
    }
  else
    {
      strHTMLout = this.getFromName ();
    }

  return strHTMLout;
}

function getHTMLMessageBody_eml_disc
(
 msgCurrentMessage,
 strTitle,
 strBodyText,
 strSignature
)
{
  var strMessageBody = "";
  strMessageBody += ASPFHTML.DTD ();
  strMessageBody += ASPFHTML.HTML_open ();

  strMessageBody += ASPFHTML.BODY_open ("#FFFFFF",
					undefined_disc,
					"#0000FF",
					"#FF0000",
					"#660066");

  strMessageBody += ASPFHTML.TABLE_open (config.ADMINSETTING_TableBorderSize,
					 undefined_disc,
					 undefined_disc,
					 undefined_disc,
					 0,
					 0);

  strMessageBody += ASPFHTML.TR_open ();
  strMessageBody += ASPFHTML.TD_open (140,
				      undefined_disc,
				      "#99CCFF");
  strMessageBody += ASPFHTML.DIV_open (undefined_disc,
				       undefined_disc,
				       "center");
  strMessageBody += ASPFHTML.A_open ("http://www.aspforums.com/");
  strMessageBody += ASPFHTML.IMG ("http://www.aspforums.com/images/logo.gif",
				  "ASP Forums",
				  0,
				  120,
				  56);
  strMessageBody += ASPFHTML.A_close ();
  strMessageBody += ASPFHTML.DIV_close ();
  strMessageBody += ASPFHTML.TD_close ();
  strMessageBody += ASPFHTML.TD_open (468, undefined_disc, "#336699");
  strMessageBody += ASPFHTML.FONT_open (5, "Tahoma", "#FFFFFF");
  strMessageBody += ASPFHTML.NBSP ();
  strMessageBody += strTitle;
  strMessageBody += ASPFHTML.FONT_close ();
  strMessageBody += ASPFHTML.TD_close ();
  strMessageBody += ASPFHTML.TR_close ();

  strMessageBody += ASPFHTML.TR_open ();
  strMessageBody += ASPFHTML.TD_open (140);
  strMessageBody += ASPFHTML.NBSP ();
  strMessageBody += ASPFHTML.TD_close ();
  strMessageBody += ASPFHTML.TD_open (config.ADMINSETTING_TableFullWidth);

  strMessageBody += ASPFHTML.P_open ();
  strMessageBody += ASPFHTML.NBSP ();
  strMessageBody += ASPFHTML.P_close ();

  strMessageBody += ASPFHTML.FONT_open (-1, "Tahoma");

  strMessageBody += strBodyText;

  strMessageBody += ASPFHTML.FONT_close ();
  strMessageBody += ASPFHTML.TD_close ();
  strMessageBody += ASPFHTML.TR_close ();

  strMessageBody += ASPFHTML.TR_open ();
  strMessageBody += ASPFHTML.TD_open (140);
  strMessageBody += ASPFHTML.NBSP ();
  strMessageBody += ASPFHTML.TD_close ();
  strMessageBody += ASPFHTML.TD_open (config.ADMINSETTING_TableFullWidth);

  strMessageBody += strSignature;

  strMessageBody += ASPFHTML.P_open ();
  strMessageBody += ASPFHTML.NBSP ();
  strMessageBody += ASPFHTML.P_close ();
  strMessageBody += ASPFHTML.FONT_close ();
  strMessageBody += ASPFHTML.TD_close ();
  strMessageBody += ASPFHTML.TR_close ();
  strMessageBody += ASPFHTML.TABLE_close ();

  return strMessageBody;
}

function sendHTML_eml_disc ()
{
  var strFrom = this.getFromName () + " <" + this.getFromAddress () + ">";
  var strTo = this.getToAddress ();

  sendHTMLMailMessage_eml_disc (strTo,
				strFrom,
				this.getSubject (),
				this.getBody (),
				config.getSiteBaseURL ());

  return;
}

function send_eml_disc ()
{
  var strFrom = this.getFromName () + " <" + this.getFromAddress () + ">";
  var strTo = this.getToAddress ();

  sendRegularMailMessage_eml_disc (strTo,
				   strFrom,
				   this.getSubject (),
				   this.getBody ());

  return;
}

ASPFEmail.prototype.getToName = getToName_eml_disc;
ASPFEmail.prototype.setToName = setToName_eml_disc;
ASPFEmail.prototype.getToAddress = getToAddress_eml_disc;
ASPFEmail.prototype.setToAddress = setToAddress_eml_disc;
ASPFEmail.prototype.getFromName = getFromName_eml_disc;
ASPFEmail.prototype.setFromName = setFromName_eml_disc;
ASPFEmail.prototype.getFromAddress = getFromAddress_eml_disc;
ASPFEmail.prototype.setFromAddress = setFromAddress_eml_disc;
ASPFEmail.prototype.getSubject = getSubject_eml_disc;
ASPFEmail.prototype.setSubject = setSubject_eml_disc;
ASPFEmail.prototype.getBody = getBody_eml_disc;
ASPFEmail.prototype.setBody = setBody_eml_disc;

ASPFEmail.prototype.getFromEmailLink = getFromEmailLink_eml_disc;
ASPFEmail.prototype.getHTMLMessageBody = getHTMLMessageBody_eml_disc;
ASPFEmail.prototype.sendHTML = sendHTML_eml_disc;
ASPFEmail.prototype.send = send_eml_disc;
</SCRIPT>

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
' Has to be in VBScript for the error recovery.
Sub sendRegularMailMessage_eml_disc (messageTo, messageFrom, messageSubject, messageBody)
  On Error Resume Next

  Dim mailMessage
  Set mailMessage = Server.CreateObject ("CDONTS.NewMail")

  if Not mailMessage is Nothing then
    mailMessage.From = messageFrom
    mailMessage.To = messageTo
    mailMessage.Subject = messageSubject
    mailMessage.Body = messageBody

    mailMessage.Send
    Set mailMessage = Nothing
  end if
End Sub

Sub sendHTMLMailMessage_eml_disc (messageTo, messageFrom, messageSubject, messageBody, baseURL)
  On Error Resume Next

  Dim mailMessage
  Set mailMessage = Server.CreateObject ("CDONTS.NewMail")

  if Not mailMessage is Nothing then
    mailMessage.From = messageFrom
    mailMessage.To = messageTo
    mailMessage.Subject = messageSubject
    mailMessage.Body = messageBody

    mailMessage.ContentBase = baseURL
    mailMessage.BodyFormat = 0
    mailMessage.MailFormat = 0 

    mailMessage.Send
    Set mailMessage = Nothing
  end if
End Sub
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// EXPANDCOLLAPSE OBJECT
//
// ======================================================================

function ASPFExpandCollapse
(
 msgMessageToUse,
 nViewIndex,
 nCurrentThreadID,
 nActiveThreadID,
 strPageURLToUse
)
{
  this.setMessage (msgMessageToUse);
  this.setViewIndex (nViewIndex);
  this.setCurrentThreadID (nCurrentThreadID);
  this.setActiveThreadID (nActiveThreadID);
  this.setQueryString ("");
  if (isUndefined_disc (strPageURLToUse))
    {
      this.setPageURLToUse (config.getMainPagePath ());
    }
  else
    {
      this.setPageURLToUse (strPageURLToUse);
    }

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getMessage_exp_disc
(
)
{
  return this._message;
}

function setMessage_exp_disc
(
 msgNewMessage
)
{
  this._message = msgNewMessage;
  return;
}

function getViewIndex_exp_disc
(
)
{
  return Number (this._viewIndex);
}

function setViewIndex_exp_disc
(
 nNewViewIndex
)
{
  this._viewIndex = Number (nNewViewIndex);
  return;
}

function getCurrentThreadID_exp_disc
(
)
{
  return Number (this._currentThreadID);
}

function setCurrentThreadID_exp_disc
(
 nNewCurrentThreadID
)
{
  this._currentThreadID = Number (nNewCurrentThreadID);
  return;
}

function getActiveThreadID_exp_disc
(
)
{
  return Number (this._activeThreadID);
}

function setActiveThreadID_exp_disc
(
 nNewActiveThreadID
)
{
  this._activeThreadID = Number (nNewActiveThreadID);
  return;
}

function getQueryString_exp_disc
(
)
{
  return String (this._QueryString);
}

function setQueryString_exp_disc
(
 strNewQueryString
)
{
  this._QueryString = String (strNewQueryString);
  return;
}

function getPageURLToUse_exp_disc
(
)
{
  return String (this._pageURLToUse);
}

function setPageURLToUse_exp_disc
(
 strNewPageURLToUse
)
{
  this._pageURLToUse = String (strNewPageURLToUse);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function getIcon_exp_disc
(
)
{
  var strToggle = "";
  if (config.ADMINSWITCH_ShowExpandCollapse)
    {
      if (0 == this.getMessage ().getNumChildren ())
	{
	  strToggle = this.getNoExpandToggle();
	}
      else
	{
	  if (((this.getCurrentThreadID () == this.getActiveThreadID ())
	       || (this.getViewIndex () <= config.ADMINSETTING_ExpandFirstNThreads))
	      && !(this.doWeCollapse()))
	    {
	      strToggle = this.getCollapseToggle();
	    }
	  else
	    {
	      strToggle = this.getExpandToggle();
	    }
	}
    }

  return strToggle;
}

function getDHTMLIcon_exp_disc
(
 nCurrentIndentLevel,
 nThreadCounter
)
{
  var strToggle = "";;

  if (0 == this.getMessage ().getNumChildren ())
    {
      strToggle += ASPFHTML.IMG (config.ADMINSETTING_NoExpandImagePathname,
				" ",
				0,
				config.ADMINSETTING_NoExpandImageWidth,
				config.ADMINSETTING_NoExpandImageHeight,
				config.getUniqueKey () + this.getMessage ().getMessageID (),
				this.getMessage ().getMessageID (),
				config.getDHTMLEventHandler ());
      strToggle += ASPFHTML.NBSP ();
    }
  else
    {
      //if ((nCurrentIndentLevel == 1) && !config.ADMINSWITCH_ExpandAllThreads);
      if (config.ADMINSWITCH_ExpandAllThreads
	  || (nThreadCounter <= config.ADMINSETTING_ExpandFirstNThreads)
	  || (nCurrentIndentLevel != 1))

	{
	  strToggle += this.getCollapseLinkTag ();
	  strToggle += ASPFHTML.IMG (config.ADMINSETTING_CollapseImagePathname,
				     config.USERTEXT_VIEW_PopupCollapseLink,
				     0,
				     config.ADMINSETTING_CollapseImageWidth,
				     config.ADMINSETTING_CollapseImageHeight,
				     config.getUniqueKey () + this.getMessage ().getMessageID (),
				     this.getMessage ().getMessageID (),
				     config.getDHTMLEventHandler ());
	  strToggle += ASPFHTML.A_close ();
	  strToggle += ASPFHTML.NBSP ();
	}
      else
 	{
	  strToggle += this.getExpandLinkTag ();
	  strToggle += ASPFHTML.IMG (config.ADMINSETTING_ExpandImagePathname,
				     config.USERTEXT_VIEW_PopupExpandLink,
				     0,
				     config.ADMINSETTING_ExpandImageWidth,
				     config.ADMINSETTING_ExpandImageHeight,
				     config.getUniqueKey () + this.getMessage ().getMessageID (),
				     this.getMessage ().getMessageID (),
				     config.getDHTMLEventHandler ());
	  strToggle += ASPFHTML.A_close ();
	  strToggle += ASPFHTML.NBSP ();
	}
   }

  return strToggle;
}

function getNoExpandToggle_exp_disc
(
)
{
  var strToggle = "";
  strToggle += ASPFHTML.IMG (config.ADMINSETTING_NoExpandImagePathname,
			     " ",
			     0,
			     config.ADMINSETTING_NoExpandImageWidth,
			     config.ADMINSETTING_NoExpandImageHeight,
			     config.getUniqueKey () + this.getMessage ().getMessageID (),
			     this.getMessage ().getMessageID (),
			     "");
  strToggle += ASPFHTML.NBSP ();

  return strToggle;
}

function getEmptyNoExpandToggle_exp_disc
(
)
{
  var strToggle = "";
  strToggle += ASPFHTML.IMG (config.ADMINSETTING_NoExpandImagePathname,
			     " ",
			     0,
			     config.ADMINSETTING_NoExpandImageWidth,
			     config.ADMINSETTING_NoExpandImageHeight,
			     undefined_disc,
			     undefined_disc,
			     "");
  strToggle += ASPFHTML.NBSP ();

  return strToggle;
}

function getExpandLinkTag_exp_disc
(
)
{
  var strLinkURL = "";
  strLinkURL += this.getExpandURL ();
  strLinkURL += "#";
  strLinkURL += config.FORM_QueryStringViewCentre;
  strLinkURL += "-";
  strLinkURL += this.getMessage ().getMessageID ();

  var strLinkName = "";
  strLinkName += config.FORM_QueryStringViewCentre;
  strLinkName += "-";
  strLinkName += this.getMessage ().getMessageID ();

  var strLinkID = "";
  strLinkID += config.FORM_QueryStringViewCentre;
  strLinkID += "-";
  strLinkID += this.getMessage ().getMessageID ();

  var strToggle = "";
  strToggle += ASPFHTML.A_open (strLinkURL,
				config.USERTEXT_VIEW_PopupExpandLink,
				strLinkName,
				config.ADMINSETTING_MainPageTarget,
				strLinkID);
  return strToggle;
}

function getExpandToggle_exp_disc
(
)
{
  var strImage = "";
  strImage += ASPFHTML.IMG (config.ADMINSETTING_ExpandImagePathname,
			    config.USERTEXT_VIEW_PopupExpandLink,
			    0,
			    config.ADMINSETTING_ExpandImageWidth,
			    config.ADMINSETTING_ExpandImageHeight,
			    this.getMessage ().getMessageID (),
			    this.getMessage ().getMessageID (),
			    "");

  return this.getExpandLinkTag () + strImage + ASPFHTML.A_close () + ASPFHTML.NBSP ();
}

function getCollapseLinkTag_exp_disc
(
)
{
  var strLinkURL = "";
  strLinkURL += this.getCollapseURL ();
  strLinkURL += "#";
  strLinkURL += config.FORM_QueryStringViewCentre;
  strLinkURL += "-";
  strLinkURL += this.getMessage ().getMessageID ();

  var strLinkName = "";
  strLinkName += config.FORM_QueryStringViewCentre;
  strLinkName += "-";
  strLinkName += this.getMessage ().getMessageID ();

  var strLinkID = "";
  strLinkID += config.FORM_QueryStringViewCentre;
  strLinkID += "-";
  strLinkID += this.getMessage ().getMessageID ();

  return ASPFHTML.A_open (strLinkURL,
			  config.USERTEXT_VIEW_PopupCollapseLink,
			  strLinkName,
			  config.ADMINSETTING_MainPageTarget,
			  strLinkID);
}

function getCollapseToggle_exp_disc
(
)
{
  var strImage = "";
  strImage += ASPFHTML.IMG (config.ADMINSETTING_CollapseImagePathname,
			    config.USERTEXT_VIEW_PopupCollapseLink,
			    0,
			    config.ADMINSETTING_CollapseImageWidth,
			    config.ADMINSETTING_CollapseImageHeight,
			    this.getMessage ().getMessageID (),
			    this.getMessage ().getMessageID (),
			    "");

  return this.getCollapseLinkTag () + strImage + ASPFHTML.A_close () + ASPFHTML.NBSP ();
}

function getExpandURL_exp_disc
(
)
{
  var strURL = this.getPageURLToUse ();
  var strURLToUse = "";

  if (this.stripThisIDFromQString ())
    {
      strURLToUse += (this.getQueryString () == ""
		      ? config.getMainPagePreferredPath ()
		      : strURL + "?" + this.getQueryString ());
    }
  else
    {
      strURLToUse += strURL;
      strURLToUse += "?";
      strURLToUse += config.FORM_QueryStringViewExpand;
      strURLToUse += "=";
      strURLToUse += this.getMessage ().getMessageID ();
      strURLToUse += (this.getQueryString () == "" ? "" : "&" + this.getQueryString ());
    }

  return strURLToUse;
}

function getCollapseURL_exp_disc
(
)
{
  var strURL = this.getPageURLToUse ();
  var strURLToUse = "";

  if (this.stripThisIDFromQString())
    {
      strURLToUse += (this.getQueryString () == ""
		      ? config.getMainPagePreferredPath ()
		      : strURL + "?" + this.getQueryString ());
    }
  else
    {
      strURLToUse += strURL;
      strURLToUse += "?";
      strURLToUse += config.FORM_QueryStringViewCollapse;
      strURLToUse += "=";
      strURLToUse += this.getMessage ().getMessageID ();
      strURLToUse += (this.getQueryString () == "" ? "" : "&" + this.getQueryString ());
    }

  return strURLToUse;
}

function stripThisIDFromQString_exp_disc
(
)
{
  var bIDRemoved = false;
  var strQueryString = "";
  var nItemCount;
  var nNumItems;

  nNumItems = Request.QueryString (config.FORM_QueryStringViewExpand).count;
  for (nItemCount = 1; nItemCount <= nNumItems; nItemCount++)
    {
      if (Request.QueryString (config.FORM_QueryStringViewExpand)(nItemCount)
	  == this.getMessage ().getMessageID ())
	{
	  bIDRemoved = true;
	}
      else
	{
	  strQueryString += config.FORM_QueryStringViewExpand;
	  strQueryString += "=";
	  strQueryString += Server.URLEncode (Request.QueryString (config.FORM_QueryStringViewExpand)(nItemCount));
	  strQueryString += "&";
	}
    }

  nNumItems = Request.QueryString (config.FORM_QueryStringViewCollapse).count;
  for (nItemCount = 1; nItemCount <= nNumItems; nItemCount++)
    {
      if (Request.QueryString (config.FORM_QueryStringViewCollapse)(nItemCount)
	  == this.getMessage ().getMessageID ())
	{
	  bIDRemoved = true;
	}
      else
	{
	  strQueryString += config.FORM_QueryStringViewCollapse;
	  strQueryString += "=";
	  strQueryString += Server.URLEncode (Request.QueryString (config.FORM_QueryStringViewCollapse)(nItemCount));
	  strQueryString += "&";
	}
    }

  nNumItems = Request.QueryString.count;
  for (nItemCount = 1; nItemCount <= nNumItems; nItemCount++)
    {
      if ((Request.QueryString.Key (nItemCount) != config.FORM_QueryStringViewCollapse)
	  && (Request.QueryString.Key (nItemCount) != config.FORM_QueryStringViewExpand)
	  && (Request.QueryString.Key (nItemCount) != config.FORM_QueryStringViewCentre))
	{
	  strQueryString += Request.QueryString.Key (nItemCount);
	  strQueryString += "=";
	  strQueryString += Request.QueryString (nItemCount);
	  strQueryString += "&";
	}
    }

  this.setQueryString (strQueryString.substr(0, strQueryString.length - 1));

  return bIDRemoved;
}

function doWeExpand_exp_disc
(
)
{
  var bDoExpand = false;

  if (config.ADMINSWITCH_ExpandAllThreads)
    {
      bDoExpand = true;
    }
  else
    {
      if (this.getViewIndex () <= config.ADMINSETTING_ExpandFirstNThreads)
	{
	  bDoExpand = true;
	}
      else
	{
	  var nNumItems;
	  nNumItems = Request.QueryString (config.FORM_QueryStringViewExpand).count;
	  var bExpand = false;
	  for (var nItemCount = 1; nItemCount <= nNumItems; nItemCount++)
	    {
	      if (Request.QueryString (config.FORM_QueryStringViewExpand)(nItemCount)
		  == this.getMessage ().getMessageID ())
		{
		  bExpand = true;
		}
	    }

	  bDoExpand = bExpand;
	}
    }

  return bDoExpand;
}

function doWeCollapse_exp_disc
(
)
{
  var bCollapse = false;
  var nNumItems = Request.QueryString (config.FORM_QueryStringViewCollapse).count;
  for (var nItemCount = 1; nItemCount <= nNumItems; nItemCount++)
    {
      if (Request.QueryString (config.FORM_QueryStringViewCollapse)(nItemCount)
	  == this.getMessage ().getMessageID ())
	{
	  bCollapse = true;
	}
    }

  return bCollapse;
}

ASPFExpandCollapse.prototype.getMessage = getMessage_exp_disc;
ASPFExpandCollapse.prototype.setMessage = setMessage_exp_disc;
ASPFExpandCollapse.prototype.getViewIndex = getViewIndex_exp_disc;
ASPFExpandCollapse.prototype.setViewIndex = setViewIndex_exp_disc;
ASPFExpandCollapse.prototype.getCurrentThreadID = getCurrentThreadID_exp_disc;
ASPFExpandCollapse.prototype.setCurrentThreadID = setCurrentThreadID_exp_disc;
ASPFExpandCollapse.prototype.getActiveThreadID = getActiveThreadID_exp_disc;
ASPFExpandCollapse.prototype.setActiveThreadID = setActiveThreadID_exp_disc;
ASPFExpandCollapse.prototype.getQueryString = getQueryString_exp_disc;
ASPFExpandCollapse.prototype.setQueryString = setQueryString_exp_disc;
ASPFExpandCollapse.prototype.getPageURLToUse = getPageURLToUse_exp_disc;
ASPFExpandCollapse.prototype.setPageURLToUse = setPageURLToUse_exp_disc;

ASPFExpandCollapse.prototype.getIcon = getIcon_exp_disc;
ASPFExpandCollapse.prototype.getDHTMLIcon = getDHTMLIcon_exp_disc;
ASPFExpandCollapse.prototype.getNoExpandToggle = getNoExpandToggle_exp_disc;
ASPFExpandCollapse.prototype.getEmptyNoExpandToggle = getEmptyNoExpandToggle_exp_disc;
ASPFExpandCollapse.prototype.getExpandLinkTag = getExpandLinkTag_exp_disc;
ASPFExpandCollapse.prototype.getExpandToggle = getExpandToggle_exp_disc;
ASPFExpandCollapse.prototype.getCollapseLinkTag = getCollapseLinkTag_exp_disc;
ASPFExpandCollapse.prototype.getCollapseToggle = getCollapseToggle_exp_disc;
ASPFExpandCollapse.prototype.getExpandURL = getExpandURL_exp_disc;
ASPFExpandCollapse.prototype.getCollapseURL = getCollapseURL_exp_disc;
ASPFExpandCollapse.prototype.stripThisIDFromQString = stripThisIDFromQString_exp_disc;
ASPFExpandCollapse.prototype.doWeExpand = doWeExpand_exp_disc;
ASPFExpandCollapse.prototype.doWeCollapse = doWeCollapse_exp_disc;

ASPFExpandCollapse.getEmptyNoExpandToggle = getEmptyNoExpandToggle_exp_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// FORM OBJECT
//
// ======================================================================

function ASPFForm
(
 objFormData,
 nSourceType
)
{
  this.setAllFields (objFormData, nSourceType);

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getMessageID_frm_disc
(
)
{
  return Number (this._messageID);
}

function setMessageID_frm_disc
(
 nNewMessageID
)
{
  this._messageID = Number (nNewMessageID);
  return;
}

function getSubject_frm_disc
(
)
{
  return String (this._subject);
}

function setSubject_frm_disc
(
 strNewSubject
)
{
  this._subject = String (strNewSubject);
  return;
}

function getBody_frm_disc
(
)
{
  return String (this._body);
}

function setBody_frm_disc
(
 strNewBody
)
{
  this._body = String (strNewBody);
  return;
}

function getSortCode_frm_disc
(
)
{
  return String (this._sortCode);
}

function setSortCode_frm_disc
(
 strNewSortCode
)
{
  this._sortCode = String (strNewSortCode);
  return;
}

function getParentID_frm_disc
(
)
{
  return Number (this._parentID);
}

function setParentID_frm_disc
(
 nNewParentID
)
{
  this._parentID = Number (nNewParentID);
  return;
}

function getThreadID_frm_disc
(
)
{
  return Number (this._threadID);
}

function setThreadID_frm_disc
(
 nNewThreadID
)
{
  this._threadID = Number (nNewThreadID);
  return;
}

function getEmailParentOnResponse_frm_disc
(
)
{
  return Boolean (this._emailParentOnResponse);
}

function setEmailParentOnResponse_frm_disc
(
 bNewEmailParentOnResponse
)
{
  this._emailParentOnResponse = Boolean (bNewEmailParentOnResponse);
  return;
}

function getSearchString_frm_disc
(
)
{
  return String (this._searchString);
}

function setSearchString_frm_disc
(
 strNewSearchString
)
{
  this._searchString = String (strNewSearchString);
  return;
}

function getSQLStatement_frm_disc
(
)
{
  return String (this._SQLStatement).replace (/\"/gi, "'");
}

function setSQLStatement_frm_disc
(
 strNewSQLStatement
)
{
  this._SQLStatement = String (strNewSQLStatement);
  return;
}

function getFormName_frm_disc
(
)
{
  return String (this._formName);
}

function setFormName_frm_disc
(
 strNewFormName
)
{
  this._formName = String (strNewFormName);
  return;
}

function getMessageIDToDelete_frm_disc
(
)
{
  return Number (this._messageIDToDelete);
}

function setMessageIDToDelete_frm_disc
(
 nNewMessageIDToDelete
)
{
  this._messageIDToDelete = Number (nNewMessageIDToDelete);
  return;
}

function getSwitchEditableUserInfo_frm_disc
(
)
{
  return Boolean (this._switchEditableUserInfo);
}

function setSwitchEditableUserInfo_frm_disc
(
 bNewSwitchEditableUserInfo
)
{
  this._switchEditableUserInfo = Boolean (bNewSwitchEditableUserInfo);
  return;
}

function getAuthorName_frm_disc
(
)
{
  return String (this._authorName);
}

function setAuthorName_frm_disc
(
 strNewAuthorName
)
{
  this._authorName = String (strNewAuthorName);
  return;
}

function getAuthorEmail_frm_disc
(
)
{
  return String (this._authorEmail);
}

function setAuthorEmail_frm_disc
(
 strNewAuthorEmail
)
{
  this._authorEmail = String (strNewAuthorEmail);
  return;
}

function getAuthorFullname_frm_disc
(
)
{
  return String (this._authorFullname);
}

function setAuthorFullname_frm_disc
(
 strNewAuthorFullname
)
{
  this._authorFullname = String (strNewAuthorFullname);
  return;
}

function getArchiveDate_frm_disc
(
)
{
  return new Date (this._archiveDate);
}

function setArchiveDate_frm_disc
(
 dtNewArchiveDate
)
{
  this._archiveDate = new Date (dtNewArchiveDate);
  return;
}

function getPurgeCache_frm_disc
(
)
{
  return Boolean (this._purgeCache);
}

function setPurgeCache_frm_disc
(
 bNewPurgeCache
)
{
  this._purgeCache = Boolean (bNewPurgeCache);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function setAllFields_frm_disc
(
 objNewFormData,
 nSourceType
)
{
  if (nSourceType == ASPF_MESSAGE_OBJECT_TYPE_DISC)
    {
      this.setAllFieldsFromMessage (objNewFormData);
    }
  else if (nSourceType == ASPF_FORM_OBJECT_TYPE_DISC)
    {
      this.setAllFieldsFromForm (objNewFormData);
    }
  else
    {
      this.setAllFieldsEmpty ();
    }

  return;
}

function setAllFieldsFromMessage_frm_disc
(
 msgMessageForForm
)
{
  this.setSubject (msgMessageForForm.getSubject ());
  this.setBody (msgMessageForForm.getBody ());
  this.setSortCode (msgMessageForForm.getSortCode ());
  this.setParentID (msgMessageForForm.getParentID ());
  this.setThreadID (msgMessageForForm.getThreadID ());
  this.setMessageID (msgMessageForForm.getMessageID ());
  this.setEmailParentOnResponse (msgMessageForForm.getEmailParentOnResponse ());
  this.setSearchString ("");
  this.setSQLStatement ("");
  this.setSwitchEditableUserInfo (config.getEditableUserInfoSwitch ());
  this.setAuthorName (msgMessageForForm.getAuthorName ());
  this.setAuthorEmail (msgMessageForForm.getAuthorEmail ());
  this.setAuthorFullname (msgMessageForForm.getAuthorFullname ());

  return;
}

function setAllFieldsFromForm_frm_disc
(
 objFormData
)
{
  this.setMessageID (safeStringDereference_disc (objFormData (config.FORM_FieldMessageID)));
  this.setSubject (safeStringDereference_disc (objFormData (config.FORM_FieldSubject)));
  this.setBody (safeStringDereference_disc (ASPFTextControl.getControlContents (objFormData, config.FORM_FieldMessage)));
  this.setSortCode (safeStringDereference_disc (objFormData (config.FORM_FieldSortCode)));
  this.setParentID (safeStringDereference_disc (objFormData (config.FORM_FieldParentID)));
  this.setThreadID (safeStringDereference_disc (objFormData (config.FORM_FieldThreadID)));
  this.setEmailParentOnResponse ((isUndefined_disc (objFormData (config.FORM_FieldEmailResponses)) ? config.getUserEmailResponsePreference (currentUsername_disc) : (objFormData (config.FORM_FieldEmailResponses) == config.FORM_CheckboxTrue ? true : false)));
  this.setSearchString (safeStringDereference_disc (objFormData (config.FORM_FieldSearchString)));
  this.setSQLStatement (safeStringDereference_disc (objFormData (config.FORM_FieldSQLStatement)));
  this.setMessageIDToDelete (safeStringDereference_disc (objFormData (config.FORM_FieldMessageIDToDelete)));
  this.setSwitchEditableUserInfo (config.getEditableUserInfoSwitch ());
  this.setArchiveDate (this.interpretMonthYearSubform (objFormData, config.FORM_FieldArchiveDate));
  this.setPurgeCache (safeStringDereference_disc (objFormData (config.FORM_FieldPurgeCache)) == config.FORM_CheckboxTrue ? true : false);

  if (this.getSwitchEditableUserInfo ())
    {
      this.setAuthorName (safeStringDereference_disc (objFormData (config.FORM_FieldUsername)));
      this.setAuthorEmail (safeStringDereference_disc (objFormData (config.FORM_FieldEmailaddress)));
      this.setAuthorFullname (safeStringDereference_disc (objFormData (config.FORM_FieldFullname)));
    }
  else
    {
      this.setAuthorName (currentUsername_disc);
      this.setAuthorEmail (currentUserEmailAddress_disc);
      this.setAuthorFullname (currentUserFullName_disc);
    }

  return;
}

function setAllFieldsEmpty_frm_disc
(
)
{
  this.setSubject ("");
  this.setBody ("");
  this.setSortCode ("");
  this.setParentID ("");
  this.setThreadID ("");
  this.setMessageID ("");
  this.setEmailParentOnResponse (false);
  this.setSearchString ("");
  this.setMessageIDToDelete ("");
  this.setSQLStatement ("");
  this.setSwitchEditableUserInfo (config.getEditableUserInfoSwitch ());
  this.setArchiveDate (undefined_disc);
  this.setPurgeCache (false);

  if (this.getSwitchEditableUserInfo ())
    {
      this.setAuthorName (this (config.FORM_FieldUsername));
      this.setAuthorEmail (this (config.FORM_FieldEmailaddress));
      this.setAuthorFullname (this (config.FORM_FieldFullname));
    }
  else
    {
      this.setAuthorName (currentUsername_disc);
      this.setAuthorEmail (currentUserEmailAddress_disc);
      this.setAuthorFullname (currentUserFullName_disc);
    }

  return;
}

function getSubjectInputField_frm_disc
(
)
{
  var strSubject = this.getSubject ();

  return ASPFHTML.INPUT_text (config.FORM_FieldSubject,
			      strSubject,
			      config.ADMINSETTING_SubjectInputboxSize);
}

function getBodyInputField_frm_disc
(
)
{
  var txtBodyTextControl = new ASPFTextControl (config.FORM_FieldMessage,
						this.getBody (),
						this.getFormName ());
  return txtBodyTextControl.getControl ();
}

function getSubjectSubform_frm_disc
(
)
{
  var strHTMLout = "";

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormSubjectLabel);
  strHTMLout += config.USERTEXT_POST_SubjectPrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormSubject);
  strHTMLout += this.getSubjectInputField ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  return strHTMLout;
}

function getBodySubform_frm_disc
(
)
{
  var strHTMLout = "";

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  2);
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormBodyLabel);
  strHTMLout += (ASPFHTML.NBSP () + config.USERTEXT_POST_BodyPrompt).weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.BR ();
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormBody);
  strHTMLout += this.getBodyInputField ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  return strHTMLout;
}

function getEmailResponsesSubform_frm_disc
(
)
{
  var strEmailResponsesChecked;
  if ((this.getEmailParentOnResponse () == true)
      || (this.getEmailParentOnResponse () == config.FORM_CheckboxTrue))
    {
      strEmailResponsesChecked = config.FORM_CheckboxChecked;
    }
  else
    {
      strEmailResponsesChecked = config.FORM_CheckboxUnchecked;
    }

  var strHTMLout = "";
  if (config.ADMINSWITCH_AllowEmailResponses)
    {
      strHTMLout += ASPFHTML.TR_open ();
      strHTMLout += ASPFHTML.TD_open (undefined_disc,
				      undefined_disc,
				      undefined_disc,
				      undefined_disc,
				      undefined_disc,
				      2);
      strHTMLout += ASPFHTML.P_open ();
      strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormEmailResponses);
      strHTMLout += ASPFHTML.INPUT_checkbox (config.FORM_FieldEmailResponses,
					     config.FORM_CheckboxTrue,
					     strEmailResponsesChecked);
      strHTMLout += ASPFHTML.SPAN_close ();
      strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormEmailResponsesLabel);
      strHTMLout += config.USERTEXT_POST_EmailResponsesPrompt.weak ();
      strHTMLout += ASPFHTML.SPAN_close ();
      strHTMLout += ASPFHTML.P_close ();
      strHTMLout += ASPFHTML.TD_close ();
      strHTMLout += ASPFHTML.TR_close ();
    }

  return strHTMLout;
}

function getNonEditableUserInfoSubform_frm_disc
(
)
{
  var strUsername = "";
  strUsername += this.getAuthorName ();
  strUsername += " (";
  strUsername += ASPFHTML.QUOTE_open ();
  strUsername += this.getAuthorFullname ();
  strUsername += ASPFHTML.QUOTE_close ();
  strUsername += ", ";
  strUsername += this.getAuthorEmail ();
  strUsername += ")";
  strUsername = strUsername.weak ();

  var strHTMLout = "";
  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormPostedByLabel);
  strHTMLout += config.USERTEXT_POST_PostedByPrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormPostedBy);
  strHTMLout += strUsername.strong ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  return strHTMLout;
}

function getEditableUserInfoSubform_frm_disc
(
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormPostedByLabel);
  strHTMLout += config.USERTEXT_POST_PostedByPrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormPostedBy);
  strHTMLout += ASPFHTML.INPUT_text (config.FORM_FieldUsername,
				     this.getAuthorName (),
				     25,
				     50);
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormFullNameLabel);
  strHTMLout += config.USERTEXT_POST_FullnamePrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormFullName);
  strHTMLout += ASPFHTML.INPUT_text (config.FORM_FieldFullname,
				     this.getAuthorFullname (),
				     25,
				     50);
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormEmailAddressLabel);
  strHTMLout += config.USERTEXT_POST_EmailAddressPrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormEmailAddress);
  strHTMLout += ASPFHTML.INPUT_text (config.FORM_FieldEmailaddress,
				     this.getAuthorEmail (),
				     25,
				     50);
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  return strHTMLout;
}

function getUserInfoSubform_frm_disc
(
)
{
  var strUserInfoSubform = "";

  if (this.getSwitchEditableUserInfo ())
    {
      strUserInfoSubform = this.getEditableUserInfoSubform ();
    }
  else
    {
      strUserInfoSubform = this.getNonEditableUserInfoSubform ();
    }

  return strUserInfoSubform;
}

function getDateSubform_frm_disc
(
 strFieldValue,
 strFieldName,
 nStartYear,
 nEndYear
)
{
  var dtFieldValue;
  if (isUndefined_disc (strFieldValue))
    {
      dtFieldValue = new Date ();
    }
  else
    {
      dtFieldValue = new Date (strFieldValue);
    }

  var strHTMLout = "";
  strHTMLout += this.getDateElement (strFieldName,
				     dtFieldValue.getDate ());
  strHTMLout += this.getMonthElement (strFieldName,
				      dtFieldValue.getMonth ());
  strHTMLout += this.getYearElement (strFieldName,
				     dtFieldValue.getFullYear (),
				     nStartYear, nEndYear);

  return strHTMLout;
}

function getMonthYearSubform_frm_disc
(
 strFieldValue,
 strFieldName,
 nStartYear,
 nEndYear
)
{
  var dtFieldValue;
  if (isUndefined_disc (strFieldValue))
    {
      dtFieldValue = new Date ();
    }
  else
    {
      dtFieldValue = new Date (strFieldValue);
    }

  var strHTMLout = "";
  strHTMLout += this.getMonthElement (strFieldName,
				      dtFieldValue.getMonth ());
  strHTMLout += this.getYearElement (strFieldName,
				     dtFieldValue.getFullYear (),
				     nStartYear,
				     nEndYear);

  return strHTMLout;
}

function getMessageForm_frm_disc
(
 strActionPath,
 strButtonLabel,
 strURLTarget
)
{
  this.setFormName (config.FORM_MessageFormName);
  var strHTMLout = "";
  strHTMLout += ASPFHTML.FORM_open (strActionPath, undefined_disc, this.getFormName (), strURLTarget);
  strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldMessageID, this.getMessageID ());
  strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldParentID, this.getParentID ());
  strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldThreadID, this.getThreadID ());
  strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldSortCode, this.getSortCode ());
  strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldHiddenEmailOnResponse,
				       this.getEmailParentOnResponse ());

  strHTMLout += ASPFHTML.TABLE_open (config.ADMINSETTING_TableBorderSize,
				     config.ADMINSETTING_TableFullWidth,
				     undefined_disc,
				     undefined_disc,
				     0,
				     0);

  strHTMLout += this.getUserInfoSubform ();

  strHTMLout += this.getSubjectSubform ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  2);
  strHTMLout += ASPFHTML.NBSP ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += this.getBodySubform ();

  strHTMLout += this.getEmailResponsesSubform ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFullWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom",
				  2);
  strHTMLout += ASPFHTML.INPUT_submit (strButtonLabel,
				       strButtonLabel);
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();
  strHTMLout += ASPFHTML.TABLE_close ();
  strHTMLout += ASPFHTML.FORM_close ();

  return strHTMLout;
}

function getSearchForm_frm_disc
(
 strLabel
)
{
  this.setFormName (config.FORM_SearchFormName);
  var strHTMLout = "";
  strHTMLout = ASPFHTML.FORM_open (config.getSearchPagePath (),
				   undefined_disc,
				   this.getFormName (),
				   config.ADMINSETTING_SearchPageTarget);
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormSearch);
  strHTMLout += ASPFHTML.INPUT_text (config.FORM_FieldSearchString,
				     this.getSearchString (),
				     "25");
  strHTMLout += ASPFHTML.INPUT_submit (strLabel, strLabel);
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.FORM_close ();

  return strHTMLout;
}

function getSmallSearchForm_frm_disc
(
 strLabel
)
{
  this.setFormName (config.FORM_SearchFormName);

  var strHTMLout = "";
  strHTMLout += ASPFHTML.FORM_open (config.getSearchPagePath (),
				    undefined_disc,
				    this.getFormName (),
				    config.ADMINSETTING_SearchPageTarget);
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormSearchSmall);
  strHTMLout += label.weakSmall ();
  strHTMLout += ASPFHTML.BR ();
  strHTMLout += ASPFHTML.INPUT_text (config.FORM_FieldSearchString,
				     this.getSearchString (),
				     "10");
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.FORM_close ();

  return strHTMLout;
}

function getArchiveSelector_frm_disc
(
)
{
  this.setFormName (config.FORM_ArchiveFormName);

  var strHTMLout = "";
  strHTMLout += ASPFHTML.FORM_open (config.getArchivePagePath (),
				    "get",
				    this.getFormName (),
				    config.ADMINSETTING_ArchivePageTarget);
  strHTMLout += this.getMonthYearSubform (this.getArchiveDate (),
					  config.FORM_FieldArchiveDate,
					  1999,
					  2001);
  strHTMLout += ASPFHTML.INPUT_submit (undefined_disc, config.USERTEXT_ARCHIVE_ShowResults);
  strHTMLout += ASPFHTML.FORM_close ();

  return strHTMLout;
}

function getAdminForm_frm_disc
(
)
{
  this.setFormName (config.FORM_AdminDeleteFormName);

  var strHTMLout = "";
  strHTMLout += ASPFHTML.FORM_open (config.getAdminPagePath (),
				    undefined_disc,
				    this.getFormName (),
				    config.ADMINSETTING_AdminPageTarget);
  strHTMLout += ASPFHTML.INPUT_submit (config.USERTEXT_SQL_DeleteHierarchyButton,
				       config.USERTEXT_SQL_DeleteHierarchyButton);
  strHTMLout += ASPFHTML.NBSP ();
  strHTMLout += ASPFHTML.INPUT_text (config.FORM_FieldMessageIDToDelete, "", 10);
  strHTMLout += ASPFHTML.FORM_close ();

  this.setFormName (config.FORM_AdminPurgeFormName);

  strHTMLout += ASPFHTML.FORM_open (config.getAdminPagePath (),
				    undefined_disc,
				    this.getFormName (),
				    config.ADMINSETTING_AdminPageTarget);
  strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldPurgeCache,
				       config.FORM_CheckboxTrue);
  strHTMLout += ASPFHTML.INPUT_submit (config.USERTEXT_SQL_PurgeCacheButton,
				       config.USERTEXT_SQL_PurgeCacheButton);
  strHTMLout += ASPFHTML.FORM_close ();

  this.setFormName (config.FORM_AdminSQLFormName);

  strHTMLout += ASPFHTML.FORM_open (config.getAdminPagePath (),
				    undefined_disc,
				    this.getFormName (),
				    config.ADMINSETTING_AdminPageTarget);
  strHTMLout += ASPFHTML.TEXTAREA_open (config.FORM_FieldSQLStatement,
					config.ADMINSETTING_TextAreaCols,
					config.ADMINSETTING_TextAreaRows);
  strHTMLout += this.getSQLStatement ();
  strHTMLout += ASPFHTML.TEXTAREA_close ();
  strHTMLout += ASPFHTML.BR ();
  strHTMLout += ASPFHTML.INPUT_submit (config.USERTEXT_SQL_ExecutePrompt,
				       config.USERTEXT_SQL_ExecutePrompt);
  strHTMLout += ASPFHTML.FORM_close ();

  return strHTMLout;
}

function getDateElement_frm_disc
(
 strFieldName,
 strFieldValue
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormDateElement);
  strHTMLout += ASPFHTML.SELECT_open (strFieldName + config.FORM_FieldDateDaySuffix);
  for (var nCounter = 1; nCounter < 32; nCounter++)
    {
      strHTMLout += ASPFHTML.OPTION (nCounter, (nCounter == strFieldValue));
      strHTMLout += nCounter + Date.getDateSuffixByIndex (nCounter);
    }

  strHTMLout += ASPFHTML.SELECT_close ();
  strHTMLout += ASPFHTML.SPAN_close ();

  return strHTMLout;
}

function getMonthElement_frm_disc
(
 strFieldName,
 strFieldValue
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormMonthElement);
  strHTMLout += ASPFHTML.SELECT_open (strFieldName + config.FORM_FieldDateMonthSuffix);
  for (var nCounter = 0; nCounter < 12; nCounter++)
    {
      strHTMLout += ASPFHTML.OPTION (nCounter, (nCounter == strFieldValue));
      strHTMLout += Date.getMonthNameByIndex (nCounter);
    }

  strHTMLout += ASPFHTML.SELECT_close ();
  strHTMLout += ASPFHTML.SPAN_close ();

  return strHTMLout;
}

function getYearElement_frm_disc
(
 strFieldName,
 strFieldValue,
 nStartYear,
 nEndYear
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassFormYearElement);
  strHTMLout += ASPFHTML.SELECT_open (strFieldName + config.FORM_FieldDateYearSuffix);
  for (var nCounter = nStartYear; nCounter < (nEndYear + 1); nCounter++)
    {
      strHTMLout += ASPFHTML.OPTION (nCounter, (nCounter == strFieldValue));
      strHTMLout += nCounter;
    }

  strHTMLout += ASPFHTML.SELECT_close ();
  strHTMLout += ASPFHTML.SPAN_close ();

  return strHTMLout;
}

function interpretDateSubform_frm_disc
(
 objForm,
 strFieldName
)
{
  var dtFieldDate;

  if (isDefined_disc (objForm (strFieldName + config.FORM_FieldDateMonthSuffix)))
    {
      var nDateValue = safeNumberDereference_disc (String (objForm (strFieldName + config.FORM_FieldDateDaySuffix)));
      var nMonthValue = safeNumberDereference_disc (String (objForm (strFieldName + config.FORM_FieldDateMonthSuffix)));
      var nYearValue = safeNumberDereference_disc (String (objForm (strFieldName + config.FORM_FieldDateYearSuffix)));
      dtFieldDate = new Date ();
      dtFieldDate.setYear (nYearValue);
      dtFieldDate.setMonth (nMonthValue);
      dtFieldDate.setDate (nDateValue);
    }

  return dtFieldDate;
}

function interpretMonthYearSubform_frm_disc
(
 objForm,
 strFieldName
)
{
  var dtFieldDate;

  if (isDefined_disc (String (objForm (strFieldName + config.FORM_FieldDateMonthSuffix))))
    {
      var nMonthValue = safeNumberDereference_disc (String (objForm (strFieldName + config.FORM_FieldDateMonthSuffix)));
      var nYearValue = safeNumberDereference_disc (String (objForm (strFieldName + config.FORM_FieldDateYearSuffix)));
      dtFieldDate = new Date ();
      dtFieldDate.setYear (nYearValue);
      dtFieldDate.setMonth (nMonthValue);
      dtFieldDate.setDate (1);
    }

  return dtFieldDate;
}

ASPFForm.prototype.getMessageID = getMessageID_frm_disc;
ASPFForm.prototype.setMessageID = setMessageID_frm_disc;
ASPFForm.prototype.getSubject = getSubject_frm_disc;
ASPFForm.prototype.setSubject = setSubject_frm_disc;
ASPFForm.prototype.getBody = getBody_frm_disc;
ASPFForm.prototype.setBody = setBody_frm_disc;
ASPFForm.prototype.getSortCode = getSortCode_frm_disc;
ASPFForm.prototype.setSortCode = setSortCode_frm_disc;
ASPFForm.prototype.getParentID = getParentID_frm_disc;
ASPFForm.prototype.setParentID = setParentID_frm_disc;
ASPFForm.prototype.getThreadID = getThreadID_frm_disc;
ASPFForm.prototype.setThreadID = setThreadID_frm_disc;
ASPFForm.prototype.getEmailParentOnResponse = getEmailParentOnResponse_frm_disc;
ASPFForm.prototype.setEmailParentOnResponse = setEmailParentOnResponse_frm_disc;
ASPFForm.prototype.getSearchString = getSearchString_frm_disc;
ASPFForm.prototype.setSearchString = setSearchString_frm_disc;
ASPFForm.prototype.getSQLStatement = getSQLStatement_frm_disc;
ASPFForm.prototype.setSQLStatement = setSQLStatement_frm_disc;
ASPFForm.prototype.getFormName = getFormName_frm_disc;
ASPFForm.prototype.setFormName = setFormName_frm_disc;
ASPFForm.prototype.getMessageIDToDelete = getMessageIDToDelete_frm_disc;
ASPFForm.prototype.setMessageIDToDelete = setMessageIDToDelete_frm_disc;
ASPFForm.prototype.getSwitchEditableUserInfo = getSwitchEditableUserInfo_frm_disc;
ASPFForm.prototype.setSwitchEditableUserInfo = setSwitchEditableUserInfo_frm_disc;
ASPFForm.prototype.getAuthorName = getAuthorName_frm_disc;
ASPFForm.prototype.setAuthorName = setAuthorName_frm_disc;
ASPFForm.prototype.getAuthorEmail = getAuthorEmail_frm_disc;
ASPFForm.prototype.setAuthorEmail = setAuthorEmail_frm_disc;
ASPFForm.prototype.getAuthorFullname = getAuthorFullname_frm_disc;
ASPFForm.prototype.setAuthorFullname = setAuthorFullname_frm_disc;
ASPFForm.prototype.getArchiveDate = getArchiveDate_frm_disc;
ASPFForm.prototype.setArchiveDate = setArchiveDate_frm_disc;
ASPFForm.prototype.getPurgeCache = getPurgeCache_frm_disc;
ASPFForm.prototype.setPurgeCache = setPurgeCache_frm_disc;

ASPFForm.prototype.setAllFields = setAllFields_frm_disc;
ASPFForm.prototype.setAllFieldsFromForm = setAllFieldsFromForm_frm_disc;
ASPFForm.prototype.setAllFieldsFromMessage = setAllFieldsFromMessage_frm_disc;
ASPFForm.prototype.setAllFieldsEmpty = setAllFieldsEmpty_frm_disc;
ASPFForm.prototype.getSubjectInputField = getSubjectInputField_frm_disc;
ASPFForm.prototype.getBodyInputField = getBodyInputField_frm_disc;
ASPFForm.prototype.getSubjectSubform = getSubjectSubform_frm_disc;
ASPFForm.prototype.getBodySubform = getBodySubform_frm_disc;
ASPFForm.prototype.getEmailResponsesSubform = getEmailResponsesSubform_frm_disc;
ASPFForm.prototype.getNonEditableUserInfoSubform = getNonEditableUserInfoSubform_frm_disc;
ASPFForm.prototype.getEditableUserInfoSubform = getEditableUserInfoSubform_frm_disc;
ASPFForm.prototype.getDateSubform = getDateSubform_frm_disc;
ASPFForm.prototype.getMonthYearSubform = getMonthYearSubform_frm_disc;
ASPFForm.prototype.getUserInfoSubform = getUserInfoSubform_frm_disc;
ASPFForm.prototype.getMessageForm = getMessageForm_frm_disc;
ASPFForm.prototype.getSearchForm = getSearchForm_frm_disc;
ASPFForm.prototype.getSmallSearchForm = getSmallSearchForm_frm_disc;
ASPFForm.prototype.getArchiveSelector = getArchiveSelector_frm_disc;
ASPFForm.prototype.getAdminForm = getAdminForm_frm_disc;
ASPFForm.prototype.getDateElement = getDateElement_frm_disc;
ASPFForm.prototype.getMonthElement = getMonthElement_frm_disc;
ASPFForm.prototype.getYearElement = getYearElement_frm_disc;
ASPFForm.prototype.interpretDateSubform = interpretDateSubform_frm_disc;
ASPFForm.prototype.interpretMonthYearSubform = interpretMonthYearSubform_frm_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// HTML OBJECT
//
// ======================================================================

function ASPFHTML
(
 strTagString
)
{
  this.setTagSource (strTagString);

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getTagSource_html_disc
(
)
{
  return String (this._tagSource);
}

function setTagSource_html_disc
(
 strNewTagSource
)
{
  this._tagSource = String (strNewTagSource);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function A_open_html_disc
(
 strLinkURL_mand,
 strLinkTitle,
 strLinkName,
 strLinkTarget,
 strLinkID,
 strOnClick
)
{
  var strHTMLout = "";

  strHTMLout += "<A HREF=\"";
  strHTMLout += strLinkURL_mand;
  strHTMLout += "\" CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strLinkTitle))
    {
      strHTMLout += " TITLE=\"";
      strHTMLout += strLinkTitle;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strLinkName))
    {
      strHTMLout += " NAME=\"";
      strHTMLout += strLinkName;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strLinkTarget))
    {
      strHTMLout += " TARGET=\"";
      strHTMLout += strLinkTarget;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strLinkID))
    {
      strHTMLout += " ID=\"";
      strHTMLout += strLinkID;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strOnClick))
    {
      strHTMLout += " onclick=\"";
      strHTMLout += strOnClick;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function A_close_html_disc
(
)
{
  return "</A>";
}

function BASE_html_disc
(
 strHREF_mand
)
{
  return "<BASE HREF=\"" + strHREF_mand + "\">";
}

function BLOCKQUOTE_open_html_disc
(
)
{
  return "<BLOCKQUOTE CLASS=\"" + config.ADMINSETTING_CSSClass + "\">";
}

function BLOCKQUOTE_close_html_disc
(
)
{
  return "</BLOCKQUOTE>";
}

function BODY_open_html_disc
(
 strBackgroundColour,
 strBackgroundImage,
 strNormalLinkColour,
 strActiveLinkColour,
 strVisitedLinkColour,
 nTopMargin,
 nLeftMargin,
 nMarginHeight,
 nMarginWidth
)
{
  var strHTMLout = "";
  strHTMLout += "<BODY CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strBackgroundColour))
    {
      strHTMLout += " BGCOLOR=\"";
      strHTMLout += strBackgroundColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strBackgroundImage))
    {
      strHTMLout += " BACKGROUND=\"";
      strHTMLout += strBackgroundImage;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strNormalLinkColour))
    {
      strHTMLout += " LINK=\"";
      strHTMLout += strNormalLinkColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strActiveLinkColour))
    {
      strHTMLout += " ALINK=\"";
      strHTMLout += strActiveLinkColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strVisitedLinkColour))
    {
      strHTMLout += " VLINK=\"";
      strHTMLout += strVisitedLinkColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nTopMargin))
    {
      strHTMLout += " TOPMARGIN=\"";
      strHTMLout += nTopMargin;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nLeftMargin))
    {
      strHTMLout += " LEFTMARGIN=\"";
      strHTMLout += nLeftMargin;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nMarginHeight))
    {
      strHTMLout += " MARGINHEIGHT=\"";
      strHTMLout += nMarginHeight;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nMarginWidth))
    {
      strHTMLout += " MARGINWIDTH=\"";
      strHTMLout += nMarginWidth;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function BODY_close_html_disc
(
)
{
  return "</BODY>";
}

function BR_html_disc
(
)
{
  return "<BR CLASS=\"" + config.ADMINSETTING_CSSClass + "\" />";
}

function DIV_open_html_disc
(
 strID,
 strStyle,
 strAlignment
)
{
  var strHTMLout = "";
  strHTMLout += "<DIV CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strID))
    {
      strHTMLout += " ID=\"";
      strHTMLout += strID;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strStyle))
    {
      strHTMLout += " STYLE=\"";
      strHTMLout += strStyle;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strAlignment))
    {
      strHTMLout += " ALIGN=\"";
      strHTMLout += strAlignment;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function DIV_close_html_disc
(
)
{
  return "</DIV>";
}

function DOUBLE_QUOTES_html_disc
(
)
{
  return "&quot;";
}

function DTD_html_disc
(
)
{
  return "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n";
}

function FONT_open_html_disc
(
 strSize,
 strFace,
 strColour,
 strStyle
)
{
  var strHTMLout = "";
  strHTMLout += "<FONT";

  if (isDefined_disc (strSize))
    {
      strHTMLout += " SIZE=\"";
      strHTMLout += strSize;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strFace))
    {
      strHTMLout += " FACE=\"";
      strHTMLout += strFace;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strColour))
    {
      strHTMLout += " COLOR=\"";
      strHTMLout += strColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strStyle))
    {
      strHTMLout += " STYLE=\"";
      strHTMLout += strStyle;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function FONT_close_html_disc
(
)
{
  return "</FONT>";
}

function FORM_open_html_disc
(
 strActionURL_mand,
 strMethod,
 strName,
 strTarget
)
{
  var strHTMLout = "";
  strHTMLout += "<FORM CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" ACTION=\"";
  strHTMLout += strActionURL_mand;
  strHTMLout += "\"";

  if (isDefined_disc (strMethod))
    {
      strHTMLout += " METHOD=\"";
      strHTMLout += strMethod;
      strHTMLout += "\"";
    }
  else
    {
      strHTMLout += " METHOD=\"post\"";
    }

  if (isDefined_disc (strName))
    {
      strHTMLout += " NAME=\"";
      strHTMLout += strName;
      strHTMLout += "\"";
    }
  else
    {
      strHTMLout += " NAME=\"ASPF\"";
    }

  if (isDefined_disc (strTarget))
    {
      strHTMLout += " TARGET=\"";
      strHTMLout += strTarget;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function FORM_close_html_disc
(
)
{
  return "</FORM>";
}

function HTML_open_html_disc
(
)
{
  return "<HTML CLASS=\"" + config.ADMINSETTING_CSSClass + "\">";
}

function HTML_close_html_disc
(
)
{
  return "</HTML>";
}

function IFRAME_open_html_disc
(
 strName_mand,
 strSrc_mand,
 strID,
 nWidth,
 nHeight
)
{
  var strHTMLout = "";
  strHTMLout += "<IFRAME NAME=\"";
  strHTMLout += strName_mand;
  strHTMLout += "\" SRC=\"";
  strHTMLout += strSrc_mand;
  strHTMLout += "\" CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strID))
    {
      strHTMLout += " ID=\"";
      strHTMLout += strID;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nWidth))
    {
      strHTMLout += " WIDTH=\"";
      strHTMLout += nWidth;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nHeight))
    {
      strHTMLout += " HEIGHT=\"";
      strHTMLout += nHeight;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function IFRAME_close_html_disc
(
)
{
  return "</IFRAME>";
}

function IMG_html_disc
(
 strSourceURL_mand,
 strAltText,
 nBorder,
 nWidth,
 nHeight,
 strID,
 strName,
 strOnClick,
 strOnMouseOver,
 strOnMouseOut,
 strOnMouseDown,
 strOnMouseUp,
 strAlign,
 nHspace,
 nVspace
)
{
  var strHTMLout = "";
  strHTMLout += "<IMG CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" SRC=\"";
  strHTMLout += strSourceURL_mand;
  strHTMLout += "\"";

  if (isDefined_disc (strAltText))
    {
      strHTMLout += " ALT=\"";
      strHTMLout += strAltText;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nBorder))
    {
      strHTMLout += " BORDER=\"";
      strHTMLout += nBorder;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nWidth))
    {
      strHTMLout += " WIDTH=\"";
      strHTMLout += nWidth;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nHeight))
    {
      strHTMLout += " HEIGHT=\"";
      strHTMLout += nHeight;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strID))
    {
      strHTMLout += " ID=\"";
      strHTMLout += strID;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strName))
    {
      strHTMLout += " NAME=\"";
      strHTMLout += strName;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strOnClick))
    {
      strHTMLout += " onclick=\"";
      strHTMLout += strOnClick;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strOnMouseOver))
    {
      strHTMLout += " onmouseover=\"";
      strHTMLout += strOnMouseOver;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strOnMouseOut))
    {
      strHTMLout += " onmouseout=\"";
      strHTMLout += strOnMouseOut;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strOnMouseDown))
    {
      strHTMLout += " onmousedown=\"";
      strHTMLout += strOnMouseDown;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strOnMouseUp))
    {
      strHTMLout += " onmouseup=\"";
      strHTMLout += strOnMouseUp;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strAlign))
    {
      strHTMLout += " ALIGN=\"";
      strHTMLout += strAlign;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nHspace))
    {
      strHTMLout += " HSPACE=\"";
      strHTMLout += nHspace;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nVspace))
    {
      strHTMLout += " VSPACE=\"";
      strHTMLout += nVspace;
      strHTMLout += "\"";
    }

  strHTMLout += " />";

  return strHTMLout;
}

function INPUT_checkbox_html_disc
(
 strFieldName_mand,
 strFieldValue_mand,
 strCheckedOrNot
)
{
  var strHTMLout = "";
  strHTMLout += "<INPUT CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" NAME=\"";
  strHTMLout += strFieldName_mand;
  strHTMLout += "\" VALUE=\"";
  strHTMLout += strFieldValue_mand;
  strHTMLout += "\" TYPE=\"checkbox\"";

  if (isDefined_disc (strCheckedOrNot))
    {
      strHTMLout += strCheckedOrNot;
    }

  strHTMLout += " />";

  return strHTMLout;
}

function INPUT_hidden_html_disc
(
 strFieldName_mand,
 strFieldValue_mand
)
{
  var strHTMLout = "";
  strHTMLout += "<INPUT CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" NAME=\"";
  strHTMLout += strFieldName_mand;
  strHTMLout += "\" VALUE=\"";
  strHTMLout += strFieldValue_mand;
  strHTMLout += "\" TYPE=\"hidden\" />";

  return strHTMLout;
}

function INPUT_password_html_disc
(
 strFieldName_mand,
 strFieldValue_mand,
 strFieldSize,
 strFieldMaxLength
)
{
  var strHTMLout = "";
  strHTMLout += "<INPUT CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" NAME=\"";
  strHTMLout += strFieldName_mand;
  strHTMLout += "\" VALUE=\"";
  strHTMLout += strFieldValue_mand;
  strHTMLout += "\" TYPE=\"password\"";

  if (isUndefined_disc (strFieldSize))
    {
      strFieldSize = config.ADMINSETTING_TextAreaRows;
    }
  strHTMLout += " SIZE=\"";
  strHTMLout += strFieldSize;
  strHTMLout += "\"";

  if (isUndefined_disc (strFieldMaxLength))
    {
      strFieldMaxLength = config.ADMINSETTING_InputboxMaxLength;
    }
  strHTMLout += " MAXLENGTH=\"";
  strHTMLout += strFieldMaxLength;
  strHTMLout += "\">";

  return strHTMLout;
}

function INPUT_submit_html_disc
(
 strFieldName,
 strFieldValue_mand
)
{
  var strHTMLout = "";

  if (ASPFTextControl.isUsed ())
    {
      strHTMLout += "<INPUT CLASS=\"";
      strHTMLout += config.ADMINSETTING_CSSClass;
      strHTMLout += "\" VALUE=\"";
      strHTMLout += strFieldValue_mand;
      strHTMLout += "\" TYPE=\"button\" onclick=\"submitRecord (); return false;\"";
      if (isDefined_disc (strFieldName))
	{
	  strHTMLout += " NAME=\"";
	  strHTMLout += strFieldName;
	  strHTMLout += "\"";
	}
      strHTMLout += " />";
    }
  else
    {
      strHTMLout += "<INPUT CLASS=\"";
      strHTMLout += config.ADMINSETTING_CSSClass;
      strHTMLout += "\" VALUE=\"";
      strHTMLout += strFieldValue_mand;
      strHTMLout += "\" TYPE=\"submit\"";
      if (isDefined_disc (strFieldName))
	{
	  strHTMLout += " NAME=\"";
	  strHTMLout += strFieldName;
	  strHTMLout += "\"";
	}
      strHTMLout += " />";
    }

  return strHTMLout;
}

function INPUT_text_html_disc
(
 strFieldName_mand,
 strFieldValue_mand,
 strFieldSize,
 strFieldMaxLength
)
{
  var strHTMLout = "";
  strHTMLout += "<INPUT CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" NAME=\"";
  strHTMLout += strFieldName_mand;
  strHTMLout += "\" VALUE=\"";
  strHTMLout += strFieldValue_mand;
  strHTMLout += "\" TYPE=\"text\"";

  if (isUndefined_disc (strFieldSize))
    {
      strFieldSize = config.ADMINSETTING_TextAreaRows;
    }
  strHTMLout += " SIZE=\"";
  strHTMLout += strFieldSize;
  strHTMLout += "\"";

  if (isUndefined_disc (strFieldMaxLength))
    {
      strFieldMaxLength = config.ADMINSETTING_InputboxMaxLength;
    }
  strHTMLout += " MAXLENGTH=\"";
  strHTMLout += strFieldMaxLength;
  strHTMLout += "\">";

  return strHTMLout;
}

function LI_html_disc
(
)
{
  return "<LI CLASS=\"" + config.ADMINSETTING_CSSClass + "\" />";
}

function JS_open_html_disc
(
)
{
  return "\n<SCR" + "IPT LANGUAGE=\"JavaScript\">\n<" + "!--\n";
}

function JS_close_html_disc
(
)
{
  return "\n/" + "/ -->\n</SCR" + "IPT>\n";
}

function MAILTO_html_disc
(
 strEmailAddress,
 strName_mand,
 strEmailLinkText
)
{
  var strHTMLout = "";
  if (config.ADMINSWITCH_ShowEmailAddresses)
    {
      var strLinkURL = "mailto:" + strEmailAddress;
      var strLinkText = "";
      strLinkText += config.USERTEXT_SHOW_PopupEmailPrefix;
      strLinkText += strName_mand;
      strLinkText += " (";
      strLinkText += strEmailAddress;
      strLinkText += ")";

      strHTMLout += ASPFHTML.A_open (strLinkURL, strLinkText);
      strHTMLout += strEmailLinkText;
      strHTMLout += ASPFHTML.A_close ();
    }
  else
    {
      strHTMLout += strName_mand;
    }

  return strHTMLout;
}

function NBSP_html_disc
(
 nNumRequired
)
{
  var strHTMLout = "&nbsp;";

  if (isDefined_disc (nNumRequired))
    {
      for (var nCounter = 1; nCounter < nNumRequired; nCounter++)
	{
	  strHTMLout += "&nbsp;";
	}
    }

  return strHTMLout;
}

function OL_open_html_disc
(
)
{
  return "<OL CLASS=\"" + config.ADMINSETTING_CSSClass + "\">";
}

function OL_close_html_disc
(
)
{
  return "</OL>";
}

function OPTION_html_disc
(
 strValue_mand,
 bSelected
)
{
  var strSelected = "";
  if (isDefined_disc (bSelected) && bSelected)
    {
      strSelected = " SELECTED";
    }

  var strHTMLout = "";
  strHTMLout += "<OPTION VALUE=\"";
  strHTMLout += strValue_mand;
  strHTMLout += "\" CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";
  strHTMLout += strSelected;
  strHTMLout += " />";

  return strHTMLout;
}

function P_open_html_disc
(
)
{
  return "<P CLASS=\"" + config.ADMINSETTING_CSSClass + "\">";
}

function P_close_html_disc
(
)
{
  return "</P>";
}

function QUOTE_open_html_disc
(
)
{
  return "&#145;";
}

function QUOTE_close_html_disc
(
)
{
  return "&#146;";
}

function SELECT_open_html_disc
(
 strName_mand,
 strOnChange
)
{
  var strHTMLout = "";
  strHTMLout += "<SELECT NAME=\"";
  strHTMLout += strName_mand;
  strHTMLout += "\" CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strOnChange))
    {
      strHTMLout += " onchange=\"";
      strHTMLout += strOnChange;
      strHTMLout += "\"";
    }
  strHTMLout += ">";

  return strHTMLout;
}

function SELECT_close_html_disc
(
)
{
  return "</SELECT>";
}

function SPAN_open_html_disc
(
 strClass_mand
)
{
  var strHTMLout = "";
  strHTMLout += "<SPAN CLASS=\"";
  strHTMLout += strClass_mand;
  strHTMLout += "\">";

  return strHTMLout;
}

function SPAN_close_html_disc
(
)
{
  return "</SPAN>";
}

function STRONG_open_html_disc
(
)
{
  return "<STRONG CLASS=\"" + config.ADMINSETTING_CSSClass + "\">";
}

function STRONG_close_html_disc
(
)
{
  return "</STRONG>";
}

function STYLE_open_html_disc
(
 strType
)
{
  if (isUndefined_disc (strType))
    {
      strType = "text/css";
    }

  return "<STYLE TYPE=\"" + strType + "\">";
}

function STYLE_close_html_disc
(
)
{
  return "</STYLE>";
}

function TABLE_open_html_disc
(
 nBorder,
 nWidth,
 strBackgroundColour,
 strStyle,
 nCellpadding,
 nCellspacing
)
{
  var strHTMLout = "";
  strHTMLout += "<TABLE CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (nBorder))
    {
      strHTMLout += " BORDER=\"";
      strHTMLout += nBorder;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nWidth))
    {
      strHTMLout += " WIDTH=\"";
      strHTMLout += nWidth;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strBackgroundColour))
    {
      strHTMLout += " BGCOLOR=\"";
      strHTMLout += strBackgroundColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strStyle))
    {
      strHTMLout += " STYLE=\"";
      strHTMLout += strStyle;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nCellpadding))
    {
      strHTMLout += " CELLPADDING=\"";
      strHTMLout += nCellpadding;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nCellspacing))
    {
      strHTMLout += " CELLSPACING=\"";
      strHTMLout += nCellspacing;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function TABLE_close_html_disc
(
)
{
  return "</TABLE>";
}

function TD_open_html_disc
(
 nWidth,
 strStyle,
 strBackgroundColour,
 strAlignment,
 strVAlignment,
 nColspan,
 bNowrap,
 strBackgroundImage
)
{
  var strHTMLout = "";
  strHTMLout += "<TD CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (nWidth))
    {
      strHTMLout += " WIDTH=\"";
      strHTMLout += nWidth;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strStyle))
    {
      strHTMLout += " STYLE=\"";
      strHTMLout += strStyle;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strBackgroundColour))
    {
      strHTMLout += " BGCOLOR=\"";
      strHTMLout += strBackgroundColour;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strAlignment))
    {
      strHTMLout += " ALIGN=\"";
      strHTMLout += strAlignment;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strVAlignment))
    {
      strHTMLout += " VALIGN=\"";
      strHTMLout += strVAlignment;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nColspan))
    {
      strHTMLout += " COLSPAN=\"";
      strHTMLout += nColspan;
      strHTMLout += "\"";
    }

  if ((isDefined_disc (bNowrap)) || (!config.ADMINSETTING_WrapMessageThreadViews))
    {
      if ((bNowrap) || (!config.ADMINSETTING_WrapMessageThreadViews))
	{
	  strHTMLout += " NOWRAP";
	}
    }

  if (isDefined_disc (strBackgroundImage))
    {
      strHTMLout += " BACKGROUND=\"";
      strHTMLout += strBackgroundImage;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function TD_close_html_disc
(
)
{
  return "</TD>";
}

function TEXTAREA_open_html_disc
(
 strFieldName_mand,
 nColumns,
 nRows
)
{
  var strHTMLout = "";
  strHTMLout += "<TEXTAREA CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\" NAME=\"";
  strHTMLout += strFieldName_mand;
  strHTMLout += "\" WRAP=\"PHYSICAL\"";

  if (isDefined_disc (nColumns))
    {
      strHTMLout += " COLS=\"";
      strHTMLout += nColumns;
      strHTMLout += "\"";
    }

  if (isDefined_disc (nRows))
    {
      strHTMLout += " ROWS=\"";
      strHTMLout += nRows;
      strHTMLout += "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function TEXTAREA_close_html_disc
(
)
{
  return "</TEXTAREA>";
}

function TH_open_html_disc
(
 strStyle,
 strAlignment,
 strVAlignment,
 bNowrap
)
{
  var strHTMLout = "";
  strHTMLout += "<TH CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strStyle))
    {
      strHTMLout += " STYLE=\"";
      strHTMLout += strStyle;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strAlignment))
    {
      strHTMLout += " ALIGN=\"";
      strHTMLout += strAlignment;
      strHTMLout += "\"";
    }

  if (isDefined_disc (strVAlignment))
    {
      strHTMLout += " VALIGN=\"";
      strHTMLout += strVAlignment;
      strHTMLout += "\"";
    }

  if (isDefined_disc (bNowrap))
    {
      if (bNowrap)
	{
	  strHTMLout += " NOWRAP";
	}
    }

  strHTMLout += ">";

  return strHTMLout;
}

function TH_close_html_disc
(
)
{
  return "</TH>";
}

function TR_open_html_disc
(
 strStyle
)
{
  var strHTMLout = "";
  strHTMLout += "<TR CLASS=\"";
  strHTMLout += config.ADMINSETTING_CSSClass;
  strHTMLout += "\"";

  if (isDefined_disc (strStyle))
    {
      strHTMLout += " STYLE=\"" + strStyle + "\"";
    }

  strHTMLout += ">";

  return strHTMLout;
}

function TR_close_html_disc
(
)
{
  return "</TR>";
}

function UL_open_html_disc
(
)
{
  return "<UL TYPE=\"square\" CLASS=\"" + config.ADMINSETTING_CSSClass + "\">";
}

function UL_close_html_disc
(
)
{
  return "</UL>";
}

function sanitise_html_disc
(
)
{
  var strSanitisedTag = "";

  if (this.isImage ())
    {
      strSanitisedTag = this.sanitiseImage ();
    }
  else if (this.isLinkOpen ())
    {
      strSanitisedTag = this.sanitiseLink ();
    }
  else
    {
      strSanitisedTag = this.getTagSource ();
    }

  return strSanitisedTag;
}

function isImage_html_disc
(
)
{
  var bIsImageTag = false;
  if (this.getTagSource ().search ("^<\\s*IMG\\s") > -1)
    {
      bIsImageTag = true;
    }

  return bIsImageTag;
}

function isLinkOpen_html_disc
(
)
{
  var bIsLinkTag = false;
  if (this.getTagSource ().search ("^<\\s*A\\s") > -1)
    {
      bIsLinkTag = true;
    }

  return bIsLinkTag;
}

function isLinkClose_html_disc ()
{
  var bIsLinkTag = false;
  if (this.getTagSource ().search ("^<\\s*/\\s*A\\s") > -1)
    {
      bIsLinkTag = true;
    }

  return bIsLinkTag;
}

// ======================================================================
//
// Private member methods.
//
// ======================================================================

function sanitiseImage_html_disc
(
)
{
  var strTag = this.getTagSource ();

  var strSrc = strTag.getAttribute ("src");
  var strAlt = strTag.getAttribute ("alt");
  if ((isDefined_disc (strAlt)) && (strAlt != config.USERTEXT_STRING_WarningUnverifiedImage))
    {
      strAlt = config.USERTEXT_STRING_WarningUnverifiedImage + this.QUOTE_open () + strAlt + this.QUOTE_close ();
    }
  else
    {
      strAlt = config.USERTEXT_STRING_WarningUnverifiedImage;
    }

  var nBorder = strTag.getAttribute ("border");
  var strAlign = strTag.getAttribute ("align");
  var nHspace = strTag.getAttribute ("hspace");
  var nVspace = strTag.getAttribute ("vspace");

  return this.IMG (strSrc,
		   strAlt,
		   nBorder,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   undefined_disc,
		   strAlign,
		   nHspace,
		   nVspace);
}

function sanitiseLink_html_disc
(
)
{
  var strTag = this.getTagSource ();
  var strHref = strTag.getAttribute ("href");
  var strTitle = strTag.getAttribute ("title");
  if ((isDefined_disc (strTitle)) && (strTitle != config.USERTEXT_STRING_WarningUnverifiedLink))
    {
      strTitle = config.USERTEXT_STRING_WarningUnverifiedLink + this.QUOTE_open () + strTitle + this.QUOTE_close ();
    }
  else
    {
      strTitle = config.USERTEXT_STRING_WarningUnverifiedLink;
    }
  var strName = strTag.getAttribute ("name");
  var strID = strTag.getAttribute ("id");

  return this.A_open (strHref, strTitle, strName, undefined_disc, strID);
}

ASPFHTML.A_open = A_open_html_disc;
ASPFHTML.A_close = A_close_html_disc;
ASPFHTML.BASE = BASE_html_disc;
ASPFHTML.BLOCKQUOTE_open = BLOCKQUOTE_open_html_disc;
ASPFHTML.BLOCKQUOTE_close = BLOCKQUOTE_close_html_disc;
ASPFHTML.BODY_open = BODY_open_html_disc;
ASPFHTML.BODY_close = BODY_close_html_disc;
ASPFHTML.BR = BR_html_disc;
ASPFHTML.DIV_open = DIV_open_html_disc;
ASPFHTML.DIV_close = DIV_close_html_disc;
ASPFHTML.DOUBLE_QUOTES = DOUBLE_QUOTES_html_disc;
ASPFHTML.DTD = DTD_html_disc;
ASPFHTML.FONT_open = FONT_open_html_disc;
ASPFHTML.FONT_close = FONT_close_html_disc;
ASPFHTML.FORM_open = FORM_open_html_disc;
ASPFHTML.FORM_close = FORM_close_html_disc;
ASPFHTML.HTML_open = HTML_open_html_disc;
ASPFHTML.HTML_close = HTML_close_html_disc;
ASPFHTML.IFRAME_open = IFRAME_open_html_disc;
ASPFHTML.IFRAME_close = IFRAME_close_html_disc;
ASPFHTML.IMG = IMG_html_disc;
ASPFHTML.INPUT_checkbox = INPUT_checkbox_html_disc;
ASPFHTML.INPUT_hidden = INPUT_hidden_html_disc;
ASPFHTML.INPUT_password = INPUT_password_html_disc;
ASPFHTML.INPUT_submit = INPUT_submit_html_disc;
ASPFHTML.INPUT_text = INPUT_text_html_disc;
ASPFHTML.JS_open = JS_open_html_disc;
ASPFHTML.JS_close = JS_close_html_disc;
ASPFHTML.LI = LI_html_disc;
ASPFHTML.MAILTO = MAILTO_html_disc;
ASPFHTML.NBSP = NBSP_html_disc;
ASPFHTML.NBSP_multi = NBSP_html_disc;
ASPFHTML.OL_open = OL_open_html_disc;
ASPFHTML.OL_close = OL_close_html_disc;
ASPFHTML.OPTION = OPTION_html_disc;
ASPFHTML.P_open = P_open_html_disc;
ASPFHTML.P_close = P_close_html_disc;
ASPFHTML.QUOTE_open = QUOTE_open_html_disc;
ASPFHTML.QUOTE_close = QUOTE_close_html_disc;
ASPFHTML.SELECT_open = SELECT_open_html_disc;
ASPFHTML.SELECT_close = SELECT_close_html_disc;
ASPFHTML.SPAN_open = SPAN_open_html_disc;
ASPFHTML.SPAN_close = SPAN_close_html_disc;
ASPFHTML.STRONG_open = STRONG_open_html_disc;
ASPFHTML.STYLE_open = STYLE_open_html_disc;
ASPFHTML.STYLE_close = STYLE_close_html_disc;
ASPFHTML.STRONG_close = STRONG_close_html_disc;
ASPFHTML.TABLE_open = TABLE_open_html_disc;
ASPFHTML.TABLE_close = TABLE_close_html_disc;
ASPFHTML.TD_open = TD_open_html_disc;
ASPFHTML.TD_close = TD_close_html_disc;
ASPFHTML.TEXTAREA_open = TEXTAREA_open_html_disc;
ASPFHTML.TEXTAREA_close = TEXTAREA_close_html_disc;
ASPFHTML.TH_open = TH_open_html_disc;
ASPFHTML.TH_close = TH_close_html_disc;
ASPFHTML.TR_open = TR_open_html_disc;
ASPFHTML.TR_close = TR_close_html_disc;
ASPFHTML.UL_open = UL_open_html_disc;
ASPFHTML.UL_close = UL_close_html_disc;


ASPFHTML.prototype.getTagSource = getTagSource_html_disc;
ASPFHTML.prototype.setTagSource = setTagSource_html_disc;

ASPFHTML.prototype.A_open = A_open_html_disc;
ASPFHTML.prototype.A_close = A_close_html_disc;
ASPFHTML.prototype.BASE = BASE_html_disc;
ASPFHTML.prototype.BLOCKQUOTE_open = BLOCKQUOTE_open_html_disc;
ASPFHTML.prototype.BLOCKQUOTE_close = BLOCKQUOTE_close_html_disc;
ASPFHTML.prototype.BODY_open = BODY_open_html_disc;
ASPFHTML.prototype.BODY_close = BODY_close_html_disc;
ASPFHTML.prototype.BR = BR_html_disc;
ASPFHTML.prototype.DIV_open = DIV_open_html_disc;
ASPFHTML.prototype.DIV_close = DIV_close_html_disc;
ASPFHTML.prototype.DOUBLE_QUOTES = DOUBLE_QUOTES_html_disc;
ASPFHTML.prototype.DTD = DTD_html_disc;
ASPFHTML.prototype.FONT_open = FONT_open_html_disc;
ASPFHTML.prototype.FONT_close = FONT_close_html_disc;
ASPFHTML.prototype.FORM_open = FORM_open_html_disc;
ASPFHTML.prototype.FORM_close = FORM_close_html_disc;
ASPFHTML.prototype.HTML_open = HTML_open_html_disc;
ASPFHTML.prototype.HTML_close = HTML_close_html_disc;
ASPFHTML.prototype.IFRAME_open = IFRAME_open_html_disc;
ASPFHTML.prototype.IFRAME_close = IFRAME_close_html_disc;
ASPFHTML.prototype.IMG = IMG_html_disc;
ASPFHTML.prototype.INPUT_checkbox = INPUT_checkbox_html_disc;
ASPFHTML.prototype.INPUT_hidden = INPUT_hidden_html_disc;
ASPFHTML.prototype.INPUT_password = INPUT_password_html_disc;
ASPFHTML.prototype.INPUT_submit = INPUT_submit_html_disc;
ASPFHTML.prototype.INPUT_text = INPUT_text_html_disc;
ASPFHTML.prototype.JS_open = JS_open_html_disc;
ASPFHTML.prototype.JS_close = JS_close_html_disc;
ASPFHTML.prototype.LI = LI_html_disc;
ASPFHTML.prototype.MAILTO = MAILTO_html_disc;
ASPFHTML.prototype.NBSP = NBSP_html_disc;
ASPFHTML.prototype.NBSP_multi = NBSP_html_disc;
ASPFHTML.prototype.OPTION = OPTION_html_disc;
ASPFHTML.prototype.OL_open = OL_open_html_disc;
ASPFHTML.prototype.OL_close = OL_close_html_disc;
ASPFHTML.prototype.P_open = P_open_html_disc;
ASPFHTML.prototype.P_close = P_close_html_disc;
ASPFHTML.prototype.QUOTE_open = QUOTE_open_html_disc;
ASPFHTML.prototype.QUOTE_close = QUOTE_close_html_disc;
ASPFHTML.prototype.SELECT_open = SELECT_open_html_disc;
ASPFHTML.prototype.SELECT_close = SELECT_close_html_disc;
ASPFHTML.prototype.STRONG_open = STRONG_open_html_disc;
ASPFHTML.prototype.SPAN_open = SPAN_open_html_disc;
ASPFHTML.prototype.SPAN_close = SPAN_close_html_disc;
ASPFHTML.prototype.STRONG_close = STRONG_close_html_disc;
ASPFHTML.prototype.STYLE_open = STYLE_open_html_disc;
ASPFHTML.prototype.STYLE_close = STYLE_close_html_disc;
ASPFHTML.prototype.TABLE_open = TABLE_open_html_disc;
ASPFHTML.prototype.TABLE_close = TABLE_close_html_disc;
ASPFHTML.prototype.TD_open = TD_open_html_disc;
ASPFHTML.prototype.TD_close = TD_close_html_disc;
ASPFHTML.prototype.TEXTAREA_open = TEXTAREA_open_html_disc;
ASPFHTML.prototype.TEXTAREA_close = TEXTAREA_close_html_disc;
ASPFHTML.prototype.TH_open = TH_open_html_disc;
ASPFHTML.prototype.TH_close = TH_close_html_disc;
ASPFHTML.prototype.TR_open = TR_open_html_disc;
ASPFHTML.prototype.TR_close = TR_close_html_disc;
ASPFHTML.prototype.UL_open = UL_open_html_disc;
ASPFHTML.prototype.UL_close = UL_close_html_disc;

ASPFHTML.prototype.sanitise = sanitise_html_disc;
ASPFHTML.prototype.isImage = isImage_html_disc;
ASPFHTML.prototype.isLinkOpen = isLinkOpen_html_disc;
ASPFHTML.prototype.isLinkClose = isLinkClose_html_disc;
ASPFHTML.prototype.sanitiseImage = sanitiseImage_html_disc;
ASPFHTML.prototype.sanitiseLink = sanitiseLink_html_disc;

</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// MESSAGE OBJECT
//
// ======================================================================

function ASPFMessage
(
 objMessage,
 nSourceType
)
{
  this.setAllFields (objMessage, nSourceType);

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getSubject_msg_disc
(
)
{
  return String (this._subject);
}

function setSubject_msg_disc
(
 strNewSubject
)
{
  this._subject = String (strNewSubject);
  return;
}

function getBody_msg_disc
(
)
{
  return String (this._body);
}

function setBody_msg_disc
(
 strNewBody
)
{
  this._body = String (strNewBody);
  return;
}

function getSortCode_msg_disc
(
)
{
  return String (this._sortCode);
}

function setSortCode_msg_disc
(
 strNewSortCode
)
{
  this._sortCode = String (strNewSortCode);
  return;
}

function getAuthorName_msg_disc
(
)
{
  return String (this._authorName);
}

function setAuthorName_msg_disc
(
 strNewAuthorName
)
{
  this._authorName = String (strNewAuthorName);
  return;
}

function getAuthorEmail_msg_disc
(
)
{
  return String (this._authorEmail);
}

function setAuthorEmail_msg_disc
(
 strNewAuthorEmail
)
{
  this._authorEmail = String (strNewAuthorEmail);
  return;
}

function getAuthorFullname_msg_disc
(
)
{
  return String (this._authorFullname);
}

function setAuthorFullname_msg_disc
(
 strNewAuthorFullname
)
{
  this._authorFullname = String (strNewAuthorFullname);
  return;
}

function getMessageID_msg_disc
(
)
{
  return Number (this._messageID);
}

function setMessageID_msg_disc
(
 nNewMessageID
)
{
  this._messageID = Number (nNewMessageID);
  return;
}

function getParentID_msg_disc
(
)
{
  return Number (this._parentID);
}

function setParentID_msg_disc
(
 nNewParentID
)
{
  this._parentID = Number (nNewParentID);
  return;
}

function getThreadID_msg_disc
(
)
{
  return Number (this._threadID);
}

function setThreadID_msg_disc
(
 nNewThreadID
)
{
  this._threadID = Number (nNewThreadID);
  return;
}

function getNumChildren_msg_disc
(
)
{
  return Number (this._numChildren);
}

function setNumChildren_msg_disc
(
 nNewNumChildren
)
{
  this._numChildren = Number (nNewNumChildren);
  return;
}

function getDateCreated_msg_disc
(
)
{
  return new Date (this._dateCreated);
}

function setDateCreated_msg_disc
(
 dtNewDateCreated
)
{
  this._dateCreated = new Date (dtNewDateCreated);
  return;
}

function getDateModified_msg_disc
(
)
{
  return new Date (this._dateModified);
}

function setDateModified_msg_disc
(
 dtNewDateModified
)
{
  this._dateModified = new Date (dtNewDateModified);
  return;
}

function getEmailParentOnResponse_msg_disc
(
)
{
  var bEmailResponse = false;
  if ((this._emailParentOnResponse == "true") || (this._emailParentOnResponse == true))
    {
      bEmailResponse = true;
    }

  return bEmailResponse;
}

function setEmailParentOnResponse_msg_disc
(
 bNewEmailParentOnResponse
)
{
  this._emailParentOnResponse = Boolean (bNewEmailParentOnResponse);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function setAllFieldsEmpty_msg_disc
(
)
{
  this.setSubject ("");
  this.setBody ("");
  this.setSortCode ("");
  this.setAuthorName ("");
  this.setAuthorEmail ("");
  this.setAuthorFullname ("");
  this.setMessageID (0);
  this.setParentID (0);
  this.setThreadID (0);
  this.setNumChildren (0);
  this.setDateCreated ("1/1/00");
  this.setDateModified ("1/1/00");
  this.setEmailParentOnResponse (false);

  return;
}

function setAllFieldsFromRecordSet_msg_disc
(
 rsNewMessageRecord
)
{
  if ((rsNewMessageRecord != null) && (!rsNewMessageRecord.EOF))
    {
      var dbDatabase = new ASPFDatabase ();

      this.setSubject (dbDatabase.getSubjectField (rsNewMessageRecord));
      this.setBody (dbDatabase.getBodyField (rsNewMessageRecord));
      this.setSortCode (dbDatabase.getSortCodeField (rsNewMessageRecord));
      this.setAuthorName (dbDatabase.getAuthorNameField (rsNewMessageRecord));
      this.setAuthorEmail (dbDatabase.getAuthorEmailField (rsNewMessageRecord));
      this.setAuthorFullname (dbDatabase.getAuthorFullnameField (rsNewMessageRecord));
      this.setMessageID (dbDatabase.getMessageIDField (rsNewMessageRecord));
      this.setParentID (dbDatabase.getParentIDField (rsNewMessageRecord));
      this.setThreadID (dbDatabase.getThreadIDField (rsNewMessageRecord));
      this.setNumChildren (dbDatabase.getNumChildrenField (rsNewMessageRecord));
      this.setDateCreated (dbDatabase.getDateCreatedField (rsNewMessageRecord));
      this.setDateModified (dbDatabase.getDateModifiedField (rsNewMessageRecord));
      this.setEmailParentOnResponse (dbDatabase.getEmailParentOnResponseField (rsNewMessageRecord));

      delete dbDatabase;
    }
  else
    {
      this.setAllFieldsEmpty ();
    }

  return;
}

function setAllFieldsFromMessage_msg_disc
(
 msgNewMessage
)
{
  this.setSubject (msgNewMessage.getSubject ());
  this.setBody (msgNewMessage.getBody ());
  this.setSortCode (msgNewMessage.getSortCode ());
  this.setAuthorName (msgNewMessage.getAuthorName ());
  this.setAuthorEmail (msgNewMessage.getAuthorEmail ());
  this.setAuthorFullname (msgNewMessage.getAuthorFullname ());
  this.setMessageID (msgNewMessage.getMessageID ());
  this.setParentID (msgNewMessage.getParentID ());
  this.setThreadID (msgNewMessage.getThreadID ());
  this.setNumChildren (msgNewMessage.getNumChildren ());
  this.setDateCreated (msgNewMessage.getDateCreated ());
  this.setDateModified (msgNewMessage.getDateModified ());
  this.setEmailParentOnResponse (msgNewMessage.getEmailParentOnResponse ());

  return;
}

function setAllFieldsFromForm_msg_disc
(
 frmNewMessageForm
)
{
  this.setSubject (safeStringDereference_disc (frmNewMessageForm.getSubject ()));
  this.setBody (safeStringDereference_disc (frmNewMessageForm.getBody ()));
  this.setSortCode (safeNumberDereference_disc (frmNewMessageForm.getSortCode ()));
  this.setParentID (safeNumberDereference_disc (frmNewMessageForm.getParentID ()));
  this.setThreadID (safeNumberDereference_disc (frmNewMessageForm.getThreadID ()));
  this.setMessageID (safeNumberDereference_disc (frmNewMessageForm.getMessageID ()));
  this.setEmailParentOnResponse (frmNewMessageForm.getEmailParentOnResponse ());
  this.setAuthorName (safeStringDereference_disc (frmNewMessageForm.getAuthorName ()));
  this.setAuthorEmail (safeStringDereference_disc (frmNewMessageForm.getAuthorEmail ()));
  this.setAuthorFullname (safeStringDereference_disc (frmNewMessageForm.getAuthorFullname ()));

  return;
}

function setAllFields_msg_disc
(
 objNewMessage,
 nSourceType
)
{
  if (isUndefined_disc (objNewMessage))
    {
      this.setAllFieldsEmpty ();
    }
  if (nSourceType == ASPF_FORM_OBJECT_TYPE_DISC)
    {
      this.setAllFieldsFromForm (objNewMessage);
    }
  else if (nSourceType == ASPF_MESSAGE_OBJECT_TYPE_DISC)
    {
      this.setAllFieldsFromMessage (objNewMessage);
    }
  else
    {
      this.setAllFieldsFromRecordSet (objNewMessage);
    }

  return;
}

function getExpandCollapse_msg_disc
(
 nViewIndex,
 nActiveThreadID,
 strPageURLToUse
)
{
  var exExpandCollapse = new ASPFExpandCollapse (this,
						 nViewIndex,
						 0,
						 nActiveThreadID,
						 strPageURLToUse);
  var strHTMLout = "";
  strHTMLout += ASPFHTML.FONT_open (config.ADMINSETTING_ExpandCollapseFontSize);
  strHTMLout += exExpandCollapse.getIcon ();
  strHTMLout += ASPFHTML.FONT_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open ();

  delete exExpandCollapse;
  return strHTMLout;
}

function getDHTMLExpandCollapse_msg_disc
(
 nCurrentIndentLevel,
 strPageURLToUse,
 nThreadCounter
)
{
  var exExpandCollapse = new ASPFExpandCollapse (this,
					       0,
					       0,
					       0,
					       strPageURLToUse);
  var strHTMLout = "";
  strHTMLout += ASPFHTML.FONT_open (config.ADMINSETTING_ExpandCollapseFontSize);
  strHTMLout += exExpandCollapse.getDHTMLIcon (nCurrentIndentLevel, nThreadCounter);
  strHTMLout += ASPFHTML.FONT_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open ();

  delete exExpandCollapse;
  return strHTMLout;
}

function getViewEntry_msg_disc
(
 nActiveMessageID
)
{
  var strHTMLout = ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassViewSubject);

  if (nActiveMessageID == this.getMessageID ())
    {
      strHTMLout += this.getSubject ().strong();
    }
  else
    {
      strHTMLout += this.getSubjectLink ().strong();
    }

  strHTMLout += ASPFHTML.SPAN_close ();

  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassViewAuthor);
  strHTMLout += config.USERTEXT_VIEW_SeparateSubjectAuthor;
  strHTMLout += this.getAuthorFullname ().strongSmall();
  strHTMLout += " (";
  strHTMLout += ASPFHTML.QUOTE_open ();
  strHTMLout += ASPFHTML.MAILTO (this.getAuthorEmail (),
				 this.getAuthorName (),
				 this.getAuthorName ());
  strHTMLout += ASPFHTML.QUOTE_close ();
  strHTMLout += ") ";
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassViewDate);
  strHTMLout += config.USERTEXT_VIEW_SeparateAuthorDate;
  strHTMLout += this.getDateCreated ().getShortFormat ();
  strHTMLout += ASPFHTML.SPAN_close ();

  if (this.getNumChildren () == 0)
    {
      strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassViewNoChildren);
      strHTMLout += " (";
      strHTMLout += config.USERTEXT_VIEW_NoRepliesTag;
      strHTMLout += ")";
      strHTMLout += ASPFHTML.SPAN_close ();
    }
  else if (this.getNumChildren () == 1)
    {
      strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassViewOneChild);
      strHTMLout += " (1";
      strHTMLout += config.USERTEXT_VIEW_OneReplyTag;
      strHTMLout += ")";
      strHTMLout += ASPFHTML.SPAN_close ();
    }
  else
    {
      strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassViewManyChildren);
      strHTMLout += " (";
      strHTMLout += this.getNumChildren ();
      strHTMLout += config.USERTEXT_VIEW_ManyRepliesTag;
      strHTMLout += ")";
      strHTMLout += ASPFHTML.SPAN_close ();
    }

  strHTMLout = strHTMLout.weakSmall();

  return strHTMLout;
}

function getSubjectLink_msg_disc
(
)
{
  var strLinkURL = "";
  strLinkURL += config.getShowMessagePagePath ();
  strLinkURL += "?";
  strLinkURL += config.FORM_QueryStringMessageID;
  strLinkURL += "=";
  strLinkURL += this.getMessageID ();

  var strLinkTitle = "";
  strLinkTitle += config.USERTEXT_SHOW_PopupSubjectPrefix;
  strLinkTitle += ASPFHTML.QUOTE_open ();
  strLinkTitle += this.getSubject ().stripAllTags ();
  strLinkTitle += ASPFHTML.QUOTE_close ();

  var strHTMLout = "";

  strHTMLout += ASPFHTML.A_open (strLinkURL,
				 strLinkTitle,
				 undefined_disc,
				 config.ADMINSETTING_ShowMessagePageTarget);
  strHTMLout += this.getSubject ();
  strHTMLout += ASPFHTML.A_close ();

  return strHTMLout;
}

function getSummary_msg_disc
(
)
{
  var dtDateCreated = new Date (this.getDateCreated ());
  var strHTMLout = "";
  strHTMLout += ASPFHTML.LI ();
  strHTMLout += this.getSubjectLink ();
  strHTMLout += config.USERTEXT_VIEW_SeparateSubjectAuthor;
  strHTMLout += this.getAuthorName ();
  strHTMLout += config.USERTEXT_VIEW_SeparateAuthorDate;
  strHTMLout += dtDateCreated.getLongFormat ();
  strHTMLout += ASPFHTML.BLOCKQUOTE_open ();
  strHTMLout += this.getBody ().precis ();
  strHTMLout += ASPFHTML.BLOCKQUOTE_close ();

  return strHTMLout;
}

function sendAdminAlert_msg_disc
(
 strPureSubject,
 strPureBody
)
{
  if ("" != config.ADMINSETTING_EmailAdminAddress)
    {
      var emlAdminEmail;
      emlAdminEmail = new ASPFEmail ();
      emlAdminEmail.setToName (config.ADMINSETTING_EmailAdminName);
      emlAdminEmail.setToAddress (config.ADMINSETTING_EmailAdminAddress);
      emlAdminEmail.setFromName (this.getAuthorFullname ());
      emlAdminEmail.setFromAddress (this.getAuthorEmail ());
      emlAdminEmail.setSubject (config.USERTEXT_MAIL_AdminNewPostSubjectPrefix + " (" + config.ADMINSETTING_ForumName + "): " + strPureSubject.stripAllTags ());
      if (config.ADMINSWITCH_AllowHTMLEmail)
	{
	  var strHTMLBody = "";
	  strHTMLBody += config.USERTEXT_MAIL_AdminNewPostBodyPrefix;
	  strHTMLBody += this.getAuthorFullname ();
	  strHTMLBody += config.USERTEXT_MAIL_AdminNewPostSeparateNameForum;
	  strHTMLBody += config.ADMINSETTING_ForumName;
	  strHTMLBody += ASPFHTML.P_open ();
	  strHTMLBody += this.getSubject ().strong();
	  strHTMLBody += ASPFHTML.P_close ();
	  strHTMLBody += this.getBody ().messageBody();
	  strHTMLBody += ASPFHTML.P_open ();
	  strHTMLBody += ASPFPageElement.getNewReplyButton ();
	  strHTMLBody += ASPFHTML.P_close ();
	  emlAdminEmail.setBody (emlAdminEmail.getHTMLMessageBody (this, config.ADMINSETTING_ForumName, strHTMLBody, config.ADMINSETTING_EmailAlertSignatureHTML));

	  emlAdminEmail.sendHTML ();
	}
      else
	{
	  var strBody = "";
	  strBody += config.USERTEXT_MAIL_AdminNewPostBodyPrefix;
	  strBody += this.getAuthorFullname ();
	  strBody += config.USERTEXT_MAIL_AdminNewPostSeparateNameForum;
	  strBody += config.ADMINSETTING_ForumName;
	  strBody += "\n\n";
	  strBody += strPureBody.stripAllTags ();

	  emlAdminEmail.setBody (strBody);
	  emlAdminEmail.send ();
	}
      delete emlAdminEmail;
    }

  return;
}

function sendUserAlert_msg_disc
(
 strPureSubject,
 strPureBody
)
{
  if ((config.ADMINSWITCH_AllowEmailResponses) && (this.getParentID () != 0))
    {
      var dbDatabase = new ASPFDatabase ();
      var msgParentMessage = dbDatabase.getMessageByID (this.getParentID ());

      if (msgParentMessage != null)
	{
	  if (msgParentMessage.getEmailParentOnResponse ())
	    {
	      var emlUserAlert = new ASPFEmail ();
	      emlUserAlert.setToAddress (msgParentMessage.getAuthorEmail ());
	      emlUserAlert.setToName (msgParentMessage.getAuthorFullname ());
	      emlUserAlert.setFromAddress (config.ADMINSETTING_EmailAlertFromAddress);
	      emlUserAlert.setFromName (config.ADMINSETTING_EmailAlertFromName);
	      emlUserAlert.setSubject (config.USERTEXT_MAIL_UserNewResponseSubjectPrefix + " (" + config.ADMINSETTING_ForumName + "): " + strPureSubject.stripAllTags ());

	      var strSubject = strPureSubject;

	      if ((config.ADMINSWITCH_AllowHTMLEmail)
		  && (config.getUserHTMLMailPreference (msgParentMessage.getAuthorName ())))
		{
		  var strHTMLBody = "";
		  strHTMLBody += this.getAuthorFullname ();
		  strHTMLBody += config.USERTEXT_MAIL_UserNewPostNameSuffix;
		  strHTMLBody += config.USERTEXT_MAIL_UserNewPostMessagePrefix;
		  strHTMLBody += ASPFHTML.P_open () + strSubject.strong() + ASPFHTML.P_close ();
		  strHTMLBody += this.getBody ().messageBody();
		  strHTMLBody += ASPFHTML.P_open ();
		  strHTMLBody += ASPFPageElement.getNewReplyButton ();
		  strHTMLBody += ASPFHTML.P_close ();

		  emlUserAlert.setBody (emlUserAlert.getHTMLMessageBody (this, config.ADMINSETTING_ForumName, strHTMLBody, config.ADMINSETTING_EmailAlertSignatureHTML));

		  emlUserAlert.sendHTML ();
		}
	      else
		{
		  var strBody = "";
		  strBody += this.getAuthorFullname ();
		  strBody += config.USERTEXT_MAIL_UserNewPostSeparateNameMessage;
		  strBody += strSubject;
		  strBody += "\n\n";
		  strBody += config.USERTEXT_MAIL_UserNewPostMessagePrefix;
		  strBody += "\n\n\n";
		  strBody += strSubject;
		  strBody += "\n\n";
		  strBody += strPureBody.stripAllTags ();
		  strBody += "\n";
		  strBody += config.ADMINSETTING_EmailAlertSignature;

		  emlUserAlert.setBody (strBody);
		  emlUserAlert.send ();
		}

	      delete emlUserAlert;
	    }
	}

      delete dbDatabase;
    }

  return;
}

function saveAsNewMessage_msg_disc
(
 strSuccessfulMessage,
 strFailedMessagePrefix
)
{
  var bSuccessful;
  var strPureBody = this.getBody ().purify ();
  var strPureSubject = this.getSubject ().purify ();

  this.normalisePost ();

  var errSuccessOrFailure = this.validatePost ();
  if (errSuccessOrFailure.number == config.CONST_NoError)
    {
      var dbDatabase = new ASPFDatabase ();
      dbDatabase.saveNewRecord (this);

      strSuccessfulMessage.strong ().show ();
      currentMessage_disc = this;
      bSuccessful = true;

      this.sendAdminAlert (strPureSubject, strPureBody);
      this.sendUserAlert (strPureSubject, strPureBody);

      delete dbDatabase;
    }
  else
    {
      strFailedMessagePrefix = strFailedMessagePrefix.paragraph ();
      strFailedMessagePrefix.show ();
      errSuccessOrFailure.description.show ();
      bSuccessful = false;
    }

  delete errSuccessOrFailure;
  return bSuccessful;
}

function saveAsUpdatedMessage_msg_disc
(
 strSuccessfulMessage,
 strFailedMessagePrefix
)
{
  var bSuccessful;
  var strErrorString;

  this.normalisePost();

  var errSuccessOrFailure = this.validatePost ();
  if (errSuccessOrFailure.number == config.CONST_NoError)
    {
      var dbDatabase = new ASPFDatabase ();
      dbDatabase.saveUpdatedRecord (this);

      strSuccessfulMessage = strSuccessfulMessage.paragraph ();
      strSuccessfulMessage.strong ().show();
      bSuccessful = true;

      delete dbDatabase;
    }
  else
    {
      strFailedMessagePrefix = strFailedMessagePrefix.paragraph ();
      strFailedMessagePrefix.show ();
      errSuccessOrFailure.description.show ();
      bSuccessful = false;
    }

  delete errSuccessOrFailure;
  return bSuccessful;
}

function saveUpdatedData_msg_disc
(
)
{
  var dbDatabase = new ASPFDatabase ();
  dbDatabase.saveUpdatedRecord (this);

  delete dbDatabase;
  return;
}

function normalisePost_msg_disc
(
)
{
  this.setThreadID (Number (this.getThreadID ()));
  this.setSortCode (String (this.getSortCode ()).substr (0, config.DATABASE_MaxSortcodeSize));
  this.setParentID (Number (this.getParentID ()));

  this.setEmailParentOnResponse (this.getEmailParentOnResponse ());
  this.setSubject (this.getSubject ().substr (0, config.DATABASE_MaxSubjectSize).formatForStoring ().stripAllTags ());
  this.setBody (this.getBody ().substr (0, config.DATABASE_MaxMessageSize).formatForStoring ());
  this.setAuthorName (this.getAuthorName ().substr (0, config.DATABASE_MaxUsernameSize).formatForStoring ());
  this.setAuthorFullname (this.getAuthorFullname ().substr (0, config.DATABASE_MaxFullnameSize).formatForStoring ());
  this.setAuthorEmail (this.getAuthorEmail ().substr (0, config.DATABASE_MaxEmailAddressSize).formatForStoring ());

  return;
}

function validatePost_msg_disc
(
)
{
  var strErrors = "";
  var bValid = true;

  strErrors += ASPFHTML.UL_open ();
  if (this.getAuthorName () == "")
    {
      strErrors += ASPFHTML.LI ();
      strErrors += config.USERTEXT_POST_ErrorNoUsername;
      bValid = false;
    }

  if (this.getAuthorFullname () == "")
    {
      strErrors += ASPFHTML.LI ();
      strErrors += config.USERTEXT_POST_ErrorNoName;
      bValid = false;
    }

  if (this.getAuthorEmail () == "")
    {
      strErrors += ASPFHTML.LI ();
      strErrors += config.USERTEXT_POST_ErrorNoEmail;
      bValid = false;
    }

  if (this.getSubject () == "")
    {
      strErrors += ASPFHTML.LI ();
      strErrors += config.USERTEXT_POST_ErrorNoSubject;
      bValid = false;
    }

  if (this.getBody () == "")
    {
      strErrors += ASPFHTML.LI ();
      strErrors += config.USERTEXT_POST_ErrorNoBody;
      bValid = false;
    }

  strErrors += ASPFHTML.UL_close ();
  bValid = (bValid ? config.CONST_NoError : config.CONST_Error);

  return new Error (bValid, strErrors);
}

function getRenderedHTML_msg_disc
(
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.TABLE_open (config.ADMINSETTING_TableBorderSize,
				     config.ADMINSETTING_TableFullWidth,
				     undefined_disc,
				     undefined_disc,
				     0,
				     0);


  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassMsgPostedByLabel);
  strHTMLout += config.USERTEXT_SHOW_PostedByPrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassMsgPostedBy);

  var emlUserInfo = new ASPFEmail();
  emlUserInfo.setFromName (this.getAuthorFullname ());
  emlUserInfo.setFromAddress (this.getAuthorEmail ());

  var strUserInfo = "";
  strUserInfo += this.getAuthorName ();
  strUserInfo += " (";
  strUserInfo += ASPFHTML.QUOTE_open ();
  strUserInfo += emlUserInfo.getFromEmailLink ();
  strUserInfo += ASPFHTML.QUOTE_close ();
  strUserInfo += ")";
  delete emlUserInfo;

  strHTMLout += strUserInfo.strong ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableTitleColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassMsgPostedOnLabel);
  strHTMLout += config.USERTEXT_SHOW_PostedOnPrompt.weak ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();

  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_TableFieldColumnWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "bottom");
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassMsgPostedOn);
  strHTMLout += this.getDateCreated ().getLongFormat ().strong ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  2);
  strHTMLout += ASPFHTML.NBSP ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  2);
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassMsgBodyLabel);
  strHTMLout += (config.USERTEXT_SHOW_BodyPrompt + ASPFHTML.BR ()).strong ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.SPAN_open (config.ADMINSETTING_CSSClassMsgBody);
  strHTMLout += this.getBody ().messageBody ();
  strHTMLout += ASPFHTML.SPAN_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();

  strHTMLout += ASPFHTML.TABLE_close ();

  return strHTMLout;
}

ASPFMessage.prototype.getSubject = getSubject_msg_disc;
ASPFMessage.prototype.setSubject = setSubject_msg_disc;
ASPFMessage.prototype.getBody = getBody_msg_disc;
ASPFMessage.prototype.setBody = setBody_msg_disc;
ASPFMessage.prototype.getSortCode = getSortCode_msg_disc;
ASPFMessage.prototype.setSortCode = setSortCode_msg_disc;
ASPFMessage.prototype.getAuthorName = getAuthorName_msg_disc;
ASPFMessage.prototype.setAuthorName = setAuthorName_msg_disc;
ASPFMessage.prototype.getAuthorEmail = getAuthorEmail_msg_disc;
ASPFMessage.prototype.setAuthorEmail = setAuthorEmail_msg_disc;
ASPFMessage.prototype.getAuthorFullname = getAuthorFullname_msg_disc;
ASPFMessage.prototype.setAuthorFullname = setAuthorFullname_msg_disc;
ASPFMessage.prototype.getMessageID = getMessageID_msg_disc;
ASPFMessage.prototype.setMessageID = setMessageID_msg_disc;
ASPFMessage.prototype.getParentID = getParentID_msg_disc;
ASPFMessage.prototype.setParentID = setParentID_msg_disc;
ASPFMessage.prototype.getThreadID = getThreadID_msg_disc;
ASPFMessage.prototype.setThreadID = setThreadID_msg_disc;
ASPFMessage.prototype.getNumChildren = getNumChildren_msg_disc;
ASPFMessage.prototype.setNumChildren = setNumChildren_msg_disc;
ASPFMessage.prototype.getDateCreated = getDateCreated_msg_disc;
ASPFMessage.prototype.setDateCreated = setDateCreated_msg_disc;
ASPFMessage.prototype.getDateModified = getDateModified_msg_disc;
ASPFMessage.prototype.setDateModified = setDateModified_msg_disc;
ASPFMessage.prototype.getEmailParentOnResponse = getEmailParentOnResponse_msg_disc;
ASPFMessage.prototype.setEmailParentOnResponse = setEmailParentOnResponse_msg_disc;

ASPFMessage.prototype.getSummary = getSummary_msg_disc;
ASPFMessage.prototype.getSubjectLink = getSubjectLink_msg_disc;
ASPFMessage.prototype.getViewEntry = getViewEntry_msg_disc;
ASPFMessage.prototype.setAllFieldsEmpty = setAllFieldsEmpty_msg_disc;
ASPFMessage.prototype.setAllFieldsFromForm = setAllFieldsFromForm_msg_disc;
ASPFMessage.prototype.setAllFieldsFromMessage = setAllFieldsFromMessage_msg_disc;
ASPFMessage.prototype.setAllFieldsFromRecordSet = setAllFieldsFromRecordSet_msg_disc;
ASPFMessage.prototype.setAllFields = setAllFields_msg_disc;
ASPFMessage.prototype.getExpandCollapse = getExpandCollapse_msg_disc;
ASPFMessage.prototype.getDHTMLExpandCollapse = getDHTMLExpandCollapse_msg_disc;
ASPFMessage.prototype.sendAdminAlert = sendAdminAlert_msg_disc;
ASPFMessage.prototype.sendUserAlert = sendUserAlert_msg_disc;
ASPFMessage.prototype.saveAsNewMessage = saveAsNewMessage_msg_disc;
ASPFMessage.prototype.saveAsUpdatedMessage = saveAsUpdatedMessage_msg_disc;
ASPFMessage.prototype.saveUpdatedData = saveUpdatedData_msg_disc;
ASPFMessage.prototype.normalisePost = normalisePost_msg_disc;
ASPFMessage.prototype.validatePost = validatePost_msg_disc;
ASPFMessage.prototype.getRenderedHTML = getRenderedHTML_msg_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesserhttp://localhost:800/ASPForums/dev/ General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// PAGE OBJECT
//
// ======================================================================

function ASPFPageElement
(
)
{
  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function showVersion_page_disc
(
)
{
  if (!ASPFPageElement.versionRefOutput)
    {
      var strVersionRef = "";
      strVersionRef += "\n<";
      strVersionRef += "!-- GENERATED BY: ";
      strVersionRef += config.SYS_CurrentVersionReference;
      strVersionRef += ", http://www.aspforums.com/ -->\n";
      strVersionRef.show ();
      ASPFPageElement.versionRefOutput = true;
    }

  return;
}

function setCurrentMessage_page_disc
(
)
{
  if (isUndefined_disc (currentMessage_disc))
    {
      if (!isNaN (Request.QueryString (config.FORM_QueryStringMessageID)))
	{
	  var dbDatabase = new ASPFDatabase ();
	  currentMessage_disc = dbDatabase.getMessageByID (Request.QueryString (config.FORM_QueryStringMessageID));
	  delete dbDatabase;
	}
    }

  return;
}

function showStandardMessage_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  this.showCurrentMessage ();

  this.showForumLink ();

  var strHTMLout = "";
  strHTMLout += ASPFHTML.TABLE_open (config.ADMINSETTING_TableBorderSize);
  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open ();
  strHTMLout.show ();

  this.showNewReplyButton ();

  strHTMLout = ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open ();
  strHTMLout.show ();

  if (config.ADMINSWITCH_ShowNewPostButtonOnMessage == true)
    {
      this.showNewPostButton ();
    }

  strHTMLout = ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open ();
  strHTMLout.show ();

  this.showEditPostButton ();

  strHTMLout = ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();
  strHTMLout += ASPFHTML.TABLE_close ();
  strHTMLout.show ();

  return;
}

function showForumLink_page_disc
(
)
{
  this.showVersion ();

  var strHTMLout = "";
  strHTMLout += ASPFHTML.P_open ();
  strHTMLout += this.getForumLink (config.USERTEXT_POST_ForumLinkPrefix + config.ADMINSETTING_ForumName).weak ();
  strHTMLout += ASPFHTML.P_close ();
  strHTMLout.show ();

  return;
}

function showForumTitle_page_disc
(
)
{
  String (config.ADMINSETTING_ForumName).show ();
  return;
}

function showMessageSubject_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      currentMessage_disc.getSubject ().show ();
    }

  return;
}

function showMessageBody_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      currentMessage_disc.getBody ().show ();
    }

  return;
}

function showMessageAuthorName_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      currentMessage_disc.getAuthorName ().show ();
    }

  return;
}

function showMessageAuthorEmail_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      currentMessage_disc.getAuthorEmail ().show ();
    }

  return;
}

function showMessageAuthorFullname_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      currentMessage_disc.getAuthorFullname ().show ();
    }

  return;
}

function showMessageDateCreated_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      String (currentMessage_disc.getDateCreated ()).show ();
    }

  return;
}

function showMessageDateModified_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      String (currentMessage_disc.getDateModified ()).show ();
    }

  return;
}

function showMessageSortCode_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      currentMessage_disc.getSortCode ().show ();
    }

  return;
}

function showMessageNumChildren_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      String (currentMessage_disc.getNumChildren ()).show ();
    }

  return;
}

function showMessageID_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      String (currentMessage_disc.getMessageID ()).show ();
    }

  return;
}

function showMessageParentID_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      String (currentMessage_disc.getParentID ()).show ();
    }

  return;
}

function showMessageThreadID_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      String (currentMessage_disc.getThreadID ()).show ();
    }

  return;
}

function showParentMessageLink_page_disc
(
)
{
  this.showVersion ();

  var strLink = this.getParentMessageLink (config.USERTEXT_POST_PreviousMessageLinkText);
  strLink.show ();

  return;
}

function showSearchForm_page_disc
(
)
{
  this.showVersion ();

  var frmSearch = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);

  var strHTMLout = "";
  strHTMLout += frmSearch.getSearchForm (config.USERTEXT_SEARCH_SubmitButton);
  strHTMLout.show ();

  delete frmSearch;
  return;
}

function showSmallSearchForm_page_disc
(
)
{
  this.showVersion ();

  var frmSearch = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);

  var strHTMLout = "";
  strHTMLout += frmSearch.getSmallSearchForm (config.USERTEXT_SEARCH_SubmitButton);
  strHTMLout.show ();

  delete frmSearch;
  return;
}

function showNewPostButton_page_disc
(
)
{
  this.showVersion ();

  var strPostButton = "";
  strPostButton += ASPFHTML.FORM_open (config.getNewPostPagePath (),
				       undefined_disc,
				       undefined_disc,
				       config.ADMINSETTING_NewPostPageTarget);
  strPostButton += ASPFHTML.INPUT_submit (config.USERTEXT_SHOW_NewPostButton,
					   config.USERTEXT_SHOW_NewPostButton);
  strPostButton += ASPFHTML.FORM_close ();

  strPostButton.show ();

  return;
}

function showNewPostLink_page_disc
(
)
{
  this.showVersion ();

  var strLink = "";
  strLink += ASPFHTML.A_open (config.getNewPostPagePath (),
			      config.USERTEXT_SHOW_NewPostButton,
			      undefined_disc,
			      config.ADMINSETTING_NewPostPageTarget);
  strLink += config.USERTEXT_SHOW_NewPostButton;
  strLink += ASPFHTML.A_close ();
  strLink.show ();

  return;
}

function showCurrentMessage_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      var strMessageHTML = currentMessage_disc.getRenderedHTML ();
      strMessageHTML.show ();
    }

  return;
}

function showNewReplyButton_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  var strHTMLout = this.getNewReplyButton ();
  strHTMLout.show ();

  return;
}

function showEditPostButton_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (((currentMessage_disc.getAuthorName () == currentUsername_disc)
       && (config.ADMINSWITCH_AllowUserEditing == true))
      || isAdministrator_disc)
    {
      var strEditButton = "";
      strEditButton += ASPFHTML.FORM_open (config.getEditPostPagePath (),
					   undefined_disc,
					   undefined_disc,
					   config.ADMINSETTING_EditPostPageTarget);
      strEditButton += ASPFHTML.INPUT_hidden (config.FORM_FieldMessageID,
					      currentMessage_disc.getMessageID ());
      strEditButton += ASPFHTML.INPUT_submit (config.USERTEXT_SHOW_EditPostButton,
					      config.USERTEXT_SHOW_EditPostButton);
      strEditButton += ASPFHTML.FORM_close ();

      strEditButton.show ();
    }

  return;
}

function showAllThreads_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  var thdCurrentThread = new ASPFThread (0);
  var strHTMLout = thdCurrentThread.getAllSorted (config.ADMINSWITCH_ViewPostsAscending);
  strHTMLout.show ();

  delete thdCurrentThread;
  return;
}

function showCurrentThreadsStatic_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  var nCurrentMessageID = isUndefined_disc (currentMessage_disc) ? 0 : currentMessage_disc.getMessageID ();

  var thdCurrentThread = new ASPFThread (nCurrentMessageID);
  var strHTMLout = thdCurrentThread.getCurrentSorted (config.ADMINSWITCH_ViewPostsAscending);
  strHTMLout.show ();

  delete thdCurrentThread;
  return;
}

function showCurrentThreads_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  var bExpandTokensPresent = isUndefined_disc (String (Request.QueryString (config.FORM_QueryStringViewExpand))) ? false : true;
  var bCollapseTokensPresent = isUndefined_disc (String (Request.QueryString (config.FORM_QueryStringViewCollapse))) ? false : true;
  var nCurrentMessageID = isUndefined_disc (currentMessage_disc) ? 0 : currentMessage_disc.getMessageID ();

  var thdCurrentThread = new ASPFThread (nCurrentMessageID);
  var strHTMLout = "";
  if ((bExpandTokensPresent) || (bCollapseTokensPresent))
    {
      strHTMLout = thdCurrentThread.getCurrentSorted (config.ADMINSWITCH_ViewPostsAscending);
    }
  else
    {
      strHTMLout = thdCurrentThread.getCurrentSortedDHTML (config.ADMINSWITCH_ViewPostsAscending);
    }
  strHTMLout.show ();

  delete thdCurrentThread;
  return;
}

function showNewPostForm_page_disc
(
)
{
  this.showVersion ();

  var frmNewMessageForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var strSubject = frmNewMessageForm.getSubject ().unformatFromStoring ();

  if ((strSubject != "")
      && (frmNewMessageForm.getThreadID () != "")
      && (strSubject.substring(0, config.USERTEXT_POST_ReplySubjectPrefix.length)
	  != config.USERTEXT_POST_ReplySubjectPrefix))
    {
      frmNewMessageForm.setSubject (config.USERTEXT_POST_ReplySubjectPrefix + strSubject);
    }
  else
    {
      frmNewMessageForm.setSubject (strSubject);
    }

  var strHTMLout = "";
  strHTMLout += frmNewMessageForm.getMessageForm (config.getNewPostActionPagePath (),
						  config.USERTEXT_POST_SubmitButton,
						  config.ADMINSETTING_NewPostActionPageTarget);
  strHTMLout.show ();

  delete frmNewMessageForm;
  return;
}

function showEditPostForm_page_disc
(
)
{
  this.showVersion ();

  var frmEditMessageForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var dbDatabase = new ASPFDatabase ();

  var msgMessageToEdit = dbDatabase.getMessageByID (frmEditMessageForm.getMessageID ());
  frmEditMessageForm.setAllFields (msgMessageToEdit, ASPF_MESSAGE_OBJECT_TYPE_DISC);

  var strHTMLout = "";
  if ((frmEditMessageForm.getAuthorName () == currentUsername_disc) || isAdministrator_disc)
    {
      strHTMLout += frmEditMessageForm.getMessageForm (config.getEditPostActionPagePath (),
						       config.USERTEXT_POST_SaveChangesButton,
						       config.ADMINSETTING_EditPostActionPageTarget);
    }
  else
    {
      strHTMLout += config.USERTEXT_POST_NotAuthorisedToEditMessage.weak ();
    }
  strHTMLout.show ();

  delete frmEditMessageForm;
  delete dbDatabase;
  delete msgMessageToEdit;
  return;
}

function showCurrentThread_page_disc
(
)
{
  this.showVersion ();
  this.setCurrentMessage ();

  if (isDefined_disc (currentMessage_disc))
    {
      var thdExpandedThread = new ASPFThread (currentMessage_disc.getMessageID ());
      var strHTMLout = thdExpandedThread.getFullThread (currentMessage_disc.getThreadID ());
      strHTMLout.show ();
      delete thdExpandedThread;
    }

  return;
}

function showArchive_page_disc
(
)
{
  this.showVersion ();

  this.showArchiveSelector ();
  this.actionShowArchive ();

  return;
}

function showArchiveSelector_page_disc
(
)
{
  var frmArchiveForm = new ASPFForm (Request.QueryString, ASPF_FORM_OBJECT_TYPE_DISC);
  var strHTMLout = frmArchiveForm.getArchiveSelector ();
  strHTMLout.show ();

  return;
}

function showAdminSQLForm_page_disc
(
)
{
  this.showVersion ();

  var strHTMLout = "";
  strHTMLout += ASPFHTML.P_open ();
  strHTMLout += config.USERTEXT_SQL_EnterPrompt;
  strHTMLout += ASPFHTML.P_close ();

  var frmAdminForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  strHTMLout += frmAdminForm.getAdminForm ();
  strHTMLout.show ();

  delete frmAdminForm;
  return;
}

function actionSaveNewMessage_page_disc
(
)
{
  var frmNewMessageForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var msgNewMessage = new ASPFMessage (frmNewMessageForm, ASPF_FORM_OBJECT_TYPE_DISC);

  if (!msgNewMessage.saveAsNewMessage (config.USERTEXT_POST_PostSuccessful,
				       config.USERTEXT_POST_PostFailedPrefix))
    {
      var strHTMLout = frmNewMessageForm.getMessageForm (config.getNewPostActionPagePath (),
							 config.USERTEXT_POST_SubmitButton,
							 config.ADMINSETTING_NewPostActionPageTarget);
      strHTMLout.show ();
    }

  currentMessage_disc = msgNewMessage;

  delete frmNewMessageForm;
  return;
}

function actionSaveUpdatedMessage_page_disc
(
)
{
  var frmNewMessageForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var msgNewMessage = new ASPFMessage (frmNewMessageForm, ASPF_FORM_OBJECT_TYPE_DISC);

  if (!msgNewMessage.saveAsUpdatedMessage (config.USERTEXT_POST_UpdateSuccessful,
					   config.USERTEXT_POST_UpdateFailedPrefix))
    {
      var strHTMLout = frmNewMessageForm.getMessageForm (config.getEditPostActionPagePath (),
							 config.USERTEXT_POST_SaveChangesButton,
							 config.ADMINSETTING_EditPostActionPageTarget);
      strHTMLout.show ();
    }

  currentMessage_disc = msgNewMessage;

  delete frmNewMessageForm;
  return;
}

function actionSearch_page_disc
(
)
{
  var frmSearchForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var strSearchString = frmSearchForm.getSearchString ();

  if ("" != strSearchString)
    {
      var strHTMLout = "";
      var dbDatabase = new ASPFDatabase ();
      var rsFoundMessages = dbDatabase.searchForum (strSearchString);

      strHTMLout += config.USERTEXT_SEARCH_ResultsHeader1;
      strHTMLout += (ASPFHTML.QUOTE_open () + strSearchString + ASPFHTML.QUOTE_close ()).strong();
      strHTMLout += config.USERTEXT_SEARCH_ResultsHeader2;
      strHTMLout += String (rsFoundMessages.RecordCount).strong();

      if (rsFoundMessages.RecordCount == 0)
	{
	  strHTMLout += config.USERTEXT_SEARCH_ResultsHeaderSuffix0Match;
	  strHTMLout += ASPFHTML.BR ();
	}
      else
	{
	  if (rsFoundMessages.RecordCount == 1)
	    {
	      strHTMLout += config.USERTEXT_SEARCH_ResultsHeaderSuffix1Match;
	      strHTMLout += ASPFHTML.BR ();
	    }
	  else
	    {
	      strHTMLout += config.USERTEXT_SEARCH_ResultsHeaderSuffixManyMatches;
	      strHTMLout += ASPFHTML.BR ();
	    }
	}

      if (!rsFoundMessages.EOF)
	{
	  var msgCurrentMessage;

	  rsFoundMessages.MoveFirst ();
	  strHTMLout += ASPFHTML.OL_open ();

	  while (!rsFoundMessages.EOF)
	    {
	      msgCurrentMessage = new ASPFMessage (rsFoundMessages,
						   ASPF_RECORDSET_OBJECT_TYPE_DISC);

	      strHTMLout += msgCurrentMessage.getSummary ();

	      rsFoundMessages.MoveNext ();

	      delete msgCurrentMessage;
	    }
	  strHTMLout += ASPFHTML.OL_close ();
	}

      strHTMLout.show();
      rsFoundMessages.Close ();

      delete rsFoundMessages;
      delete dbDatabase;
    }

  delete frmSearchForm;
  return;
}

function actionExecuteAdminSQL_page_disc
(
)
{
  var strHTMLout = "";
  var frmSQLForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var strSQL = String (frmSQLForm.getSQLStatement ());

  if (strSQL != "")
    {
      var dbDatabase = new ASPFDatabase ();
      var cnDBConnection = dbDatabase.getOpenDatabaseConnection ();
      var rsReturnedRecords;

      rsReturnedRecords = dbDatabase.getAdminSQLResults (cnDBConnection, strSQL);
      strHTMLout += ASPFHTML.TABLE_open (config.ADMINSETTING_TableBorderSize,
					 "100%",
					 "#FFFFFF");
      strHTMLout += ASPFHTML.TR_open ();
      strHTMLout += ASPFHTML.TD_open ();
      strHTMLout += (config.USERTEXT_SQL_ResultsPrefix + ASPFHTML.prototype.BR ()).strong ();
      strHTMLout += config.USERTEXT_SQL_StatementPrefix.weak ();
      strHTMLout += String (strSQL).strongSmall ();
      strHTMLout += ASPFHTML.BR ();

      strHTMLout += ASPFHTML.TD_close ();
      strHTMLout += ASPFHTML.TR_close ();
      strHTMLout += ASPFHTML.TR_open ();
      strHTMLout += ASPFHTML.TD_open ();

      strHTMLout += this.formatAdminSQLResults (strSQL, rsReturnedRecords);

      strHTMLout += dbDatabase.getConnectionErrors (cnDBConnection).formatForStoring ();

      strHTMLout += ASPFHTML.TD_close ();
      strHTMLout += ASPFHTML.TR_close ();
      strHTMLout += ASPFHTML.TABLE_close ();

      delete dbDatabase;
      delete rsReturnedRecords;
    }

  var nMessageIDToDelete = String (frmSQLForm.getMessageIDToDelete ());
  if (nMessageIDToDelete != "")
    {
      if (0 != Number (nMessageIDToDelete))
	{
	  var dbDeleteDBase = new ASPFDatabase ();
	  dbDeleteDBase.deleteMessageHierarchy (nMessageIDToDelete).show ();
	  delete dbDeleteDBase;
	}
    }

  var bPurgeCache = frmSQLForm.getPurgeCache ();
  if (bPurgeCache)
    {
      var cchCurrentCache = new ASPFCache ();
      cchCurrentCache.purge ();
      delete cchCurrentCache;
    }

  strHTMLout.show ();

  delete frmSQLForm;
  return;
}

function actionShowArchive_page_disc
(
)
{
  var frmArchiveForm = new ASPFForm (Request.QueryString, ASPF_FORM_OBJECT_TYPE_DISC);
  var dtArchiveDate = archiveForm.getArchiveDate ();

  if (isDefined_disc (dtArchiveDate))
    {
      var bExpandTokensPresent = isUndefined_disc (String (Request.QueryString (config.FORM_QueryStringViewExpand))) ? false : true;
      var bCollapseTokensPresent = isUndefined_disc (String (Request.QueryString (config.FORM_QueryStringViewCollapse))) ? false : true;

      var thdCurrentThread = new ASPFThread ();
      var strHTMLout = "";
      if ((bExpandTokensPresent) || (bCollapseTokensPresent))
	{
	  strHTMLout += thdCurrentThread.getArchiveSorted (dtArchiveDate,
							   config.ADMINSWITCH_ViewPostsAscending);
	}
      else
	{
	  strHTMLout += thdCurrentThread.getArchiveSortedDHTML (dtArchiveDate,
								config.ADMINSWITCH_ViewPostsAscending);
	}
      strHTMLout.show ();

      delete thdCurrentThread;
    }

  return;
}

// -
// Private 'get' routines
//

function getForumLink_page_disc
(
 strTextToUse
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.A_open (config.getMainPagePreferredPath (),
				 config.ADMINSETTING_ForumName,
				 undefined_disc,
				 config.ADMINSETTING_TopPageTarget);
  strHTMLout += strTextToUse;
  strHTMLout += ASPFHTML.A_close ();

  return strHTMLout;
}

function getParentMessageLink_page_disc
(
 strTextToUse
)
{
  var strHTMLout = "";
  var frmMessageForm = new ASPFForm (Request.Form, ASPF_FORM_OBJECT_TYPE_DISC);
  var nParentID = frmMessageForm.getParentID ();
  if (nParentID != 0)
    {
      strHTMLout += ASPFHTML.P_open ();
      strHTMLout += ASPFHTML.A_open (config.getShowMessagePagePath ()
				     + "?"
				     + config.FORM_QueryStringMessageID
				     + "="
				     + nParentID,
				     strTextToUse,
				     undefined_disc,
				     config.ADMINSETTING_ShowMessagePageTarget);
      strHTMLout += strTextToUse.weak ();
      strHTMLout += ASPFHTML.A_close ();
      strHTMLout += ASPFHTML.P_close ();
    }

  delete frmMessageForm;
  return strHTMLout;
}

function formatAdminSQLResults_page_disc
(
 strSQL,
 rsRecordSet
)
{
  var strHTMLout = "";

  if (String (strSQL).search(/select/gi) > -1)
    {
      strHTMLout += ASPFHTML.TABLE_open (2, undefined_disc, "#FFFFFF");
      strHTMLout += ASPFHTML.TR_open ();

      var nCounter;
      var nNumRecordFields = rsRecordSet.fields.count - 1;
      for (nCounter = 0; nCounter < nNumRecordFields; nCounter++)
	{
	  strHTMLout += ASPFHTML.TH_open (undefined_disc, "left", undefined_disc, true);
	  strHTMLout += String (rsRecordSet (nCounter).name).strong();
	  strHTMLout += ASPFHTML.TH_close ();
	}
      strHTMLout += ASPFHTML.TR_close ();

      while (!rsRecordSet.EOF)
	{
	  strHTMLout += ASPFHTML.TR_open ();

	  for (nCounter = 0; nCounter < nNumRecordFields; nCounter++)
	    {
	      strHTMLout += ASPFHTML.TD_open (undefined_disc,
					      undefined_disc,
					      undefined_disc,
					      undefined_disc,
					      undefined_disc,
					      undefined_disc,
					      true);
	      strHTMLout += rsRecordSet.Fields (nCounter).value;
	      strHTMLout += ASPFHTML.TD_close ();
	    }

	  strHTMLout += ASPFHTML.TR_close ();
	  rsRecordSet.MoveNext ();
	}

      strHTMLout += ASPFHTML.TABLE_close ();
    }

  return strHTMLout;
}

function getNewReplyButton_page_disc
(
)
{
  this.setCurrentMessage ();

  return this.getNewReplyButtonWithTextAndMessage (config.USERTEXT_SHOW_ReplyPostButton,
						   currentMessage_disc);
}

function getNewReplyButtonWithTextAndMessage_page_disc
(
 strButtonText,
 msgMessage
)
{
  this.setCurrentMessage ();

  var strHTMLout = "";

  if (isDefined_disc (msgMessage))
    {
      strHTMLout += ASPFHTML.FORM_open (config.getNewPostPagePath (),
					undefined_disc,
					undefined_disc,
					config.ADMINSETTING_NewPostPageTarget);
      strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldParentID, msgMessage.getMessageID ());
      strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldThreadID, msgMessage.getThreadID ());
      strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldSortCode, msgMessage.getSortCode ());
      strHTMLout += ASPFHTML.INPUT_hidden (config.FORM_FieldSubject, msgMessage.getSubject ());
      strHTMLout += ASPFHTML.INPUT_submit (strButtonText, strButtonText);
      strHTMLout += ASPFHTML.FORM_close ();
    }

  return strHTMLout;
}

function doNothing_page_disc
(
)
{
  return;
}

ASPFPageElement.versionRefOutput = false;

ASPFPageElement.showVersion = showVersion_page_disc;
ASPFPageElement.setCurrentMessage = setCurrentMessage_page_disc;
ASPFPageElement.showStandardMessage = showStandardMessage_page_disc;
ASPFPageElement.showForumLink = showForumLink_page_disc;
ASPFPageElement.showForumTitle = showForumTitle_page_disc;

ASPFPageElement.showMessageSubject = showMessageSubject_page_disc;
ASPFPageElement.showMessageBody = showMessageBody_page_disc;
ASPFPageElement.showMessageAuthorName = showMessageAuthorName_page_disc;
ASPFPageElement.showMessageAuthorEmail = showMessageAuthorEmail_page_disc;
ASPFPageElement.showMessageAuthorFullname = showMessageAuthorFullname_page_disc;
ASPFPageElement.showMessageDateCreated = showMessageDateCreated_page_disc;
ASPFPageElement.showMessageDateModified = showMessageDateModified_page_disc;
ASPFPageElement.showMessageSortCode = showMessageSortCode_page_disc;
ASPFPageElement.showMessageNumChildren = showMessageNumChildren_page_disc;
ASPFPageElement.showMessageID = showMessageID_page_disc;
ASPFPageElement.showMessageParentID = showMessageParentID_page_disc;
ASPFPageElement.showMessageThreadID = showMessageThreadID_page_disc;

ASPFPageElement.showParentMessageLink = showParentMessageLink_page_disc;
ASPFPageElement.showSearchForm = showSearchForm_page_disc;
ASPFPageElement.showSmallSearchForm = showSmallSearchForm_page_disc;
ASPFPageElement.showNewPostButton = showNewPostButton_page_disc;
ASPFPageElement.showNewPostLink = showNewPostLink_page_disc;
ASPFPageElement.showCurrentMessage = showCurrentMessage_page_disc;
ASPFPageElement.showNewReplyButton = showNewReplyButton_page_disc;
ASPFPageElement.showEditPostButton = showEditPostButton_page_disc;
ASPFPageElement.showAllThreads = showAllThreads_page_disc;
ASPFPageElement.showCurrentThreadsStatic = showCurrentThreadsStatic_page_disc;
ASPFPageElement.showCurrentThreads = showCurrentThreads_page_disc;
ASPFPageElement.showNewPostForm = showNewPostForm_page_disc;
ASPFPageElement.showEditPostForm = showEditPostForm_page_disc;
ASPFPageElement.showCurrentThread = showCurrentThread_page_disc;
ASPFPageElement.showArchive = showArchive_page_disc;
ASPFPageElement.showArchiveSelector = showArchiveSelector_page_disc;
ASPFPageElement.showAdminSQLForm = showAdminSQLForm_page_disc;

ASPFPageElement.actionSaveUpdatedMessage = actionSaveUpdatedMessage_page_disc;
ASPFPageElement.actionSaveNewMessage = actionSaveNewMessage_page_disc;
ASPFPageElement.actionSearch = actionSearch_page_disc;
ASPFPageElement.actionExecuteAdminSQL = actionExecuteAdminSQL_page_disc;
ASPFPageElement.actionShowArchive = actionShowArchive_page_disc;

ASPFPageElement.getForumLink = getForumLink_page_disc;
ASPFPageElement.getParentMessageLink = getParentMessageLink_page_disc;
ASPFPageElement.formatAdminSQLResults = formatAdminSQLResults_page_disc;
ASPFPageElement.getNewReplyButton = getNewReplyButton_page_disc;
ASPFPageElement.getNewReplyButtonWithTextAndMessage = getNewReplyButtonWithTextAndMessage_page_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// STRING OBJECT ADDITIONS
//
// ======================================================================

// ======================================================================
//
// Main object additions.
//
// ======================================================================

function strong_str_disc
(
)
{
  return ASPFHTML.FONT_open () + ASPFHTML.STRONG_open () + this + ASPFHTML.STRONG_close () + ASPFHTML.FONT_close ();
}

function strongBig_str_disc
(
)
{
  return ASPFHTML.FONT_open ("+1") + ASPFHTML.STRONG_open () + this + ASPFHTML.STRONG_close () + ASPFHTML.FONT_close ();
}

function strongSmall_str_disc
(
)
{
  return ASPFHTML.FONT_open ("-1") + ASPFHTML.STRONG_open () + this + ASPFHTML.STRONG_close () + ASPFHTML.FONT_close ();
}

function weak_str_disc
(
)
{
  return ASPFHTML.FONT_open () + this + ASPFHTML.FONT_close ();
}

function weakBig_str_disc
(
)
{
  return ASPFHTML.FONT_open ("+1") + this + ASPFHTML.FONT_close ();
}

function weakSmall_str_disc
(
)
{
  return ASPFHTML.FONT_open ("-1") + this + ASPFHTML.FONT_close ();
}

function messageBody_str_disc
(
)
{
  return ASPFHTML.BLOCKQUOTE_open () + this + ASPFHTML.BLOCKQUOTE_close ();
}

function paragraph_str_disc
(
)
{
  return ASPFHTML.P_open () + this + ASPFHTML.P_close ();
}

function show_str_disc
(
)
{
  Response.Write (this);
}

function formatForURL_str_disc
(
)
{
  var strWorkingText = this;
  strWorkingText = strWorkingText.replace (/\ /gi, "%20");
  strWorkingText = strWorkingText.replace (/\\/gi, "/");

  return strWorkingText;
}

function safeFormat_str_disc
(
)
{
  var strWorkingText = this;

  strWorkingText = Server.HTMLEncode (strWorkingText);
  strWorkingText = strWorkingText.replace (/\'/gi, "&#146;");
  strWorkingText = strWorkingText.replace (/\"/gi, "&quot;");
  strWorkingText = strWorkingText.replace (/\n/gi, " ");
  strWorkingText = strWorkingText.replace (/\r/gi, " ");

  return strWorkingText;
}

function javascriptSafeFormat_str_disc
(
)
{
  var strWorkingText = this;

  strWorkingText = strWorkingText.replace (/\"/gi, "\\\"");
  strWorkingText = strWorkingText.replace (/\n/gi, " ");
  strWorkingText = strWorkingText.replace (/\r/gi, " ");

  return strWorkingText;
}

function HTMLiseLinefeeds_str_disc
(
)
{
  var strWorkingText = this;

  strWorkingText = strWorkingText.replace (/\r\n\r\n/gi, "</P><P>");
  strWorkingText = strWorkingText.replace (/\n/gi, "<BR>");
  strWorkingText = strWorkingText.replace (/\r/gi, "");

  return strWorkingText;
}

function purify_str_disc
(
)
{
  var strWorkingText = this;

  //To filter words you would change "replace-me" to be a string you wanted to filter.
  //strWorkingText = strWorkingText.replace (/replace-me/gi, "**********");
  //strWorkingText = strWorkingText.replace (/replace-me-too/gi, "****");

  return strWorkingText;
}

function formatForStoring_str_disc
(
)
{
  var strWorkingText = this.purify();

  if (!config.ADMINSWITCH_AllowRichFormatting)
    {
      strWorkingText = strWorkingText.stripAllTags ();
    }

  strWorkingText = strWorkingText.replace (/\r\n\r\n/gi, ASPFHTML.P_open () + ASPFHTML.P_close ());
  strWorkingText = strWorkingText.removeMaliciousTags ();
  strWorkingText = strWorkingText.convertComplexTags ();
  strWorkingText = strWorkingText.fixBrokenTags ();

  return strWorkingText;
}

function unformatFromStoring_str_disc
(
)
{
  var strWorkingText = this;

  strWorkingText = strWorkingText.replace (/\<P[^\>]*\>/gi, "\n");
  strWorkingText = strWorkingText.replace (/\<\/P[^\>]\>/gi, "\n");
  strWorkingText = strWorkingText.replace (/\<BR[^\>]*\>/gi, "\n");
  strWorkingText = strWorkingText.replace (/\&amp\;/gi, "&");
  strWorkingText = strWorkingText.replace (/\"/gi, "&quot;");

  return strWorkingText;
}

function removeMaliciousTags_str_disc
(
)
{
  var strWorkingText = this;
  strWorkingText = strWorkingText.replace (/\<\s*SCRIPT[^\\>]*\>/gi, " ");
  strWorkingText = strWorkingText.replace (/\<\s*META[^\\>]*\>/gi, " ");
  strWorkingText = strWorkingText.replace (/\<\s*\/?\s*BODY[^\\>]*\>/gi, " ");
  strWorkingText = strWorkingText.replace (/\<\s*\/?\s*HTML[^\\>]*\>/gi, " ");

  var reJSEvents = new RegExp ("\\<[^\\>]*("
			       + config.SYS_AllJavascriptEvents
			       + ")[^\\>]*\\>", "gi");
  strWorkingText = strWorkingText.replace (reJSEvents, " ");

  return strWorkingText;
}

function fixBrokenTags_str_disc
(
)
{
  var strWorkingText = this;

  strWorkingText = strWorkingText.fixTag ("b");
  strWorkingText = strWorkingText.fixTag ("i");
  strWorkingText = strWorkingText.fixTag ("u");
  strWorkingText = strWorkingText.fixTag ("ul");
  strWorkingText = strWorkingText.fixTag ("ol");
  strWorkingText = strWorkingText.fixTag ("font");
  strWorkingText = strWorkingText.fixTag ("h1");
  strWorkingText = strWorkingText.fixTag ("h2");
  strWorkingText = strWorkingText.fixTag ("h3");
  strWorkingText = strWorkingText.fixTag ("h4");
  strWorkingText = strWorkingText.fixTag ("h5");
  strWorkingText = strWorkingText.fixTag ("h6");
  strWorkingText = strWorkingText.fixTag ("table");
  strWorkingText = strWorkingText.fixTag ("tr");
  strWorkingText = strWorkingText.fixTag ("th");
  strWorkingText = strWorkingText.fixTag ("td");

  return strWorkingText;
}

function fixTag_str_disc
(
 strTag
)
{
  var reOpenTag = new RegExp ("\<" + strTag + "\>", "gi");
  var reCloseTag = new RegExp ("\\<\\s*\\/\\s*" + strTag + "[^a-zA-Z0-9][^\\>]*\\>", "gi");
  var nTagDifference = this.countTags (reOpenTag) - this.countTags (reCloseTag);
  var strAdditionalTags = "";

  if (nTagDifference > 0)
    {
      for (var nCounter = 0; nCounter < nTagDifference; nCounter++)
	{
	  strAdditionalTags += "</" + strTag + " HTMLFixup>";
	}
    }

  delete reOpenTag;
  delete reCloseTag;
  return this + strAdditionalTags;
}

function countTags_str_disc
(
 strTag
)
{
  var nCounter = 0;
  var strWorkingText = this;
  var nFoundAt = strWorkingText.search (strTag);

  while (nFoundAt != -1)
    {
      nCounter += 1;
      strWorkingText = strWorkingText.substr (nFoundAt + 1, strWorkingText.length - nFoundAt + 1);

      nFoundAt = strWorkingText.search (strTag);
    }

  return nCounter;
}

function convertComplexTags_str_disc
(
)
{
  var strWorkingText = this;
  var strNewText = "";
  var nStartAt = strWorkingText.search ("<");
  var nEndAt = strWorkingText.search (">") + 1;
  var nLinkAt = strWorkingText.search (this.PROTOCOLS_RX_DISC);
  this.inLink = false;

  while ((nStartAt != -1) || (nLinkAt != -1))
    {
      if (((nLinkAt < nStartAt) || (nStartAt == -1)) && (nLinkAt >= 0) && (!this.inLink))
	{
	  strNewText += strWorkingText.substring (0, nLinkAt);
	  var strURL = strWorkingText.substr (nLinkAt);
	  var strURLEnd =  new RegExp (this.END_OF_URL_RX_DISC, "gi");
	  nEndAt = strURL.search (strURLEnd);
	  nEndAt = (nEndAt == -1 ? strURL.length : nEndAt);
	  var strLinkText = strWorkingText.substring (nLinkAt, nLinkAt + nEndAt);
	  strLinkText = strLinkText.stripAllTags ();
	  strLinkText = strLinkText.protocolise ();
	  strNewText += ASPFHTML.A_open (strLinkText,
					 config.USERTEXT_STRING_WarningUnverifiedLink,
					 undefined_disc,
					 config.ADMINSETTING_DefaultEmbeddedLinkTarget);
	  strNewText += strLinkText;
	  strNewText += ASPFHTML.A_close ();
	  strWorkingText = strURL.substr (nEndAt);
	}
      else
	{
	  strNewText += strWorkingText.substring (0, nStartAt);
	  strNewText += strWorkingText.substring (nStartAt, nEndAt).sanitiseTag ();
	  strWorkingText = strWorkingText.substr (nEndAt);
	}

      nStartAt = strWorkingText.search ("<");
      nEndAt = strWorkingText.search (">") + 1;
      nLinkAt = strWorkingText.search (this.PROTOCOLS_RX_DISC);
    }

  return strNewText + strWorkingText;
}

function sanitiseTag_str_disc
(
)
{
  var strTag = new ASPFHTML (this);

  if (strTag.isLinkOpen ())
    {
      this.inLink = true;
    }
  else if (strTag.isLinkClose ())
    {
      this.inLink = false;
    }

  return strTag.sanitise ();
}

function getAttribute_str_disc
(
 strAttributeName
)
{
  var strAttributeValue;
  var reAttrib = new RegExp (strAttributeName + "\s*=\s*", "i");
  var nFoundAt = this.search (reAttrib);

  if (nFoundAt > -1)
    {
      var strSubtag = this.substr (nFoundAt);
      var nTagStart = strSubtag.search ("=");
      strSubtag = strSubtag.substr (nTagStart + 1);

      var nCharCount = 0;
      while ((nCharCount < strSubtag.length) && (strSubtag.charAt (nCharCount) == " "))
	{
	  nCharCount++;
	}

      var bQuoted = false;
      var strQuoteUsed = "";
      if ((strSubtag.charAt (nCharCount) == "\"") || (strSubtag.charAt (nCharCount) == "'"))
	{
	  bQuoted = true;
	  strQuoteUsed = strSubtag.charAt (nCharCount);
	  nCharCount += 1
	}

      strSubtag = strSubtag.substr (nCharCount);

      var strAttribEndMarker = "\\s";
      if (bQuoted == true)
	{
	  strAttribEndMarker = strQuoteUsed;
	}

      var nAttribEnd = strSubtag.search (strAttribEndMarker);

      strAttributeValue = strSubtag.substr (0, nAttribEnd);

      if (strAttributeValue == "")
	{
	  strAttributeValue = undefined_disc;
	}
    }

  return strAttributeValue;
}

function protocolise_str_disc
(
)
{
  var strProtocolisedVersion = "";

  var strProtocol = this.substr (0, this.indexOf ("//"));

  switch (strProtocol)
    {
    case "file:":
    case "ftp:":
    case "gopher:":
    case "http:":
    case "https:":
    case "mailto:":
    case "news:":
    case "telnet:":
    case "wais:":
      strProtocolisedVersion = this;
      break;

    default:
      strProtocolisedVersion = "http://" + this;
      break;
    }

  return strProtocolisedVersion;
}

function precis_str_disc
(
)
{
  var strPrecisString = this;

  if (strPrecisString.length > config.ADMINSETTING_PrecisLength)
    {
      strPrecisString = strPrecisString.substr (0, config.ADMINSETTING_PrecisLength)
	+ config.USERTEXT_STRING_StringTruncatedSuffix;
    }

  strPrecisString = strPrecisString.replace (/\<[^\\>]*\>/gi, " ");

  if (strPrecisString.lastIndexOf (">") < strPrecisString.lastIndexOf ("<"))
    {
      strPrecisString = strPrecisString.substr (0, strPrecisString.lastIndexOf ("<"));
    }

  return strPrecisString;
}

function stripAllTags_str_disc
(
)
{
  var strTextWithoutHTML = this;
  strTextWithoutHTML = strTextWithoutHTML.replace (/<[^>]*>/gi, " ");
  strTextWithoutHTML = strTextWithoutHTML.replace (/&nbsp;/gi, " ");
  strTextWithoutHTML = strTextWithoutHTML.replace (/&amp;/gi, "&");
  strTextWithoutHTML = strTextWithoutHTML.replace (/&#145;/gi, "'");
  strTextWithoutHTML = strTextWithoutHTML.replace (/&#146;/gi, "'");

  return strTextWithoutHTML;
}

String.prototype.PROTOCOLS_RX_DISC = "(http://)|(www\\.)|(ftp://)|(https://)|(gopher://)|(file://)|(mailto:)|(news:)|(telnet:)|(wais:)";
String.prototype.END_OF_URL_RX_DISC = "[^A-Za-z0-9\.:;,=~@_&\\/\\?\\!\\+\\$\\{\\}\\-\\\"]";

String.prototype.strong = strong_str_disc;
String.prototype.strongBig = strongBig_str_disc;
String.prototype.strongSmall = strongSmall_str_disc;
String.prototype.weak = weak_str_disc;
String.prototype.weakBig = weakBig_str_disc;
String.prototype.weakSmall = weakSmall_str_disc;
String.prototype.messageBody = messageBody_str_disc;
String.prototype.paragraph = paragraph_str_disc;
String.prototype.show = show_str_disc;
String.prototype.formatForURL = formatForURL_str_disc;
String.prototype.safeFormat = safeFormat_str_disc;
String.prototype.javascriptSafeFormat = javascriptSafeFormat_str_disc;
String.prototype.HTMLiseLinefeeds = HTMLiseLinefeeds_str_disc;
String.prototype.purify = purify_str_disc;
String.prototype.formatForStoring = formatForStoring_str_disc;
String.prototype.unformatFromStoring = unformatFromStoring_str_disc;
String.prototype.removeMaliciousTags = removeMaliciousTags_str_disc;
String.prototype.fixBrokenTags = fixBrokenTags_str_disc;
String.prototype.fixTag = fixTag_str_disc;
String.prototype.countTags = countTags_str_disc;
String.prototype.convertComplexTags = convertComplexTags_str_disc;
String.prototype.sanitiseTag = sanitiseTag_str_disc;
String.prototype.getAttribute = getAttribute_str_disc;
String.prototype.protocolise = protocolise_str_disc;
String.prototype.precis = precis_str_disc;
String.prototype.stripAllTags = stripAllTags_str_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// TEXTCONTROL OBJECT
//
// ======================================================================

function ASPFTextControl
(
 strName,
 strContents,
 strFormName
)
{
  this.setName (strName);

  if (isDefined_disc (strContents))
    {
      this.setContents (strContents);
    }
  else
    {
      this.setContents ("");
    }

  if (isDefined_disc (strFormName))
    {
      this.setFormName (strFormName);
    }
  else
    {
      this.setFormName ("ASPF");
    }

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getName_txt_disc
(
)
{
  return String (this._controlName);
}

function setName_txt_disc
(
 strNewName
)
{
  this._controlName = String (strNewName);
  return;
}

function getContents_txt_disc
(
)
{
  return String (this._contents);
}

function setContents_txt_disc
(
 strNewContents
)
{
  this._contents = String (strNewContents);
  return;
}

function getFormName_txt_disc
(
)
{
  return String (this._formName);
}

function setFormName_txt_disc
(
 strNewFormName
)
{
  this._formName = String (strNewFormName);
  return;
}

function getInitialised_txt_disc
(
)
{
  return Boolean (ASPFTextControl._initialised);
}

function setInitialised_txt_disc
(
 bNewInitialisationFlag
)
{
  ASPFTextControl._initialised = Boolean (bNewInitialisationFlag);
  return;
}

// ======================================================================
//
// Private and public methods.
//
// ======================================================================

function isUsed_txt_disc
(
)
{
  return ASPFTextControl.getInitialised ();
}

function getImageLoader_txt_disc
(
)
{
  var strJSout = ASPFHTML.JS_open ();

  strJSout += "var buttonImage_normal = new Image ();\n";
  strJSout += "buttonImage_normal.src = \"";
  strJSout += config.ADMINSETTING_ToolbarButtonImagePathname;
  strJSout += "\";\n";
  strJSout += "var buttonImage_up = new Image ();\n";
  strJSout += "buttonImage_up.src = \"";
  strJSout += config.ADMINSETTING_ToolbarButtonImageUpPathname;
  strJSout += "\";\n";
  strJSout += "var buttonImage_down = new Image ();\n";
  strJSout += "buttonImage_down.src = \"";
  strJSout += config.ADMINSETTING_ToolbarButtonImageDownPathname;
  strJSout += "\";\n\n";

  strJSout += ASPFHTML.JS_close ();

  return strJSout;
}

function getGenericRoutines_txt_disc
(
)
{
  var strJSout = ASPFHTML.JS_open ();
  strJSout += "function flipImage_disc (imageTagName, newImageObject)\n";
  strJSout += "{\n";
  strJSout += "\tif (document.images)\n";
  strJSout += "\t{\n";
  strJSout += "\t\tdocument [imageTagName].src = newImageObject.src;\n";
  strJSout += "\t}\n\n";
  strJSout += "\treturn;\n";
  strJSout += "}\n\n";
  strJSout += ASPFHTML.JS_close ();

  return strJSout;
}

function getControlSpecificRoutines_txt_disc
(
 strControlName,
 strFormName
)
{
  var strJSout = ASPFHTML.JS_open ();
  strJSout += "function submitRecord ()\n";
  strJSout += "{\n";
  strJSout += "\tvar text = frames." + strControlName + ".document.body.innerText;\n";
  strJSout += "\tvar html = frames." + strControlName + ".document.body.innerHTML;\n";
  strJSout += "\tif ((html == \"\") || (text == \"\"))\n";
  strJSout += "\t{\n";
  strJSout += "\t\tframes." + strControlName + ".focus();\n";
  strJSout += "\t\talert (\"Body field must not be empty.\");\n";
  strJSout += "\t\treturn;\n";
  strJSout += "\t}\n";
  strJSout += "\tdocument." + strFormName + "." + strControlName + ".value = html;\n";
  strJSout += "\tdocument." + strFormName + ".submit();\n";
  strJSout += "\treturn;\n";
  strJSout += "}\n\n";

  strJSout += "function setStyle_" + strControlName + " (newStyle)\n";
  strJSout += "{\n";
  strJSout += "\tvar selection = frames.";
  strJSout += strControlName;
  strJSout += ".document.selection.createRange ();\n";
  strJSout += "\tselection.execCommand (newStyle);\n";
  strJSout += "\tframes." + strControlName + ".focus();\n";
  strJSout += "\treturn;\n";
  strJSout += "}\n\n";

  strJSout += "function setFont_" + strControlName + " ()\n";
  strJSout += "{\n";
  strJSout += "\tvar selectedRange = frames.";
  strJSout += strControlName;
  strJSout += ".document.selection.createRange ();\n";
  strJSout += "\tselectedRange.execCommand (\"FontName\", true, document.";
  strJSout += strFormName;
  strJSout += ".FontName.options [document.";
  strJSout += strFormName;
  strJSout += ".FontName.selectedIndex].value);\n";

  strJSout += "\tselectedRange.execCommand (\"FontSize\", true, document.";
  strJSout += strFormName;
  strJSout += ".FontSize.options [document.";
  strJSout += strFormName;
  strJSout += ".FontSize.selectedIndex].value);\n";
  strJSout += "\tselectedRange.select ();\n";
  strJSout += "\tframes." + strControlName + ".focus();\n";
  strJSout += "\treturn;\n";
  strJSout += "}\n\n";

  strJSout += ASPFHTML.JS_close ();

  return strJSout;
}

function getImageControlHTML_txt_disc
(
 strControl,
 strName,
 strCommand,
 strTitle,
 strPathname,
 nWidth,
 nHeight
)
{
  var strHTMLout = "";
  strHTMLout += "<IMG ALT=\"";
  strHTMLout += strName;
  strHTMLout += "\" HEIGHT=\"";
  strHTMLout += nHeight;
  strHTMLout += "\" WIDTH=\"";
  strHTMLout += nWidth;
  strHTMLout += "\" NAME=\"";
  strHTMLout += strTitle;
  strHTMLout += "\" SRC=\"";
  strHTMLout += strPathname;
  strHTMLout += "\" onclick=\"flipImage_disc ('";
  strHTMLout += strTitle;
  strHTMLout += "', '";
  strHTMLout += strTitle;
  strHTMLout += "Image_down'); setStyle_";
  strHTMLout += strControl;
  strHTMLout += " ('";
  strHTMLout += strCommand;
  strHTMLout += "'); return false;\" onmouseover=\"flipImage_disc ('";
  strHTMLout += strTitle;
  strHTMLout += "', '";
  strHTMLout += strTitle;
  strHTMLout += "Image_up');\" onmouseout=\"flipImage_disc ('";
  strHTMLout += strTitle;
  strHTMLout += "', '";
  strHTMLout += strTitle;
  strHTMLout += "Image_normal');\">";

  return strHTMLout;
}

function getControlActivator_txt_disc
(
 strControlName
)
{
  var strHTMLout = "";
  strHTMLout += ASPFHTML.JS_open ();
  strHTMLout += "var editControl = frames." + strControlName + ".document;\n";
  strHTMLout += "editControl.designMode = \"On\";\n";
  if (isDefined_disc (this.getContents ()) && (this.getContents () != ""))
    {
      strHTMLout += "editControl.open (\"text/html\", \"replace\");\n";
      strHTMLout += "editControl.write (\"";
      strHTMLout += this.getContents ().javascriptSafeFormat ();
      strHTMLout += "\");\n";
      strHTMLout += "editControl.close ();\n";
    }
  strHTMLout += ASPFHTML.JS_close ();

  return strHTMLout;
}

function getToolbarButtonControl_txt_disc
(
 strControlName,
 strButtonName,
 strButtonTitle,
 strButtonAction
)
{
  var strOnMouseOver = "";
  strOnMouseOver += "flipImage_disc ('";
  strOnMouseOver += strButtonName;
  strOnMouseOver += "', buttonImage_up)";

  var strOnMouseOut = "";
  strOnMouseOut += "flipImage_disc ('";
  strOnMouseOut += strButtonName;
  strOnMouseOut += "', buttonImage_normal)";

  var strOnMouseDown = "";
  strOnMouseDown += "flipImage_disc ('";
  strOnMouseDown += strButtonName;
  strOnMouseDown += "', buttonImage_down); setStyle_";
  strOnMouseDown += strControlName;
  strOnMouseDown += " ('" + strButtonAction + "'); return false;";

  var strOnMouseUp = "";
  strOnMouseUp += "flipImage_disc ('";
  strOnMouseUp += strButtonName;
  strOnMouseUp += "', buttonImage_up); return false;";

  return ASPFHTML.IMG (config.ADMINSETTING_ToolbarButtonImagePathname,
		       strButtonTitle,
		       0,
		       config.ADMINSETTING_ToolbarButtonImageWidth,
		       config.ADMINSETTING_ToolbarButtonImageHeight,
		       strButtonName,
		       strButtonName,
		       undefined_disc,
		       strOnMouseOver,
		       strOnMouseOut,
		       strOnMouseDown,
		       strOnMouseUp);
}

function getToolbarSpacer_txt_disc
(
)
{
  return ASPFHTML.IMG (config.ADMINSETTING_ToolbarSpacerImagePathname,
		       " ",
		       0,
		       config.ADMINSETTING_ToolbarSpacerImageWidth,
		       config.ADMINSETTING_ToolbarSpacerImageHeight);
}

function getToolbarButtons_txt_disc
(
 strControlName
)
{
  var nButtonsSize = 12 * config.ADMINSETTING_ToolbarButtonImageWidth;
  var nSpacersSize = 6 * config.ADMINSETTING_ToolbarSpacerImageWidth;

  var strHTMLout = "";
  strHTMLout += ASPFHTML.TABLE_open (0,
				     nButtonsSize + nSpacersSize,
				     undefined_disc,
				     undefined_disc,
				     0,
				     0);
  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarSpacerImageWidth);
  strHTMLout += this.getToolbarSpacer ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "bold",
					      "Bold",
					      "bold");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "italic",
					      "Italic",
					      "italic");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "underline",
					      "Underline",
					      "underline");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarSpacerImageWidth);
  strHTMLout += this.getToolbarSpacer ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "justifyleft",
					      "Left",
					      "JustifyLeft");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "justifycenter",
					      "Centre",
					      "JustifyCenter");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "justifyright",
					      "Right",
					      "JustifyRight");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "justifyfull",
					      "Justify",
					      "JustifyFull");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarSpacerImageWidth);
  strHTMLout += this.getToolbarSpacer ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "bulleted",
					      "Bulleted List",
					      "InsertUnorderedList");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "numbered",
					      "Numbered List",
					      "InsertOrderedList");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarSpacerImageWidth);
  strHTMLout += this.getToolbarSpacer ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "indent",
					      "Indent",
					      "Indent");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "outdent",
					      "Outdent",
					      "Outdent");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarSpacerImageWidth);
  strHTMLout += this.getToolbarSpacer ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarButtonImageWidth);
  strHTMLout += this.getToolbarButtonControl (strControlName,
					      "link",
					      "Create/Edit Hyperlink",
					      "CreateLink");
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarSpacerImageWidth);
  strHTMLout += this.getToolbarSpacer ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();
  strHTMLout += ASPFHTML.TABLE_close ();

  return strHTMLout;
}

function getControlHTML_txt_disc
(
 strControlName
)
{
  var nControlWidth = 9 * config.ADMINSETTING_TextAreaCols;
  var nControlHeight = 20 * config.ADMINSETTING_TextAreaRows;
  var strHTMLout = "";
  strHTMLout += ASPFHTML.TABLE_open (0,
				     nControlWidth,
				     config.ADMINSETTING_ToolbarBackgroundColour,
				     undefined_disc,
				     0,
				     0);
  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (config.ADMINSETTING_ToolbarTotalWidth,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  config.ADMINSETTING_ToolbarImagePathname);
  strHTMLout += this.getToolbarButtons (strControlName);
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (nControlWidth - config.ADMINSETTING_ToolbarTotalWidth);
  strHTMLout += ASPFHTML.SELECT_open ("FontName", "setFont_" + strControlName + " (); return false;");
  strHTMLout += ASPFHTML.OPTION ("Courier, Century") + "Courier";
  strHTMLout += ASPFHTML.OPTION ("Helvetica, Arial, sans serif") + "Helvetica";
  strHTMLout += ASPFHTML.OPTION ("Times New Roman, serif", true) + "Times";
  strHTMLout += ASPFHTML.SELECT_close ();
  strHTMLout += ASPFHTML.SELECT_open ("FontSize", "setFont_" + strControlName + " (); return false;");
  strHTMLout += ASPFHTML.OPTION ("1") + "8pt";
  strHTMLout += ASPFHTML.OPTION ("2") + "10pt";
  strHTMLout += ASPFHTML.OPTION ("3", true) + "12pt";
  strHTMLout += ASPFHTML.OPTION ("4") + "14pt";
  strHTMLout += ASPFHTML.OPTION ("5") + "18pt";
  strHTMLout += ASPFHTML.OPTION ("6") + "24pt";
  strHTMLout += ASPFHTML.OPTION ("7") + "36pt";
  strHTMLout += ASPFHTML.SELECT_close ();
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();
  strHTMLout += ASPFHTML.TABLE_close ();
  strHTMLout += ASPFHTML.IFRAME_open (strControlName,
				      "about:blank",
				      strControlName,
				      nControlWidth,
				      nControlHeight);
  strHTMLout += ASPFHTML.IFRAME_close ();
  strHTMLout += ASPFHTML.BR ();
  strHTMLout += ASPFHTML.INPUT_hidden (strControlName, "");

  return strHTMLout;
}

function isRichTextCapable_txt_disc
(
)
{
  var bClientCanHandleIt;
  if (((String (Request.ServerVariables ("HTTP_USER_AGENT")).indexOf ("MSIE 4") > 0)
       || (String (Request.ServerVariables ("HTTP_USER_AGENT")).indexOf ("MSIE 5") > 0))
      && (String (Request.ServerVariables ("HTTP_USER_AGENT")).indexOf ("Windows") > 0))
    {
      bClientCanHandleIt = true;
    }
  else
    {
      bClientCanHandleIt = false;
    }

  return bClientCanHandleIt;
}

function getControl_txt_disc
(
)
{
  var strHTMLout = "";
  if ((this.isRichTextCapable ()) && (config.ADMINSWITCH_AllowRichFormatting))
    {
      ASPFTextControl.setInitialised (true);
      strHTMLout += this.getImageLoader ();
      strHTMLout += this.getGenericRoutines ();
      strHTMLout += this.getControlSpecificRoutines (this.getName (), this.getFormName ());
      strHTMLout += this.getControlHTML (this.getName ());
      strHTMLout += this.getControlActivator (this.getName ());
    }
  else
    {
      ASPFTextControl.setInitialised (false);
      strHTMLout += ASPFHTML.TEXTAREA_open (this.getName (),
					    config.ADMINSETTING_TextAreaCols,
					    config.ADMINSETTING_TextAreaRows);
      strHTMLout += this.getContents ().unformatFromStoring ();
      strHTMLout += ASPFHTML.TEXTAREA_close ();
    }

  return strHTMLout;
}

function getControlContents_txt_disc
(
 objFormData,
 strControlName
)
{
  return objFormData (strControlName);
}

ASPFTextControl._initialised = false;
ASPFTextControl.isUsed = isUsed_txt_disc;
ASPFTextControl.getInitialised = getInitialised_txt_disc;
ASPFTextControl.setInitialised = setInitialised_txt_disc;
ASPFTextControl.isRichTextCapable = isRichTextCapable_txt_disc;
ASPFTextControl.getControlContents = getControlContents_txt_disc;

ASPFTextControl.prototype.getName = getName_txt_disc;
ASPFTextControl.prototype.setName = setName_txt_disc;
ASPFTextControl.prototype.getContents = getContents_txt_disc;
ASPFTextControl.prototype.setContents = setContents_txt_disc;
ASPFTextControl.prototype.getFormName = getFormName_txt_disc;
ASPFTextControl.prototype.setFormName = setFormName_txt_disc;

ASPFTextControl.prototype.isUsed = isUsed_txt_disc;
ASPFTextControl.prototype.getInitialised = getInitialised_txt_disc;
ASPFTextControl.prototype.setInitialised = setInitialised_txt_disc;
ASPFTextControl.prototype.getImageLoader = getImageLoader_txt_disc;
ASPFTextControl.prototype.getGenericRoutines = getGenericRoutines_txt_disc;
ASPFTextControl.prototype.getControlSpecificRoutines = getControlSpecificRoutines_txt_disc;
ASPFTextControl.prototype.getImageControlHTML = getImageControlHTML_txt_disc;
ASPFTextControl.prototype.getControlActivator = getControlActivator_txt_disc;
ASPFTextControl.prototype.getToolbarButtonControl = getToolbarButtonControl_txt_disc;
ASPFTextControl.prototype.getToolbarSpacer = getToolbarSpacer_txt_disc;
ASPFTextControl.prototype.getToolbarButtons = getToolbarButtons_txt_disc;
ASPFTextControl.prototype.getControlHTML = getControlHTML_txt_disc;
ASPFTextControl.prototype.getControl = getControl_txt_disc;
ASPFTextControl.prototype.isRichTextCapable = isRichTextCapable_txt_disc;
ASPFTextControl.prototype.getControlContents = getControlContents_txt_disc;
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// THREAD OBJECT
//
// ======================================================================

function ASPFThread
(
 nCurrentMessageID,
 strPageURLToUse
)
{
  this.setCurrentMessageID (nCurrentMessageID);
  if (isUndefined_disc (strPageURLToUse))
    {
      this.setPageURLToUse = config.getMainPagePath ();
    }
  else
    {
      this.setPageURLToUse = strPageURLToUse;
    }

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getCurrentMessageID_thd_disc
(
)
{
  return Number (this._currentMessageID);
}

function setCurrentMessageID_thd_disc
(
 nNewCurrentMessageID
)
{
  this._currentMessageID = Number (nNewCurrentMessageID);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function getAllSorted_thd_disc
(
 bSortAscending
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getAllRootMessages (bSortAscending);
  var vwMessageView = new ASPFView (rsMessages, this.getCurrentMessageID ());
  var thdThreadInfo = vwMessageView.getView ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdThreadInfo;
}

function getCurrentSorted_thd_disc
(
 bSortAscending
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getCurrentRootMessages (bSortAscending);
  var vwMessageView = new ASPFView (rsMessages, this.getCurrentMessageID ());
  var thdThreadInfo = vwMessageView.getView ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdThreadInfo;
}

function getCurrentSortedDHTML_thd_disc
(
 bSortAscending
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getAllCurrentMessages (bSortAscending);
  var vwMessageView = new ASPFView (rsMessages, this.getCurrentMessageID ());
  var thdThreadInfo = vwMessageView.getDHTMLView ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdThreadInfo;
}

function getArchiveSorted_thd_disc
(
 dtArchiveDate,
 bSortAscending
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getArchiveRootMessages (dtArchiveDate, bSortAscending);
  var vwMessageView = new ASPFView (rsMessages,
				    this.getCurrentMessageID (),
				    config.getArchivePagePath ());
  var thdThreadInfo = vwMessageView.getView ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdThreadInfo;
}

function getArchiveSortedDHTML_thd_disc
(
 dtArchiveDate,
 bSortAscending
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getAllArchiveMessages (dtArchiveDate, bSortAscending);
  var vwMessageView = new ASPFView (rsMessages,
				    this.getCurrentMessageID (),
				    config.getArchivePagePath ());
  var thdThreadInfo = vwMessageView.getDHTMLView ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdThreadInfo;
}

function getExpandedThread_thd_disc
(
 nThreadID,
 nStartAt
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getSubThreadMessages (nThreadID, nStartAt);
  var vwMessageView = new ASPFView (rsMessages, this.getCurrentMessageID (), this.pageURLToUse);
  var thdExpandedThread = vwMessageView.getViewThread ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdExpandedThread;
}

function getSubThread_thd_disc
(
 nThreadID,
 nStartAt
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getSubThreadMessages (nThreadID, nStartAt);
  var vwMessageView = new ASPFView (rsMessages, this.getCurrentMessageID ());
  var thdSubThread = vwMessageView.getViewFullThread ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdSubThread;
}

function getFullThread_thd_disc
(
 nThreadID
)
{
  var dbDatabase = new ASPFDatabase ();
  var rsMessages = dbDatabase.getAllThreadMessages (nThreadID);
  var vwMessageView = new ASPFView (rsMessages, this.getCurrentMessageID ());
  var thdFullThread = vwMessageView.getViewFullThread ();

  delete dbDatabase;
  delete rsMessages;
  delete vwMessageView;
  return thdFullThread;
}

ASPFThread.prototype.getCurrentMessageID = getCurrentMessageID_thd_disc;
ASPFThread.prototype.setCurrentMessageID = setCurrentMessageID_thd_disc;

ASPFThread.prototype.getAllSorted = getAllSorted_thd_disc;
ASPFThread.prototype.getCurrentSorted = getCurrentSorted_thd_disc;
ASPFThread.prototype.getCurrentSortedDHTML = getCurrentSortedDHTML_thd_disc;
ASPFThread.prototype.getArchiveSorted = getArchiveSorted_thd_disc;
ASPFThread.prototype.getArchiveSortedDHTML = getArchiveSortedDHTML_thd_disc;
ASPFThread.prototype.getExpandedThread = getExpandedThread_thd_disc;
ASPFThread.prototype.getSubThread = getSubThread_thd_disc;
ASPFThread.prototype.getFullThread = getFullThread_thd_disc;
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

// ======================================================================
//
// VIEW OBJECT
//
// ======================================================================

function ASPFView
(
 rsMessages,
 nCurrentMessageID,
 strPageURLToUse
)
{
  this.setMessageList (rsMessages);
  this.setCurrentMessageID (nCurrentMessageID);
  this.setThreadCounter (0);
  if (isUndefined_disc (strPageURLToUse))
    {
      this.setPageURLToUse (config.getMainPagePath ());
    }
  else
    {
      this.setPageURLToUse (strPageURLToUse);
    }

  return this;
}

// ======================================================================
//
// Interface to private member variables.
//
// ======================================================================

function getMessageList_vw_disc
(
)
{
  return this._messages;
}

function setMessageList_vw_disc
(
 rsNewMessageList
)
{
  this._messages = rsNewMessageList;
  return;
}

function getCurrentMessageID_vw_disc
(
)
{
  return Number (this._currentMessageID);
}

function setCurrentMessageID_vw_disc
(
 nNewCurrentMessageID
)
{
  this._currentMessageID = Number (nNewCurrentMessageID);
  return;
}

function getPageURLToUse_vw_disc
(
)
{
  return String (this._pageURLToUse);
}

function setPageURLToUse_vw_disc
(
 strNewPageURLToUse
)
{
  this._pageURLToUse = String (strNewPageURLToUse);
  return;
}

function getThreadCounter_vw_disc
(
)
{
  return Number (this._threadCounter);
}

function setThreadCounter_vw_disc
(
 nThreadCounter
)
{
  this._threadCounter = Number (nThreadCounter);
  return;
}

// ======================================================================
//
// Main object methods.
//
// ======================================================================

function getView_vw_disc
(
)
{
  var strView = "";

  if (!this.getMessageList ().EOF)
    {
      var msgCurrentMessage;
      var strViewLine;

      this.getMessageList ().MoveFirst();

      var nShowMaxRecords;
      if (config.ADMINSETTING_ShowAtMostNThreads > 0)
	{
	  nShowMaxRecords = config.ADMINSETTING_ShowAtMostNThreads;
	}
      else
	{
	  nShowMaxRecords = this.getMessageList ().RecordCount;
	}

      while ((!this.getMessageList ().EOF) && (this.getThreadCounter () < nShowMaxRecords))
	{
	  this.setThreadCounter (this.getThreadCounter () + 1);

	  msgCurrentMessage = new ASPFMessage (this.getMessageList (),
					       ASPF_RECORDSET_OBJECT_TYPE_DISC);
	  var exExpandCollapse = new ASPFExpandCollapse (msgCurrentMessage,
							 this.getThreadCounter (),
							 msgCurrentMessage.getMessageID (),
							 0,
							 this.getPageURLToUse ());
	  if (exExpandCollapse.doWeExpand())
	    {
	      var thdExpandedThread = new ASPFThread (this.getCurrentMessageID (),
						      this.getPageURLToUse ());
	      strView += thdExpandedThread.getExpandedThread (msgCurrentMessage.getThreadID (),
							      msgCurrentMessage.getSortCode ());
	      delete thdExpandedThread;
	    }
	  else
	    {
	      strViewLine = msgCurrentMessage.getExpandCollapse (this.getThreadCounter (),
							      1,
							      this.getPageURLToUse ());
	      strViewLine += msgCurrentMessage.getViewEntry (this.getCurrentMessageID ());
	      strView += this.getIndented (1, strViewLine);
	    }

	  delete msgCurrentMessage;
	  delete exExpandCollapse;
	  this.getMessageList ().MoveNext();
	}
    }
  else
    {
      strView = this.getIndented (1,
				  ASPFExpandCollapse.getEmptyNoExpandToggle ()
				  + config.USERTEXT_VIEW_NoMessages.weak());
    }

  return strView;
}

function getDHTMLView_vw_disc
(
)
{
  var strView = "";
  if (!this.getMessageList ().EOF)
    {
      this.getMessageList ().MoveFirst();

      strView += this.getDHTMLExpandCollapseCode ();

      var nShowMaxRecords;
      if (config.ADMINSETTING_ShowAtMostNThreads > 0)
	{
	  nShowMaxRecords = config.ADMINSETTING_ShowAtMostNThreads;
	}
      else
	{
	  nShowMaxRecords = this.getMessageList ().RecordCount;
	}

      while ((!this.getMessageList ().EOF) && (this.getThreadCounter () < nShowMaxRecords))
	{
	  this.setThreadCounter (this.getThreadCounter () + 1);
	  strView += this.getDHTMLThread (this.getMessageList ());
	}
    }
  else
    {
      strView += this.getIndented (1,
				   ASPFExpandCollapse.getEmptyNoExpandToggle ()
				   + config.USERTEXT_VIEW_NoMessages.weak());
    }

  return strView;
}

function getDHTMLThread_vw_disc
(
 rsMessages
)
{
  var nRelativeIndentLevel;
  var nAbsoluteIndentLevel;
  var strSortCode;
  var msgCurrentMessage;
  var strSubjectLine;

  nRelativeIndentLevel = 1;
  msgCurrentMessage = new ASPFMessage (rsMessages, ASPF_RECORDSET_OBJECT_TYPE_DISC);
  nAbsoluteIndentLevel = this.getSortcodeIndentLevel (msgCurrentMessage.getSortCode ());
  strSortCode = msgCurrentMessage.getSortCode ();
  strSubjectLine = msgCurrentMessage.getDHTMLExpandCollapse (nRelativeIndentLevel,
							     this.getPageURLToUse (),
							     this.getThreadCounter ());
  strSubjectLine += msgCurrentMessage.getViewEntry (0);

  var nCurrentID = String (msgCurrentMessage.getMessageID ());
  var strCurrentSortCode = String (msgCurrentMessage.getSortCode ());

  delete msgCurrentMessage;

  var strDHTMLThread = "";
  strDHTMLThread += this.getIndented (nRelativeIndentLevel, strSubjectLine);
  strDHTMLThread += this.getDHTMLChildren (nCurrentID,
					   strCurrentSortCode,
					   nAbsoluteIndentLevel,
					   nRelativeIndentLevel,
					   strSortCode,
					   rsMessages);
  return strDHTMLThread;
}

function getDHTMLChildren_vw_disc
(
 nPreviousID,
 strPreviousSortCode,
 nAbsoluteIndentLevel,
 nRelativeIndentLevel,
 strWorkingSortCode,
 rsMessages
)
{
  var strViewLine = "";
  var strDisplaySubthread = "";

  rsMessages.MoveNext ();
  var msgNextMessage = new ASPFMessage (rsMessages, ASPF_RECORDSET_OBJECT_TYPE_DISC);
  if (strPreviousSortCode == msgNextMessage.getSortCode ().substring (0, strPreviousSortCode.length))
    {
      if (strPreviousSortCode == msgNextMessage.getSortCode ().substring (0, strPreviousSortCode.length))
	{
	  nAbsoluteIndentLevel++;
	  nRelativeIndentLevel++;
	}

      if (config.ADMINSWITCH_ExpandAllThreads
	  || (this.getThreadCounter () <= config.ADMINSETTING_ExpandFirstNThreads)
	  || (nRelativeIndentLevel != 2))
	{
	  strDisplaySubthread = "";
	}
      else
	{
	  strDisplaySubthread = "none";
	}
      strViewLine += ASPFHTML.DIV_open ("Subthread-" + config.getUniqueKey () + nPreviousID,
					"margin-left:0;display:" + strDisplaySubthread + ";");

      var nMessageOutputCounter = 0;
      while (!rsMessages.EOF && (strPreviousSortCode == msgNextMessage.getSortCode ().substring (0, strPreviousSortCode.length)))
	{
	  var strSubjectLine = msgNextMessage.getDHTMLExpandCollapse (nRelativeIndentLevel,
								   this.getPageURLToUse (),
								   this.getThreadCounter ());
	  strSubjectLine += msgNextMessage.getViewEntry (0);
	  strViewLine += this.getIndented (nRelativeIndentLevel, strSubjectLine);
	  strViewLine += this.getDHTMLChildren (String (msgNextMessage.getMessageID ()),
						msgNextMessage.getSortCode (),
						nAbsoluteIndentLevel,
						nRelativeIndentLevel,
						msgNextMessage.getSortCode (),
						rsMessages);
	  delete msgNextMessage;
	  msgNextMessage = new ASPFMessage (rsMessages, ASPF_RECORDSET_OBJECT_TYPE_DISC);
	  nMessageOutputCounter++;
	}

      strViewLine += ASPFHTML.DIV_close ();
    }

  delete msgNextMessage;
  return strViewLine;
}

function getViewThread_vw_disc
(
)
{
  var strThread = "";

  if (!this.getMessageList ().EOF)
    {
      var nLastIndentLevel = 0;
      var nCurrentIndentLevel;
      var strViewLine;
      var strFirstMessageSortCode;

      this.getMessageList ().MoveFirst();

      var dbDatabase = new ASPFDatabase ();
      strFirstMessageSortCode = dbDatabase.getSortCodeField (this.getMessageList ());

      while (!this.getMessageList ().EOF)
	{
	  this.setThreadCounter (this.getThreadCounter () + 1);

	  var msgCurrentMessage = new ASPFMessage (this.getMessageList (),
						   ASPF_RECORDSET_OBJECT_TYPE_DISC);
	  var exExpandCollapseThread = new ASPFExpandCollapse (msgCurrentMessage,
							       this.getThreadCounter (),
							       0,
							       0,
							       this.getPageURLToUse ());

	  nCurrentIndentLevel = 1 + this.getIndentLevel () - this.getSortcodeIndentLevel (strFirstMessageSortCode);
	  if (nCurrentIndentLevel < 1)
	    {
	      nCurrentIndentLevel = 1;
	      strFirstMessageSortCode = dbDatabase.getSortCodeField (this.getMessageList ());
	}

	  strViewLine = msgCurrentMessage.getExpandCollapse (this.getThreadCounter (),
							     0,
							     this.getPageURLToUse ());
	  strViewLine += msgCurrentMessage.getViewEntry (this.getCurrentMessageID ());
	  strThread += this.getIndented (nCurrentIndentLevel, strViewLine);

	  if (exExpandCollapseThread.doWeCollapse())
	    {
	      this.skipToNextSibling ();
	      if (!this.getMessageList ().EOF)
		{
		  strFirstMessageSortCode = this.getParentSortCode (String (dbDatabase.getSortCodeField (this.getMessageList ())));
		}
	    }
	  else
	    {
	      if (!this.getMessageList ().EOF)
		{
		  this.getMessageList ().MoveNext();
		}
	    }

	  delete msgCurrentMessage;
	  delete exExpandCollapseThread;
	}
    }
  else
    {
      strThread = this.getIndented (1, ASPFExpandCollapse.getEmptyNoExpandToggle () + config.USERTEXT_VIEW_NoMessages.weak());
    }

  delete dbDatabase;
  return strThread;
}

function getParentSortCode_vw_disc
(
 strSortcode
)
{
  var strParentSortCode = "";
  var nLastSeparatorIndex = strSortcode.lastIndexOf (".");
  if (-1 != nLastSeparatorIndex)
    {
      strParentSortCode = strSortcode.substring (0, nLastSeparatorIndex);
    }

  return strParentSortCode;
}

function getViewFullThread_vw_disc
(
)
{
  var strFullThread = "";

  if (!this.getMessageList ().EOF)
    {
      var nLastIndentLevel;
      var nCurrentIndentLevel;
      var strViewLine;
      var strFirstMessageSortCode;

      this.getMessageList ().MoveFirst();

      nLastIndentLevel = 0;
      var dbDatabase = new ASPFDatabase ();
      strFirstMessageSortCode = String (dbDatabase.getSortCodeField (this.getMessageList ()));

      while (!this.getMessageList ().EOF)
	{
	  var msgCurrentMessage = new ASPFMessage (this.getMessageList (),
						   ASPF_RECORDSET_OBJECT_TYPE_DISC);

	  nCurrentIndentLevel = this.getIndentLevel ();
	  strViewLine = msgCurrentMessage.getViewEntry (this.getCurrentMessageID ());

	  strFullThread += this.getIndented (nCurrentIndentLevel, strViewLine);

	  if (!this.getMessageList ().EOF)
	    {
	      this.getMessageList ().MoveNext();
	    }

	  delete msgCurrentMessage;
	}
    }
  else
    {
      strFullThread = this.getIndented (1, ASPFExpandCollapse.getEmptyNoExpandToggle () + config.USERTEXT_VIEW_NoMessages.weak());
    }

  delete dbDatabase;
  return strFullThread;
}

function getIndented_vw_disc
(
 nCurrentIndentLevel,
 strViewText
)
{
  var strHTMLout = "";

  strHTMLout += ASPFHTML.TABLE_open (config.ADMINSETTING_TableBorderSize,
				     undefined_disc,
				     undefined_disc,
				     undefined_disc,
				     0,
				     0);
  strHTMLout += ASPFHTML.TR_open ();
  strHTMLout += ASPFHTML.TD_open (undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "top");
  strHTMLout += ASPFHTML.NBSP ();

  for (var nCounter = 0; nCounter < nCurrentIndentLevel; nCounter++)
    {
      strHTMLout += ASPFHTML.NBSP (config.ADMINSETTING_ViewIndentResponseSpaces);
    }
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TD_open (undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  undefined_disc,
				  "top");
  strHTMLout += strViewText;
  strHTMLout += ASPFHTML.TD_close ();
  strHTMLout += ASPFHTML.TR_close ();
  strHTMLout += ASPFHTML.TABLE_close ();

  return strHTMLout;
}

function getIndentLevel_vw_disc
(
)
{
  var msgCurrentMessage = new ASPFMessage (this.getMessageList (),
					   ASPF_RECORDSET_OBJECT_TYPE_DISC);
  var strParsedCode = msgCurrentMessage.getSortCode ();
  var nFoundAt = 1;
  var nIndentCounter = 0;

  while (nFoundAt > 0)
    {
      nFoundAt = String (strParsedCode).search ("[\\.]");
      strParsedCode = String (strParsedCode).substr (nFoundAt + 1);
      nIndentCounter++;
    }

  delete msgCurrentMessage;
  return nIndentCounter;
}

function getSortcodeIndentLevel_vw_disc
(
 strSortCode
)
{
  var strParsedCode = strSortCode;
  var nFoundAt = 1;
  var nIndentCounter = 0;

  while (nFoundAt > 0)
    {
      nFoundAt = String (strParsedCode).search ("[^0-9]");
      strParsedCode = String (strParsedCode).substr (nFoundAt + 1);
      nIndentCounter++;
    }
  return nIndentCounter;
}

function skipToNextSibling_vw_disc
(
)
{
  var msgCurrentMessage = new ASPFMessage (this.getMessageList (),
					   ASPF_RECORDSET_OBJECT_TYPE_DISC);
  var strCurrentSortCode = msgCurrentMessage.getSortCode ();

  this.getMessageList ().MoveNext();
  while ((!this.getMessageList ().EOF) && (String (strCurrentSortCode).length < String (new ASPFMessage(this.getMessageList (), ASPF_RECORDSET_OBJECT_TYPE_DISC).getSortCode ()).length))
    {
      this.getMessageList ().MoveNext();
    }

  delete msgCurrentMessage;
  return;
}

function getDHTMLExpandCollapseCode_vw_disc ()
{
  var strDHTMLCode = "";

  strDHTMLCode += "\n<SCR" + "IPT LANGUAGE=\"Javascript\" RUNAT=\"client\">";
  strDHTMLCode += "\nfunction " + config.getDHTMLFunctionName () + " (DOMEvent)";
  strDHTMLCode += "\n{";
  strDHTMLCode += "\n\tvar customGetByID;";
  strDHTMLCode += "\n\tvar parentID;";
  strDHTMLCode += "\n\tvar child;";
  strDHTMLCode += "\n\tif (document.all)";
  strDHTMLCode += "\n\t{";
  strDHTMLCode += "\n\t\tdocument.getElementById = document.all;";
  strDHTMLCode += "\n\t\tparentID = window.event.srcElement.id;";
  strDHTMLCode += "\n\t\tchild = document.getElementById (\"Subthread-\" + parentID);";
  strDHTMLCode += "\n\t}";
  strDHTMLCode += "\n\telse";
  strDHTMLCode += "\n\t{";
  strDHTMLCode += "\n\t\tparentID = DOMEvent.target.id;";
  strDHTMLCode += "\n\t\tchild = document.getElementById (\"Subthread-\" + parentID);";
  strDHTMLCode += "\n\t}";
  strDHTMLCode += "\n\tif (child != null)";
  strDHTMLCode += "\n\t{";
  strDHTMLCode += "\n\t\tvar parentImage = document.getElementById (parentID);";
  strDHTMLCode += "\n\t\tif (child.style.display == \"none\")";
  strDHTMLCode += "\n\t\t{";
  strDHTMLCode += "\n\t\t\tchild.style.display = \"block\";";
  strDHTMLCode += "\n\t\t\tparentImage.src = \"" + config.ADMINSETTING_CollapseImagePathname + "\";";
  strDHTMLCode += "\n\t\t\tparentImage.alt = \"" + config.USERTEXT_VIEW_PopupCollapseLink + "\";";
  strDHTMLCode += "\n\t\t}";
  strDHTMLCode += "\n\t\telse";
  strDHTMLCode += "\n\t\t{";
  strDHTMLCode += "\n\t\t\tchild.style.display = \"none\";";
  strDHTMLCode += "\n\t\t\tparentImage.src = \"" + config.ADMINSETTING_ExpandImagePathname + "\";";
  strDHTMLCode += "\n\t\t\tparentImage.alt = \"" + config.USERTEXT_VIEW_PopupExpandLink + "\";";
  strDHTMLCode += "\n\t\t}";
  strDHTMLCode += "\n\t}";
  strDHTMLCode += "\n\treturn true;";
  strDHTMLCode += "\n}";
  strDHTMLCode += "\n</SCR" + "IPT>";

  return strDHTMLCode;
}

ASPFView.prototype.getMessageList = getMessageList_vw_disc;
ASPFView.prototype.setMessageList = setMessageList_vw_disc;
ASPFView.prototype.getCurrentMessageID = getCurrentMessageID_vw_disc;
ASPFView.prototype.setCurrentMessageID = setCurrentMessageID_vw_disc;
ASPFView.prototype.getPageURLToUse = getPageURLToUse_vw_disc;
ASPFView.prototype.setPageURLToUse = setPageURLToUse_vw_disc;
ASPFView.prototype.getThreadCounter = getThreadCounter_vw_disc;
ASPFView.prototype.setThreadCounter = setThreadCounter_vw_disc;

ASPFView.prototype.getView = getView_vw_disc;
ASPFView.prototype.getDHTMLView = getDHTMLView_vw_disc;
ASPFView.prototype.getDHTMLThread = getDHTMLThread_vw_disc;
ASPFView.prototype.getDHTMLChildren = getDHTMLChildren_vw_disc;
ASPFView.prototype.getViewThread = getViewThread_vw_disc;
ASPFView.prototype.getParentSortCode = getParentSortCode_vw_disc;
ASPFView.prototype.getViewFullThread = getViewFullThread_vw_disc;
ASPFView.prototype.getIndented = getIndented_vw_disc;
ASPFView.prototype.getIndentLevel = getIndentLevel_vw_disc;
ASPFView.prototype.getSortcodeIndentLevel = getSortcodeIndentLevel_vw_disc;
ASPFView.prototype.skipToNextSibling = skipToNextSibling_vw_disc;
ASPFView.prototype.getDHTMLExpandCollapseCode = getDHTMLExpandCollapseCode_vw_disc;
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
//=======================================================================
//
// "ASP Forums" - a web-based discussion forum implementation.
// Copyright (C) 1999, 2000  ASP Forums, http://www.aspforums.com/
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//=======================================================================

//=======================================================================
// ASP Forums version 2.0 beta 6 - October 20th 2000.
//=======================================================================

//=======================================================================
// Here's where we set up some of our variables to adapt the forum to
// this site.  Modifying the way the forum outputs text can be done by
// overriding some of the string prototypes.
//
// This is also where you should add any new configuration variables
// or any new override methods.
//
// See http://www.aspforums.com/info/technical/ for further info.
//=======================================================================
currentUsername_disc = "";

currentUserFullName_disc = "";

currentUserEmailAddress_disc = "";

isAdministrator_disc = false;

config.ADMINSETTING_ForumName = "Chevrolet Nova Internet Source Body Forum";
config.emailAdminAddress = "novasource@hotmail.com";

// If you have updated Data Access drivers on your server, you'll get
// better performance if you use OLE DB instead of ODBC.  If you're using
// the default DSN-less connection to the forum.mdb database, uncommenting
// the following code should change it from an ODBC connection to an
// OLE DB one.
// config.ADMINSETTING_DatabaseDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath (config.ADMINSETTING_DatabaseFilename)

</SCRIPT>
<HTML>
<HEAD>
<TITLE><%FORUM_TITLE_DISC%></TITLE>
</HEAD>

<BODY>
	<H1><%FORUM_TITLE_DISC%></H1>

	<P>
	<%CURRENT_POSTS_THREADED_DHTML_DISC%>
	</P>

	<P>
	<%NEW_POST_BUTTON_DISC%>
	</P>

	<P>
	<%SEARCH_FORM_DISC%>
	</P>

</BODY>
<%CLEANUP_DISC%>
</HTML>