<%@ Language=VBScript %> <%Option Explicit%> <%Response.Buffer=True%> <% Dim lngLastMsgId Dim strBoardList Dim strAvailable Dim strArchiveDate Dim lngArchiveCount If bbArchivesExist = 1 Then Call GetArchiveData End If strBoardList = "" lngLastMsgId = Trim(Request.Cookies("msgid") & "") If Not IsNumeric(lngLastMsgId) Then lngLastMsgId = 0 End If Function GetArchiveData() Dim strSql Dim adoRs strSql = "SELECT Count(tblArchives.MessageId), Max(tblArchives.RecordCreateDate) " & _ "FROM tblArchives " & _ "WHERE tblArchives.MessageValidStatus=1" Set adoRs = GetRecordset(adoConn, strSql) If adoRs.EOF Then strArchiveDate = "" lngArchiveCount = 0 Else strArchiveDate = adoRs.Fields(1).Value lngArchiveCount = CLng(adoRs.Fields(0).Value) End If Set adoRs = Nothing End Function Function GetUserLastReadPostString() Dim strSql Dim adoRs Dim strRetVal Dim strPostUser If lngLastMsgId > 0 Then strSql = "UPDATE tblUsers " & _ "SET tblUsers.UserLastPostRead=" & lngLastMsgId & " " & _ "WHERE tblUsers.UserKey='" & strUserKey & "'" Call adoConn.Execute(strSql) End If strSql = "SELECT tblMessages.MessageId, tblMessages.MessageUserId, tblMessages.MessageHeader, tblMessages.MessageViews, tblMessages.RecordCreateDate " & _ "FROM tblUsers INNER JOIN tblMessages ON tblUsers.UserLastPostRead = tblMessages.MessageId " & _ "WHERE tblUsers.UserKey='" & strUserKey & "'" Set adoRs = GetRecordset(adoConn, strSql) If adoRs.EOF Then strRetVal = "" Else strPostUser = GetUserHandle(adoRs.Fields("MessageUserId").Value) strRetVal = "" strRetVal = strRetVal & _ "Previous login: " & strUserLastLoginDate & " (Eastern Time Zone)

" & _ "Last message viewed: " & _ adoRs.Fields("MessageHeader").Value & "
" & _ "   posted by " & strPostUser & " " & _ "on " & GetBoardDateShort(adoRs.Fields("RecordCreateDate").Value) & " " & _ "(" & adoRs.Fields("MessageViews").Value & _ " views)
" End If Set adoRs = Nothing GetUserLastReadPostString = strRetVal End Function %> <%=strAdmTitle%> ,<%=strAdmTitle%> message board,forum,discussion list"> <% Dim strSql Dim adoRs Dim strRowColor Dim strPrivateBoardLabel Dim lngUserLastReadPost Dim strIAction strIAction = "" Const RowColor1 = "#f0f0f0" Const RowColor2 = "#e0e0e0" strRowColor = RowColor2 strSql = "SELECT tblBoards.* " & _ "FROM tblBoards " & _ "WHERE BoardActiveStatus=1 " strSql = strSql & _ "ORDER BY BoardID" ' "ORDER BY RecordCreateDate" Set adoRs = GetRecordset(adoConn, strSql) %> <% strIAction = Trim(Request.QueryString("action")) If (strIAction = "login" Or strIAction = "logout") And intLoginStatus = 0 Then strLoginFocus = " LANGUAGE=""javascript"" onload=""document.frmLogin.txtUserPwd.focus();""" ElseIf strIAction = "void" Then strLoginFocus = " LANGUAGE=""javascript"" onload=""noRec()""" ElseIf strIAction = "5" Then strLoginFocus = " LANGUAGE=""javascript"" onload=""badPwd()""" ElseIf strIAction = "6" Then strLoginFocus = " LANGUAGE=""javascript"" onload=""document.frmSearch.keywords.focus();""" ElseIf strIAction = "nopost" Then strLoginFocus = " LANGUAGE=""javascript"" onload=""nopost()""" End If If strAdmBGImage="" Then If strAdmBGColor <> "" Then Response.Write "" End If Else Response.Write "" End If %> <%Dim HeaderTitle HeaderTitle = bbTitle %>
<%If strAdmAdminMessage <> "" Or strAdmAdminEmailAddress <> "" Then%> <%End If%> <%Do Until adoRs.EOF%> <% If strRowColor = RowColor1 Then strRowColor = RowColor2 Else strRowColor = RowColor1 End If If adoRs.Fields("BoardScopeStatus").Value = 1 Then strPrivateBoardLabel = "  (Private Forum)" Else strPrivateBoardLabel = "" End If If adoRs.Fields("BoardMessageCount").Value > 0 Then strAvailable = "" If (adoRs.Fields("BoardScopeStatus").Value = 0) Or (intLoginStatus = 1) Then strBoardList = strBoardList & _ "" End If Else strAvailable = "  Not Available" End If %> <%adoRs.MoveNext%> <%Loop%> <%If bbArchivesExist = 1 And lngArchiveCount > 0 Then%> <% If strRowColor = RowColor1 Then strRowColor = RowColor2 Else strRowColor = RowColor1 End If %> <%End If%>
<%=strAdmTitle%>
<% If strAdmAdminMessage <> "" Then Response.Write "
" & strAdmAdminMessage If strAdmAdminEmailAddress <> "" Then Response.Write "

" Response.Write "
Please address all correspondance to the forum administrator:
[" & strAdmAdminEmailAddress & "]
" End If Else Response.Write "
Please address all correspondance to the forum administrator:
[" & strAdmAdminEmailAddress & "]
" End If Response.Write "
" %>
Forum Name Created Posts Last Post
<%If (adoRs.Fields("BoardScopeStatus").Value = 0 And adoRs.Fields("BoardMessageCount").Value) Or (intLoginStatus = 1 And adoRs.Fields("BoardMessageCount").Value) Then%> "><%=adoRs.Fields("BoardName").Value%><%=strPrivateBoardLabel%> <%Else%> <%=adoRs.Fields("BoardName").Value%><%=strAvailable%><%=strPrivateBoardLabel%> <%End If%>
<%=adoRs.Fields("BoardDescShort").Value%>

<%=GetBoardDateShort(adoRs.Fields("RecordCreateDate").Value)%>

<%=adoRs.Fields("BoardMessageCount").Value%> <%If adoRs.Fields("BoardMessageCount").Value = 0 And intPostStatus <> 0 Then%>
[">Post New] <%End If%>

"><%=GetBoardDateShort(adoRs.Fields("BoardLastPostDate").Value)%>
Archives
Includes archived messages as of <%=GetBoardDateShort(strArchiveDate)%>

<%=GetBoardDateShort(strArchiveDate)%>

<%=lngArchiveCount%> <%=GetPlaural("post", lngArchiveCount)%>

<%=GetBoardDateShort(strArchiveDate)%>
Search Discussion Forums
<%If bbArchivesExist = 1 Then%> <%End If%>
 
Forum
Keyword(s)
(separate keywords with spaces)
All of the words
Any of the words
  Body  Subject
Search the Archives
 
<%=GetHomeLink%>
<%Counterfilename = "befoindx"%> <% Set adoRs = Nothing Set adoConn = Nothing %>