<% Dim qMode As String Dim requestForumID As Integer qMode = Request.QueryString("mode") If qMode = "" Then qMode = Applications("defCatAppear") & "" End IF requestForumID = Request.QueryString("forumid") Select Case qMode Case "markread" sessAssign("meminfo", Join(New Object() { memID, FormatDateTime(SQLNowDate() ) }, CStr(Chr(1)))) Response.Cookies(dbName & "tTrack").Expires = System.DateTime.ToDay.AddDays(-1000) Response.Cookies(dbName & "fTrack").Expires = System.DateTime.ToDay.AddDays(-1000) ExecuteSQL("update pgd_members set lastlogin = getDate() WHERE mem=" & memID, CommandType.Text) Response.Clear() Response.Redirect(selfPage) Response.End() Case "delcookie" delAutoCookies() Response.Cookies(dbName & "lanProfile").Expires = System.DateTime.ToDay.AddDays(-1000) Response.Cookies(dbName & "lastvisit").Expires = System.DateTime.ToDay.AddDays(-1000) Response.Clear() Response.Redirect(selfPage) Response.End() End Select isSearchEngine = isSearchEngineCompatible Dim body, bar, title, news As String Dim length As Integer Dim subject, catid, strSQL As String Dim allforum, allcat As Object Dim rights As String Dim i As Integer Dim ub As Integer, isForumArray As Boolean, minLastPostTime, lastPostMem, lastPostLink As String Dim arrforumAllowed, allowedForum, iforums As Boolean Dim arrLastPost, LastMem, LastLogin As String Dim allData, multipleArrays As Object timeoffset = Applications("TimeOffset") minLastPostTime = "1980-01-01 12:00:00" multipleArrays = getNumArrayViaRS("exec " & dbOwnerPrefix & "spDefault " & Applications("lastMem") & " exec " & dbOwnerPrefix & "spGetAnnouncement " & memID & ", 1, 0", CommandType.Text, 3) allforum = multipleArrays(2) allData = multipleArrays(3) If IsArray(multipleArrays(0)) Then LastMem = multipleArrays(0)(1, 0) LastLogin = multipleArrays(0)(0, 0) End IF If IsArray(multipleArrays(1)) Then APP_ActiveUsers = multipleArrays(1)(0, 0) End IF isForumArray = IsArray(allforum) Dim objForumDisplay As DisplayBaseForum, strForumTables As String objForumDisplay = New DisplayBaseForum() With objForumDisplay ' Add start... .Applications = Applications .isAdmin = isAdmin .memID = memID .isSearchEngine = isSearchEngine .searchDelimiter = searchDelimiter .forumDir = forumDir .TableTitle = TableTitle .TitleFontColor = TitleFontColor .ForumTitleDesc = ForumTitleDesc .TopicTitleDesc = TopicTitleDesc .PostTitleDesc = PostTitleDesc .LastTitleDesc = LastTitleDesc .ModeratorTitleDesc = ModeratorTitleDesc .timeoffset = timeoffset .memTimeOffset = memTimeOffset .minLastPostTime = minLastPostTime .lastPostLink = lastPostLink .lastPostMem = lastPostMem .defSubForumDesc = defSubForumDesc .defRedirectDesc = defRedirectDesc .finalKeysToHighLite = finalKeysToHighLite .finalBadWordToBan = finalBadWordToBan .NoSmile = NoSmile .NoImage = NoImage .NoIMGinPosts = NoIMGinPosts .alladmin = alladmin .allfmanager = allfmanager .allumanager = allumanager .genThumbNail = genThumbNail ' =====End===== .rowcolor1 = TABLEINSIDE .rowcolor2 = TABLEALT .altercolorby = Applications("alterBy") .defaultpagelevel = iff(qMode = "0", 0, 1) .forumarray = allforum .showmoderatorcolumn = Applications("DefShowMod") .requestedforumid = requestForumID strForumTables = .Display() totalposts = .totalPosts totaltopics = .totalTopics tForum = .totalForums() minLastPostTime = .minLastPostTime lastPostMem = .lastPostMem lastPostLink = .lastPostLink End With objForumDisplay = Nothing %> <%= Applications("ForumTitle") %> <%= Applications("metatags") %> <%= OutputCSS %> > <% headerHTML() %>
<%= iff(Applications("onlineTracking") = 1, ActiveUserTitle & APP_ActiveUsers, "") %> <%= LoggedInAsTitle & memLogin %> 

<% If IsArray(allData) Then %>
<% For i = 0 To UBound(allData, 2)%> <% subject = SQLout(allData(0, i)) body = SQLout(allData(1, i)) %> <% Next %>
<%= defAnnounceDesc %>
> <%= subject %> -- <%= SQLDate(allData(2, i), 0, true) %>
> <%= PGDCodeResolution(body, 1, 0) %>

<% End IF %>
<% If requestForumID <> 0 Then %> <%= expandAllCat %> : : <% End IF %> <%= DefDelCookies %> : : <%= DefMarkRead %> <% If Not isGuest Then %> : : <%= DefResetLastVisit %> <% End IF%> : : "><%= iff(qMode = "0", defOpenAllCat, defCloseAllCat) %>
<%= strForumTables %>

<% getSessionType = 0 %>
<% Dim allCal As Object , allAvailCalID As String, allEvents, allBirthdays As Object If Applications("showtodayseventbirthday") = 1 Then %> <% allCal = GetArrayViaRS("exec " & dbOwnerPrefix & "spGetCalendarLists " & memID , CommandType.Text) If IsArray(allCal) Then allAvailCalID = Join(ExtractOneDimension(allCal, 0), ",") End IF allBirthdays = GetArrayViaRS(dbOwnerPrefix & "spGetTodaysBday", CommandType.StoredProcedure) If allAvailCalID <> "" Then allEvents = GetArrayViaRS("exec " & dbOwnerPrefix & "spGetAllEventsByRange1 '" & Replace(SQLNowDateOnly(),"-","") & " 00:00:00','" & Replace(SQLNowDateOnly(),"-","") & " 23:59:59','" & allAvailCalID & "'", CommandType.Text) End IF %>
<%= calTodaysEvents %>
class="info"> <% GenerateUpcomingCalendar(SQLNowDate(), allEvents, 1, SQLNowDate()) %>
<%= calTodaysBirthday %>
class="info"> <% If IsArray(allBirthdays) Then ub = UBound(allBirthdays, 2) For i = 0 To ub %> <%= allBirthdays(1, i) %> <% Next Else %><%= calNoBirthdaysToday %> <% End IF%>

<% End IF %>
<%= DefForumStatDesc %>
class="info"> <%= Replace(Replace(Replace(Replace(DefForumStat, "#totalusers#", "" & Applications("totalmem") & ""), "#totalposts#", "" & totalposts & ""), "#totalforums#", "" & tForum & ""), "#totaltopics#", "" & totaltopics & "") %>
<%= DefWelcomeNewUser %> <%= HTMLEncode("" & LastLogin) %>
<% If "" & minLastPostTime <> "1980-01-01 12:00:00" Then %> <%= DefLatestPostMade %> <%= lastPostMem %> <%= DefLatestPostOn %> <%= lastPostLink %>
<% End IF %> <%= DefSearchYouCanClick %> <%= DefSearchTodaysPosts %> | <%= DefSearchMostActive %> | <%= DefSearchLastVisit %>
<%= defCurrentTime & SQLDate(SQLNowDate, timeoffset, true) %>


<%= newMessageDesc %> <%= oldMessageDesc %>
<% footerHTML() %>