%@ 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%> | ||||
|
||||
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 | ||||