<% Dim forumid,objCon Dim qMode:qMode = request.queryString("mode") if isEmpty(qMode) then qMode = Applications("defCatAppear")&"" Dim requestForumID:requestForumID = request.querystring("forumid") SELECT Case qMode Case "markread" call sessAssign("meminfo", Join(Array(memID,FormatDateTime(SQLNowDate())),chr(1))) response.cookies(dbName&"tTrack").Expires = date - 1000 response.cookies(dbName&"fTrack").Expires = date - 1000 call ExecuteSQL("update pgd_members set lastlogin = getDate() WHERE mem="&memID,adCmdText) response.clear response.redirect (selfpage) response.end Case "delcookie" call delAutoCookies () response.cookies(dbName&"lanProfile").Expires = date - 1000 response.cookies(dbName&"lastvisit").Expires = date - 1000 response.clear response.redirect (selfpage) response.end END SELECT isSearchEngine = isSearchEngineCompatible Dim body, length, bar, title, news, subject, catid, objRS, strSQL Dim allforum, rights, allcat, timeoffset, mode,i timeoffset = Applications("TimeOffset") Dim ub, isForumArray, minLastPostTime, lastPostMem, lastPostLink minLastPostTime = "1980-01-01 12:00:00" Dim arrforumAllowed, allowedForum, iforums Dim arrLastPost, LastMem, LastLogin Dim allData, multipleArrays multipleArrays = getNumArrayViaRS("exec "&dbOwnerPrefix&"spDefault "&Applications("lastMem")&" exec "&dbOwnerPrefix&"spGetAnnouncement "&memID&",1,0", adCmdText,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 objPGDCode Set objPGDCode = New RegExp objPGDCode.global = true objPGDCode.ignorecase = true Dim objForumDisplay,strForumTables Set objForumDisplay = new DisplayBaseForum With objForumDisplay .rowColor1 = tableinside .rowColor2 = tablealt .alterColorBy = Applications("alterBy") .defaultPageLevel = iff(qMode="0",0,1) .forumArray = allforum .showModeratorColumn = Applications("DefShowMod") .requestedForumID = requestForumID Set .objPGDCode = objPGDCode strForumTables = .Display totalPosts = .totalPosts totalTopics = .totalTopics tForum = .totalForums End With Set objForumDisplay = nothing %> <%= Applications("metatags") %> <%= OutputCSS() %> > <% call 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(objPGDCode,body,1,0) %>

<%end if%>

<% If len(requestForumID)<>0 then %> <%= expandAllCat %> : : <% End If %> <%= DefDelCookies %> : : <%= DefMarkRead %> <% if not isGuest then %> : : <%= DefResetLastVisit %> <% End If %> : : "><%= iff(qMode="0",defOpenAllCat,defCloseAllCat) %>

<%= strForumTables %>

<% Dim mo, m %> <% getSessionType = 0 %>
<% if Applications("showtodayseventbirthday")=1 then %> <% Dim allCal, allAvailCalID, allEvents,allBirthdays allCal = GetArrayViaRS(dbownerprefix&"spGetCalendarLists ("&memID&")", adCmdStoredProc) if isArray (allCal) then allAvailCalID = Join(extractOneDimension(allCal,0),",") end if allBirthdays = GetArrayViaRS(dbownerprefix&"spGetTodaysBday", adCmdStoredProc) if not isEmpty(allAvailCalID) then allEvents = GetArrayViaRS(dbownerprefix&"spGetAllEventsByRange1 ('"&replace(SQLNowDateOnly,"-","")&" 00:00:00','"&replace(SQLNowDateOnly,"-","")&" 23:59:59','"&allAvailCalID&"')", adCmdStoredProc) end if %>

<%= calTodaysEvents %> class="info"> <% call GenerateUpcomingCalendar(SQLNowDate(),allEvents,objPGDCode,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 %>

<% Set objPGDCode = nothing %> <% call footerHTML() %>