D*j'kY:_!`|fK$ڀPӁDLj)o]x!DŽr"rY$}jET^&#c>umEvJʥwV `f1y1 s@e, eC60 JFpSUa4fa9hNK"]kҲ!o<&}0\/,dxzBJ5ذ*3Y*Śɖrގ\qvbxP+7n ʔC0-\MKx+9Orc/3G@2(K^TxLZ CNtd> kR79LπgSiN62cPA,W6͏GBwvbsZ->0V|1494)%h@*-&x7Z&vzq#%9Y\r]rsS١:Sy%3'0dDB(flWt(q\82}8TyU |'Q!rk91O(cY6 V^[Uu, CQ4Q;.VbG?E""I(".E RC A'D"Kq'uP5}H}s$!zC@6;'+=5nSq-EGKOˠ=N'.=.C%(ѶE.,J'/5~^-b >:{ <ɫiȐȠ/p‚P|TE.?btpƲ }3*ğώ pk.ZFU*,p&4 A٣ $0|O"R1s#KppaÁ- SQ&U `RO.PM-P  Th <>MCK \T׵8<3Ψ#XLC& !H %9>!I9ަmoyƱyHhSxC1F9Z9kZ{rRqWLN#r+"/З+A_ +@f8}0Sn6k mt(L0Ы)7.3,˖}i#hQk6hDZrl6*`*oOsMNLévN#3*[b2e4 6DeFgw~g''oOɅSl-4QQh(ԃ̓=OhͦkTBIPahͯw)ZOt&,8*™o?1&!?c^\wGb/17UUk4o ckၼ+ uug(׮U7]W1:g+XLBnu>#f+7n:HSK:TcUgc9z}V9%cCNQgwA%َ\jń: ⧨1ѷj;!Sc">&"URq(@'mQQMm ʢ=|uN(N {,y@4_1]Ѝ œk ;oėy1iWnQ+%[9(ӡsFQDb W[仁"ej!aWn)ƫ![Vn0z e*'I4n9xnyk9:DP\\>r P*k hLG8e -3kn=-M\" QYkcqnPy3Fw#Q4JA%Jt3'oE R6 Zn ms(19q^jOBl$&)}sQ&1(srƉ"dhBz; sO"bQj}ަitY|Q/ &<ͳ|B4%i @&lD9(gˈJza~OTj#Y=m~ZmZ6;9뾩Y~)).<5td|uSޕHAa/[j&V$ޓC-EIM7I &oi4DLZ7_i=4u>64uDZ'ꔔSRSubKTΒw'DW~'%mͰ;=wg\=_~W8}~\E8N$ϠO8"4Usy).t"%M4J#9h*mP0^1H/LkYUR $V |;ms@9 v9*Pk8 }Ly2`V鯀׀kC0l?~+0vGrIpX.@c[H!-4춿v ` IHGH[RuB82 :U.A{y S _킄W2աFF>;37 }BIB+;mA,yt:k2b gzK(p5!/zD[7xFNFy659SM ♤OgII̒wwxC_ "*l_}+8CnGӨq9UΡ-/0Jç4HL!q"@r]agY{앯sxbhs!I! hbFǩ}bq27CK|QM"(ϖt|svcu4H`4>uD}J0_>هƌ䪇vqg[zt1Į30ea9+8 67da ?|7 $~c4p? ɘ/yTWh(&x4IPk#4]ތG8=D!lg-T:P ܫ=Ce1'^>qI0߷?qB&~9.>WMߠrAA@hh@3 W28νxRu1|@L^GG`$ ӣ :XϢK 31 хWQvPêg m틀M9;BĔ8@.nh<  .szk;mzAݳ X!pP,݀vr^ <PV}MCW' L/H4+ 0s-*{l6o'5 WBbBaD6d_Vp Diŝ6&3[ qo%G.+%`F(*,N 쥐 ᴾVpX2N5"S`4֐M);b߹`GܘCSք-Pf`ƽ(/8޴ ܧ@z' &[Dl&E,-!~'lSn[~GMF\s-=}h3DZ=dBlMaA@*x洃fO_oJݓc:Oe=]PZ[3tΔue?2H#%`YyYf= d8dFŦ'̽+< CqK|Gv{#!j _  \͑b |*mߢ]LYflgL3G2\ZgHKR{T?HWKexr=~Ŀg'S ϳ< axs#38< as,A +l(6e#F"vZq 5{[\j)ϙՋ?CX@張G.Gg1iL{ Auy͋Nt+]`XKls&BǓRMJ&ꜙexT ~{~oZ.Y@,x:鄧x6xIÓ'Ojjh {~mRx̀uR;m6pXk4 lbֆTUc xvG߂F|6_<6GO+&-0Ar6GO/I-铝Ddmtf.VwRyal POUb$~7n"6U}@XLeƂ+sݸNsn.ఃs#*ra}߉"GGty|9W0UރS(SU:~<#[ɩ3 rZw5|/}q{|~Y)$b9M6Ґp2*L' Oy *iOA^>EŰ,֡ϪX::_uDp6gO $p!ޢzdqT+hE6q26xYk*ȷs#&_WYPwZ)}>c Aqn7j;-7U% ,l=mAc^`^1fvu@H⵹W$h:xjحX!3Eڙ_ȶ,3mߍ@f= A otZ+H1Xa/j͜aހ𥳐SZZUgڛF PP~yK߱ei ի9[u]\= IiN.Xt: "%٢Qf'%-Ds5jdeaJ_}tѳA'8}f$d֔FL`_>"^ta:e+0 Y@F\[ROAیUk'aa,EN|```%%_|ZC/1Y 3(6B2 =%<#R6Ŧ%u!Z ;IM>boD;g$s, 1O@Fn{a6r(4Ħ5v1|͍f(U m= oS.kȢc|}2H;'khd% tk{9so) J*;]&xOmz}0*aЍ^9ha@T !IkQt_AӁvA7YoFWڂG*-8} F#bڋ(862g* {T{(rY(:>ݎpBܑЙĵ'ٛ@N0"!h& +k}q#I WG֖T =͜]=T>jqxpPAɐ!dLZu UfF|)frUb4)'w㷈X ?Q*@>-6~3$ߥ-A9_Er냸5?aMmUVrdG+@7MKFDI#}v2!ARZE3O>J.Vn]eBiK_ACPRQC 8V/ rƁq?qOPN: Tஞ9 !Fו|dw$eouB\OlX`jr$szꀼp2^8ʓM%(sή9N'6yvZwI%!V&$FS\ uEotIh =sBK*fi7*C6i':gES,l"F$qDYAMcIIIfkWKo0=Q= mni ֓7M[+LM9rk'|CAT_ID = " & CatID elseif ModLevel = "FORUM" then strSql = strSql & " AND R.FORUM_ID = " & ForumID elseif ModLevel = "TOPIC" or ModLevel = "ALLPOSTS" then strSql = strSql & " AND R.TOPIC_ID = " & TopicID else strSql = strSql & "AND R.REPLY_ID = " & ReplyID end if end if set rsLoop = my_Conn.Execute (strSql) if rsLoop.EOF or rsLoop.BOF then ' Do nothing - No records matching the criteria were found else do until rsLoop.EOF LoopMemberName = rsLoop("M_NAME") LoopMemberID = rsLoop("MEMBER_ID") LoopCatID = rsLoop("CAT_ID") LoopForumID = rsLoop("FORUM_ID") LoopTopicID = rsLoop("TOPIC_ID") LoopReplyID = rsLoop("REPLY_ID") LoopPostDate = rsLoop("POST_DATE") StrSql = "UPDATE " & strTablePrefix & "REPLY " StrSql = StrSql & " set R_STATUS = " if Mode = 1 then StrSql = StrSql & " 1" strSql = strSql & " , R_LAST_EDIT = '" & DateToStr(strForumTimeAdjust) & "'" LoopPostDate = DateToStr(strForumTimeAdjust) else StrSql = StrSql & " 3" end if StrSql = StrSql & " WHERE REPLY_ID = " & LoopReplyID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords if Comments <> "" then Send_Comment_Email LoopMemberName, LoopMemberID, LoopCatID, LoopForumID, LoopTopicID, LoopReplyID end if if Mode = 1 then doPCount UpdateTopic LoopTopicID, LoopMemberID, LoopPostDate, LoopReplyID UpdateForum "Post", LoopForumID, LoopMemberID, LoopPostDate, LoopTopicID, LoopReplyID UpdateUser LoopMemberID, LoopPostDate ProcessSubscriptions LoopMemberID, LoopCatID, LoopForumID, LoopTopicID, "No" end if rsLoop.MoveNext loop end if rsLoop.Close set rsLoop = nothing ' ## Build final result message if ModLevel = "BOARD" then Result = "All Topics and Replies have " elseif ModLevel = "CAT" then Result = "All Topics and Replies in this Category have " elseif ModLevel = "FORUM" then Result = "All Topics and Replies in this Forum have " elseif ModLevel = "TOPIC" then Result = "This Topic has " elseif ModLevel = "ALLPOSTS" then Result = "All posts for this topic have " else Result = "This Reply has " end if if Mode = 2 then Result = Result & " Been Placed on Hold." elseif Mode = 3 then Result = Result & " Been Deleted." else Result = Result & " Been Approved." end if Response.Write "

" & Result & "

" & vbNewline & _ " " & vbNewLine end sub sub Delete ' Loop through the topic table to determine which records need to be updated. if ModLevel <> "Reply" then strSql = "SELECT T.CAT_ID, " strSql = strSql & "T.FORUM_ID, " strSql = strSql & "T.TOPIC_ID, " strSql = strSql & "T.T_LAST_POST as Post_Date, " strSql = strSql & "M.M_NAME, " strSql = strSql & "M.MEMBER_ID " strSql = strSql & " FROM " & strTablePrefix & "TOPICS T, " strSql = strSql & strMemberTablePrefix & "MEMBERS M" strSql = strSql & " WHERE (T.T_STATUS = 2 OR T.T_STATUS = 3) " strSql = strSql & " AND T.T_AUTHOR = M.MEMBER_ID" ' Set the appropriate level of moderation based on the passed mode. if ModLevel <> "BOARD" then if Modlevel = "CAT" then strSql = strSql & " AND T.CAT_ID = " & CatID elseif Modlevel = "FORUM" then strSql = strSql & " AND T.FORUM_ID = " & ForumID else strSql = strSql & " AND T.TOPIC_ID = " & TopicID end if end if set rsLoop = my_Conn.Execute (strSql) if rsLoop.EOF or rsLoop.BOF then ' Do nothing - No records meet this criteria else do until rsLoop.EOF LoopCatId = rsLoop("CAT_ID") LoopForumID = rsLoop("FORUM_ID") LoopTopicID = rsLoop("TOPIC_ID") LoopMemberName = rsLoop("M_NAME") LoopMemberID = rsLoop("MEMBER_ID") if Comments <> "" then Send_Comment_Email LoopMemberName, LoopMemberID, LoopCatID, LoopForumID, LoopTopicID, 0 end if strSql = "DELETE FROM " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE CAT_ID = " & LoopCatID strSql = strSql & " AND FORUM_ID = " & LoopForumID strSql = strSql & " AND TOPIC_ID = " & LoopTopicID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords ' -- If approving, make sure to update the appropriate counts.. rsLoop.MoveNext loop end if rsLoop.Close set rsLoop = nothing end if ' Update the replies if appropriate strSql = "SELECT R.CAT_ID, " & _ "R.FORUM_ID, " & _ "R.TOPIC_ID, " & _ "R.REPLY_ID, " & _ "R.R_STATUS, " & _ "R.R_DATE as Post_Date, " & _ "M.M_NAME, " & _ "M.MEMBER_ID " & _ " FROM " & strTablePrefix & "REPLY R, " & strMemberTablePrefix & "MEMBERS M" & _ " WHERE (R.R_Status = 2 OR R.R_Status = 3) " & _ " AND R.R_AUTHOR = M.MEMBER_ID " if ModLevel <> "BOARD" then if ModLevel = "CAT" then strSql = strSql & " AND R.CAT_ID = " & CatID elseif ModLevel = "FORUM" then strSql = strSql & " AND R.FORUM_ID = " & ForumID elseif ModLevel = "TOPIC" then strSql = strSql & " AND R.TOPIC_ID = " & TopicID else strSql = strSql & "AND R.REPLY_ID = " & ReplyID end if end if set rsLoop = my_Conn.Execute (strSql) if rsLoop.EOF or rsLoop.BOF then ' Do nothing - No records matching the criteria were found else do until rsLoop.EOF if Comments <> "" then Send_Comment_Email rsLoop("M_NAME"), rsLoop("MEMBER_ID"), rsLoop("CAT_ID"), rsLoop("FORUM_ID"), rsLoop("TOPIC_ID"), rsLoop("REPLY_ID") end if if rsLoop("R_STATUS") = 2 then strSql = "UPDATE " & strTablePrefix & "TOPICS " strSql = strSql & " SET T_UREPLIES = T_UREPLIES - 1 " strSql = strSql & " WHERE TOPIC_ID = " & rsLoop("TOPIC_ID") my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords end if StrSql = "DELETE FROM " & strTablePrefix & "REPLY " StrSql = StrSql & " WHERE REPLY_ID = " & rsLoop("REPLY_ID") my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords rsLoop.MoveNext loop end if rsLoop.Close set rsLoop = nothing ' ## Build final result message if ModLevel = "BOARD" then Result = "All Topics and Replies have " elseif ModLevel = "CAT" then Result = "All Topics and Replies in this Category have " elseif ModLevel = "FORUM" then Result = "All Topics and Replies in this Forum have " elseif ModLevel = "TOPIC" then Result = "This Topic has " elseif ModLevel = "ALLPOSTS" then Result = "All posts for this topic have " else Result = "This Reply has " end if if Mode = 2 then Result = Result & " Been Placed on Hold." elseIf Mode = 3 then Result = Result & " Been Deleted." else Result = Result & " Been Approved." end if Response.Write "

" & Result & "

" & vbNewline & _ " " & vbNewLine end sub ' ## ModeForm - This is the form which is used to determine exactly what the admin/moderator wants ' ## to do with the posts he is working on. sub ModeForm Response.Write "
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " {%eb7ЦܝuSex>6(PKex>6(PKgJ$b Cgג}`1NlShLgBX."9hLgBX."VhW7yNQs]o]0hW7yNQs]o]Sk6apGHq,v )J-pGHq,v )J;pGHq,v )JVpGHq,v )LpGHq,v )LQpGHq,v )NBpGHq,v )NQpGHq,v )O_qz񈰡=N0qz񈰡=NOt)&Ɣuz \t)&Ɣuz 4t)&Ɣuz 5t)&Ɣuz % t7!v u}}dth3ifZlStVFp?WJ\d&v>9TCp4'\v U l $;Ri !8Of}5Lcz2I`w/F]t,CZq)@Wn&=Tk #:Qh  7Ne|4Kby1H_v.E\s+BYp(?Vm%<Sj "9Pg~6M"c$4E.%Wp*s[`'\' J' ' 2F' D^*`[7//S* nKs6D+XѠru륆zJ+XѠru륆zJO&+mynl.򚜟ʾ +mynl.򚜟ʾ +mynl.򚜟ʾ[+mynl.򚜟ʾ^+mynl.򚜟ʾ?+mynl.򚜟ʾ,+mynl.򚜟ʾ +mynl.򚜟ʾ+mynl.򚜟ʾ+mynl.򚜟ʾ)J+mynl.򚜟ʾ++mynl.򚜟ʾ++mynl.򚜟ʾ0S+mynl.򚜟ʾ4Y+mynl.򚜟ʾ9(+mynl.򚜟ʾ9:+mynl.򚜟ʾAX+mynl.򚜟ʾB'+mynl.򚜟ʾI+mynl.򚜟ʾI+=38e\W0+=38e\WS+=38e\W+=38e\WUc+87YA@ Fb-Ħ{6'KYP P-Ħ{6'KYP -Ħ{6'KYPP-Ħ{6'KYP^-Ħ{6'KYP?-Ħ{6'KYP8M-Ħ{6'KYP9(-Ħ{6'KYPB'-Ħ{6'KYPI-Ħ{6'KYPI0@4 iL&EZJ2A:4:2`dq?.2Jd -& 6Z03+<(5R04w#ZJ<(24w#ZJ<(2[4w#ZJ<(2 4w#ZJ<(214w#ZJ<(24w#ZJ<(2)4w#ZJ<(2 4w#ZJ<(24w#ZJ<(2*4w#ZJ<(20V4w#ZJ<(24+4w#ZJ<(2404w#ZJ<(2414w#ZJ<(2AT6h)ֈP'd89]p0lDW89]p0lDX89]p0lD89]p0lD 89]p0lD189]p0lD&89]p0lD 89]p0lD 89]p0lD &89]p0lD89]p0lD?89]p0lDI89]p0lD[89]p0lD89]p0lD89]p0lD89]p0lDS89]p0lD"89]p0lD#89]p0lD,89]p0lD/89]p0lD189]p0lD489]p0lD\89]p0lD(89]p0lD)89]p0lDR89]p0lD89]p0lD&89]p0lD$89]p0lD$89]p0lD$H89]p0lD&89]p0lD(489]p0lD*89]p0lD*489]p0lD*B89]p0lD*U89]p0lD*[89]p0lD+89]p0lD+D89]p0lD, 89]p0lD.T89]p0lD/89]p0lD0J89]p0lD0S89]p0lD0T89]p0lD0U89]p0lD0V89]p0lD1D89]p0lD2V89]p0lD3Y89]p0lD489]p0lD489]p0lD4+89]p0lD4089]p0lD4189]p0lD4Y89]p0lD6J89]p0lD8)89]p0lD8*89]p0lD8,89]p0lD8.89]p0lD8189]p0lD9689]p0lD9:89]p0lD9;89]p0lD9D89]p0lD9E89]p0lD9F89]p0lD9Z89]p0lD:89]p0lDB!89]p0lDC889]p0lDF89]p0lDG+89]p0lDH89]p0lDI$89]p0lDI489]p0lDIJ89]p0lDJ^89]p0lDJ_89]p0lDK89]p0lDMT:;Nuކ%MLOH:j3ܵ<5& Gbd>IR,2(0pxeOH?dH&,?NI`iBB]2wJV<`p%6DBT y7~rh7$DhMPV8MG< LHGo`Հ9 G<-+rdH:TlBzBH:TlBzH:TlBzH:TlBz4H:TlBz#ZH:TlBz*@H:TlBz-H:TlBzGH:TlBzG/HX(pֻ'HX(pֻ'HX(pֻ',HX(pֻ'.HX(pֻ'/HX(pֻ'0Ig4LDBYK`Z[^*0L 9Ǿx)5dL 9Ǿx)80L 9Ǿx)86L 9Ǿx)8PL 9Ǿx)9 L 9Ǿx)9 L 9Ǿx)9 L