<% if isEmpty(application(dbName&"category")) then response.redirect ("ini.asp") %> <% response.cookies(dbName&"lastvisit") = FormatDateTime(SQLNowDate()) response.cookies(dbName&"lastvisit").Expires = date + 30 Dim qMode:qMode = request.queryString("mode") catApp = request.queryString("catApp") SELECT Case qMode Case "markread" session(dbName&"meminfo") = memID&chr(1)&memLogin&chr(1)&memBrowser&chr(1)&request.cookies(dbName&"lastvisit")&chr(1)&memViewPref response.redirect (selfpage) Case "delcookie" response.cookies(dbName&"lastvisit").Expires = date - 1000 response.cookies(dbName&"membrowser").Expires = date - 1000 response.cookies(dbName&"timefilter").Expires = date - 1000 call delAutoCookies () response.cookies(dbName&"ASPplayground_forum_Speed").Expires = date - 1000 response.cookies(dbName&"alwaysExpand").Expires = date - 1000 response.cookies(dbName&"PMAlwaysSave").Expires = date - 1000 response.cookies(dbName&"memTimeOffset").Expires = date - 1000 response.cookies(dbName&"lanProfile").Expires = date - 1000 response.redirect (selfpage) END SELECT isSearchEngine = isSearchEngineCompatible Dim DefShowMod:DefShowMod = Application(dbName&"DefShowMod") Dim DefShowRight:DefShowRight = Application(dbName&"DefShowRight") Dim body, length, bar, title, news, language, subject, key, catApp, objRS, strSQL Dim hideUnselectedCategories:hideUnselectedCategories = Application(dbName&"hideUnselectedCategories") dim allforum, rights, allcat, timeoffset, mode allforum = application(dbName&"foruminfo") allCat = application(dbName&"Category") timeoffset = Application(dbName&"TimeOffset") Dim ub, isForumArray, minLastPostTime, lastPostMem, lastPostLink isForumArray = isarray(allforum) minLastPostTime = "1980-01-01 12:00:00" Dim arrforumAllowed, allowedForum, iforums Dim arrLastPost, LastMem, LastLogin Dim allData set objRS = server.createobject("adodb.recordset") With objRS .cachesize = 10 .open dbOwnerPrefix&"spDefault ("&application(dbName&"totalmem")-1&")" , datastore, , , adCmdStoredProc if not (.eof and .bof) then LastMem = .fields(1) LastLogin = .fields(0) end if set objRS = objRS.nextRecordset if not (objRS.eof and objRS.bof) then APP_ActiveUsers = objRS.fields(0) ' this is now total active members objRS.close .open dbOwnerPrefix&"spGetAnnouncement", datastore, , , adcmdStoredProc If not (.EOF or .BOF) then allData = .getrows End if .close End With set objRS = nothing %> <%= Application(dbName&"ForumTitle") %> <%= OutputCSS() %> > <% call headerHTML() %>
<%= iff(Application(dbName&"onlineTracking") = 1,ActiveUserTitle & Application(dbName&"pgd_activeUser"),"") %> <%=LoggedInAsTitle & memLogin %> 

<% if isArray(allData) then %>
<% Dim objPGDCode Set objPGDCode = New RegExp objPGDCode.global = true objPGDCode.ignorecase = true %> <% for i = 0 to ubound(allData,2) %> <% subject = SQLout(allData(0,i)) body = SQLout(allData(1,i)) %> <% next %> <% Set objPGDCode = nothing %>
<%= defAnnounceDesc %>
> <%= subject %> -- <%= SQLDate(allData(2,i),0,true) %>
>

<%= PGDCodeResolution(objPGDCode,body,1) %>


<%end if%>
<% If len(catApp)<>0 then %> <%= expandAllCat %> : : <% End If %> <%= DefDelCookies %> : : <%= DefMarkRead %>
<% if DefShowMod = 1 then %> <% end if %> <% Dim rowColor, rowColor1, rowColor2, catAlt ' for nn4 rowColor1 = tableinside rowColor2 = tablealt if Application(dbName&"alterBy") = 0 then rowColor = "" catAlt = tablealt else rowColor = rowColor2 catAlt = tablealt tableinside = "" tablealt = "" end if dim i, k, mo, m, moderators, icon, catLink, proceed, openThisCategory, isCategroyAccessible if len(catApp)<>0 and isNumeric(catApp) then proceed = false 'open one category only catApp = cint(catApp) else proceed = true 'expand all categories end if Dim fStr Set fStr = New StringBuilder Dim objPermission Set objPermission = new PermissionSetting With objPermission .memID = memID for k = 0 to ubound(allCat,2) if (not proceed and k = catApp) or proceed then openThisCategory = true icon = "icon2.gif" else openThisCategory = false icon = "icon3.gif" end if isCategroyAccessible = false fStr.append ("") fStr.append ("") if isForumArray then ub = ubound(allforum,2) for i = 0 to ub if not openThisCategory and hideUnselectedCategories = 1 then exit for ' this category not open .appid = i if (allforum(5,i) = allCat(0,k)) and .VerifyPrivate() then isCategroyAccessible = true if not openThisCategory and hideUnselectedCategories <> 1 then exit for ' this category not open if rowColor = rowColor2 then rowColor = rowColor1 else rowColor = rowColor2 fStr.append("") fStr.append("") fStr.append("") fStr.append("") fStr.append("") fStr.append("") if DefShowMod = 1 then if not isNull(allforum(12,i)) then moderators = trim(replace(allforum(12,i),"|",", ")) if right(moderators,1)="," then moderators = left(moderators,len(moderators)-1) end if fStr.append("") end if fStr.append("") end if moderators="" next end if if isCategroyAccessible then response.write (fStr.Value) fStr.reset next end with Set fStr = nothing Set objPermission = nothing tForum = 0 totalposts = 0 totaltopics = 0 if isarray(allforum) then for i = 0 to ub totalposts = totalposts + allforum(3,i) totaltopics = allforum(4,i) + totaltopics next tForum = ub + 1 end if %>
<%= ForumTitleDesc %> <%= TopicTitleDesc %> <%= PostTitleDesc %> <%= LastTitleDesc %> <%= ModeratorTitleDesc %>
") fStr.append (""&allCat(1,k)&"") fStr.append ("
") if not allforum(15,i)="" then fStr.append ("") else fStr.append (" ") end if fStr.append("") if isSearchEngine > 0 then fStr.append(""& allforum(1,i) &" ") else fStr.append(""& allforum(1,i) &" ") end if fStr.append ("") if DefShowRight = 1 then if allforum(6,i)<> 1 then fStr.append("("& disright(allforum(9,i),allforum(10,i),"")&")") else fStr.append("("& disright("","",allforum(8,i))&")") end if end if fStr.append("
"& allforum(2,i)) fStr.append("
"&allforum(4,i)&""&allforum(3,i)&"") Dim latestPostTime latestPostTime = SQLdate(allforum(15,i), timeoffset, true) Dim arrLastModified, strLastModified arrLastModified = "" strLastModified = "" if not (isNull(allforum(14,i)) or len(allforum(14,i))=0) then arrLastModified = split(allforum(14,i),"|") strLastModified = ""&SQLout(arrLastModified(1))&" ..
"&arrLastModified(2) strLastModified = replace(strLastModified,"%DATE%",""&latestPostTime&"") fStr.append (strLastModified) if CDate(allforum(15,i))>CDate(minLastPostTime) then minLastPostTime = allforum(15,i) lastPostMem = replace(arrLastModified(2),"%DATE%
","") lastPostLink = ""&latestPostTime&"" end if end if fStr.append(" 
"&moderators&" 

<% tableinside = rowColor1 tablealt = rowColor2 %> <% getSessionType = 0 %>
<%= DefForumStatDesc %>
class="info"> <%= replace(replace(replace(replace(DefForumStat,"#totalusers#",""& application(dbName&"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 %>
<%= replace(DefItTookASPPG,"#secgen#",""& timer()-nstart &"") %>
<%= defCurrentTime&SQLDate(SQLNowDate,timeoffset,true) %>


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