5dž"چpPZ_)CCG㇘ܖ[T5gB? IyV.Bp+R wKc&Q/|HOR0_aPiɞP?iD"N7rˎ',eh Тhi=A \ jICEt)RH"Q8܎eh;^ /^x,7R1PP;Y<c1X/?9rB4xRuy {s/-Mϫ1ݩsz1RHDD[iix -5X$(vrJެM@MMŪkR霨sJ@Ue0i~lv,Y2^aYy-](' P\'R[l;%]Jpeslr D6@reEwR% ,/S%{sh=A]DzVݲ'eAc'@`+rQbSťx,3e@ Ŀi8=A`ݣ ES[ȇ ߹ehƓ9,;?ƷE*n| m3/ڙkEQy,u kVzq<}n>R S/=AU[B O=A`-h NEP_X:y-I+G44[r=A''ڙFdX5Z %yϳ |VY?Sqtފ̰j$9GF+З^͌?̝7/m3;8 gO$uٔ @/\0و ءp=A|j=A?=A~ @ %7d_O` ˛N cuYmAC5L~ܹQ?H_T`ͺ|;=Ai=A'a0eM$* ?$muz=Ag$Z=A\I "ϩml(Mٻ@np>h>XyIik8;Lݜ404T#\t: u7ih T >Z fV1 ҒMŭȢZ(sҊaSk~M0<Ӽ29${Y z 2ho iTg伀ok6\)aUFeԗbmJq픀rG Slj nb6?6 I +e``pg}|tn|t6|t6|t6|t6|t6qF vݎdQB㗊,J=Aҩݶ0-Kc.o>z7;q!a%n]h(`d g $ܕ?֛9Tc\7TIW?7\iI!V/+D0*pQ2.t+(mwY05/Rڞus 2 iԤv0\,=Ar\I*Бݤ-0m+@Ϥ ׸pK k7]e76Њ/FfS\FG <ؒV4˻[̻/_hϢrS"˾Jg P+z2eʩ{lT" aee@ &`v|0h&T!kڔ옙;iI[7_5/6; LeidC iZ)$˾D,/h, 2bG5^ˋhY)\iR& z>OPnP7`\Kw,iIfq@W<[g52 ]m zwJvqSmV|e>jL e,j߇J{[G֙%dUi۷5Бe7ln m]I ˦w/`3Tk(548Y7iSI0$On^*,"񪌋9NP?&{G]M , po"SͮZvGsf:yܓhiU[l[hLTZ EÄh6Wj};y[OAK A =A!|оأ[t9 B^c*};Òs\-oUvrj/>.*)/gق`m13.P&SD i5/Nh`IYQS1@<8Y~^4|A)'{ŭoW s9B :f{U,]!% -$uģC}ŗQ/,g-2 0bpeqӂ'gh!g w?pоrS⁚[[@4[e0ԃpJZBfq6w3)z4|/[ բ]|xr=Aܰ[9quY~b)LHa3_.%ovŸfKs-KoZ9D, H2I/6--m72WuZE`s8 {B/ 79՜1^y;T.F#6A`Ɗj؇1Oxavg8r$ =Avg׿OG`nee l?QaE5 [?sR(=A' Z70ښS-k3e: ٝZBX`A<&UV]g\I((͌쐶7gr0ey}FC:ܦBm(櫮Ԗf|%,iLO<-TRN[ kK**se^ Q %i#ΔO ay[=AG[ hKxao Zo&ɶm'ᕙ?AzMxFh2>SaRg!78S~}!(ipLsȘpi|5 C+\)U/T/ڿ@|Ŭ!t!tL=AK)`=A2B/=A)?=AzF=ATN=A' FIN0KbK^zδv[՘92zwLH~6{=A\:y hmH- fɹT$NY<]hyG ?~'GYH=A;Ksv=A+Nk%jX/6ӵ$G?[ 0y=A[dT /eBmKe<`O<" ݿ/[a=A 5lpo$OR@ dWu|v=A=At\2e =AR݂ɭ4Q?'yI/q 7H -f Nv3Ҹ;-]t4A3j)pۺZ>Cᙓ[G%i^cz4 [tЦБ=AwK̀` /+Ղkۭ~fAd#4Jo33Wp[frΒbن5>i0.0Q ݸPZG˥ly;363?6MĩhY>4R cOsGpxND#r>iAȫE*Ϋ9Ń'2s"oa :`ݙlgܠ+HHHHHHHHHHHHHHHHHHHa㲯ݦ[JbDzQ_SkcMA:|CK0z=A9=A9F=A0=Ad/@=A =A7QVth }spÝNv$mqZDE`} d FE|V'V)b۾BI紘 /0ޓm[bܥ`4pf:kz|?;AbĹwJ|銵 YmdF7epv%iըbFpx޺qgaf%o)s92ɖ|AMAo@`0ݱ$dęS7OA]lH˜- ]uas:a!W1D#mO/7=A%X 2j瀺nzwcq{y:JD2-yN Gjh=A" =A"=Aja1 YN i7щI rn|!v{}'n! ]t  n`*{@mQTe-Ǚ?8Cg7WU) 0B| õ׺Uf]ʇ.}W֞,KZiDHg[@[?qx!݇pM"c|kvZa+3ϻb ȟ΃Ž i%gdR},I"s:w$,Kf' os |s$5|`>pBqBBD^hH۾V)H@7 co Th3 Ef 8t!t!t!t!t!t!t!t!0ϜaG$+z!xmy]3sAt]rBe`p,2d)&ox:ިOt **Yy K]V ImD9" O*^Ӗ\Yb(+KCiFa{s,y_,xYr<&ӨLTq;1Ĕeh[^õo񣗤Yolnӹ- | ^% N@ZUc\\b Hĝ1 dU''I5@RƋKh 69W /qs ox"&4}W}XKo'gl& j=AdcEЀeq\Yy>[p]p7A> ] v|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|t6|$m":u%2y#ZOے AzLA =Arz"RKKƲ=Arz"R$ϋsrf&ٸ1hufS,%jUpHrN<8yӖ |LNdZdu^% 7Rn{^ }̑ P! 9V x_鷃@pԥVcrU&k;"bAHa㲯ݦ[JbDzQ_SkcMA쓕7ԧ] m},r\@p7nMj(A4 V>b@fѹ 5Xe-jY ԶNizeZQP'|n] ,>ھZK^=AvjSPKaԆpKP`f)TP\AA8 I[|tAHAHAHAHAHAHAHA} IGY>B jKWh"h6ڔhJb`yy BLzLpyb{Q=AOaB=Ad/@=A =Aooe v^&iY[Ńt'6dp:x,gA\j 9@%E{2W~<<Ӷ)n  Bɢ C|Y]i^.JW>,襳nD^[ -:d  X{iy6GK>pGR dfxLs}x(XMӨWk  Yif -5 %I! Kqp h"k|Ƀ:bFGFW9@> ښy9ްrVOML /Q6 P񁕵 ,^|ف3s-3I3ULOݟ@7K@B=Ad/@=A =A ? K"%G͈ IWW55G1!-wLoJ-tHHHr ᦦm CUj6 A7uX,΍,XG NBCo˧qDIkUkAAWZO@ftK%Ͱ蜕>Z`B+&i޸ؘ8Gwl t~+/- * uGHo?u|UQA3~s N'H#HAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHA;eR=Aշ{{]KI/x}Pz=A?!$.X͢ eSize <> 0 then maxpages = maxpages + 1 end if if iPageTotal < (strPageSize + 1) then intGetRows = iPageTotal elseif (mypage * strPageSize) > iPageTotal then intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal) else intGetRows = strPageSize end if else iPageTotal = 0 maxpages = 0 end if if iPageTotal > 0 then set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText arrMemberData = rs.GetRows(intGetRows) iMemberCount = UBound(arrMemberData, 2) rs.close set rs = nothing else iTopicCount = "" end if else 'end MySql specific code set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = strPageSize rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic If not (rs.EOF or rs.BOF) then rs.movefirst rs.pagesize = strPageSize rs.absolutepage = mypage '** maxpages = cLng(rs.pagecount) arrMemberData = rs.GetRows(strPageSize) iMemberCount = UBound(arrMemberData, 2) else iMemberCount = "" end if rs.Close set rs = nothing end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information		" & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine & _ " " & vbNewLine Call Paging2(1) Response.Write " " & vbNewLine & _ "
" & vbNewLine else Response.Write "  " & vbNewLine end if Response.Write "
" & vbNewLine Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewLine end if next Response.Write " " & vbNewLine & _ "
Search: " & vbNewline & _ " "") or (srchUName = "" and srchFName = "" and srchLName = "") ) then Response.Write(" checked") Response.Write ">User Names" & vbNewline if strFullName = "1" then Response.Write "   First Name" & vbNewline & _ "   Last Name" & vbNewline end if Response.Write " For: " & vbNewline & _ " " & vbNewline if strGfxButtons = "1" then 'Response.Write " " & vbNewline Response.Write " " & vbNewline else Response.Write " " & vbNewline end if Response.Write "
" & vbNewLine & _ " All " & vbNewLine for intChar = 65 to 90 if intChar <> 90 then Response.Write " " & chr(intChar) & " " & vbNewLine else Response.Write " " & chr(intChar) & "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine strNames = "UserName=" & srchUName &_ "&FirstName=" & srchFName &_ "&LastName=" & srchLName &_ "&INITIAL=" &srchInitial & "&" Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strCountry = "1" then Response.Write " " & vbNewLine end if if mlev = 4 or mlev = 3 then Response.Write " " & vbNewLine end if if mlev = 4 or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if iMemberCount = "" then '## No Members Found in DB Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine else mMEMBER_ID = 0 mM_STATUS = 1 mM_NAME = 2 mM_LEVEL = 3 mM_EMAIL = 4 mM_COUNTRY = 5 mM_HOMEPAGE = 6 mM_AIM = 7 mM_ICQ = 8 mM_MSN = 9 mM_YAHOO = 10 mM_TITLE = 11 mM_POSTS = 12 mM_LASTPOSTDATE = 13 mM_LASTHEREDATE = 14 mM_DATE = 15 rec = 1 intI = 0 for iMember = 0 to iMemberCount if (rec = strPageSize + 1) then exit for Members_MemberID = arrMemberData(mMEMBER_ID, iMember) Members_MemberStatus = arrMemberData(mM_STATUS, iMember) Members_MemberName = arrMemberData(mM_NAME, iMember) Members_MemberLevel = arrMemberData(mM_LEVEL, iMember) Members_MemberEMail = arrMemberData(mM_EMAIL, iMember) Members_MemberCountry = arrMemberData(mM_COUNTRY, iMember) Members_MemberHomepage = arrMemberData(mM_HOMEPAGE, iMember) Members_MemberAIM = arrMemberData(mM_AIM, iMember) Members_MemberICQ = arrMemberData(mM_ICQ, iMember) Members_MemberMSN = arrMemberData(mM_MSN, iMember) Members_MemberYAHOO = arrMemberData(mM_YAHOO, iMember) Members_MemberTitle = arrMemberData(mM_TITLE, iMember) Members_MemberPosts = arrMemberData(mM_POSTS, iMember) Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember) Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember) Members_MemberDate = arrMemberData(mM_DATE, iMember) if intI = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if IsNull(Members_MemberLastPostDate) or Trim(Members_MemberLastPostDate) = "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if strCountry = "1" then Response.Write " " & vbNewLine end if if mlev = 4 or mlev = 3 then Response.Write " " & vbNewLine end if if mlev = 4 or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine rec = rec + 1 intI = intI + 1 if intI = 2 then intI = 0 next end if Response.Write "
  Member NameTitlePostsLast PostMember SinceCountryLast Visit 
No Members Found
" & vbNewLine if strUseExtendedProfile then Response.Write " " else Response.Write " " end if if Members_MemberStatus = 0 then Response.Write getCurrentIcon(strIconProfileLocked,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""") else Response.Write getCurrentIcon(strIconProfile,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""") end if Response.Write "" & vbNewLine if strAIM = "1" and Trim(Members_MemberAIM) <> "" then Response.Write " " & getCurrentIcon(strIconAIM,"Send " & ChkString(Members_MemberName,"display") & " an AOL message","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if if strICQ = "1" and Trim(Members_MemberICQ) <> "" then Response.Write " " & getCurrentIcon(strIconICQ,"Send " & ChkString(Members_MemberName,"display") & " an ICQ Message","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if if strMSN = "1" and Trim(Members_MemberMSN) <> "" then Response.Write " " & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Members_MemberName,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if if strYAHOO = "1" and Trim(Members_MemberYAHOO) <> "" then Response.Write " " & getCurrentIcon(strIconYahoo,"Send " & ChkString(Members_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if Response.Write " " & vbNewLine if strUseExtendedProfile then Response.Write " " else Response.Write " " end if Response.Write ChkString(Members_MemberName,"display") & "" & ChkString(getMember_Level(Members_MemberTitle, Members_MemberLevel, Members_MemberPosts),"display") & "" if IsNull(Members_MemberPosts) then Response.Write("-") else Response.Write(Members_MemberPosts) if strShowRank = 2 or strShowRank = 3 then Response.Write("
" & getStar_Level(Members_MemberLevel, Members_MemberPosts) & "") end if end if Response.Write "		-" & ChkDate(Members_MemberLastPostDate,"",false) & "" & ChkDate(Members_MemberDate,"",false) & "" if trim(Members_MemberCountry) <> "" then Response.Write(Members_MemberCountry & " ") else Response.Write("-") Response.Write "" & ChkDate(Members_MemberLastHereDate,"",false) & "" & vbNewLine if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then '## Do Nothing else if Members_MemberStatus <> 0 then Response.Write " " & getCurrentIcon(strIconLock,"Lock Member","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconUnlock,"Un-Lock Member","hspace=""0""") & "" & vbNewLine end if end if if (Members_MemberID = intAdminMemberID and MemberID <> intAdminMemberID) OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID AND MemberID <> Members_MemberID) then Response.Write " -" & vbNewLine else if strUseExtendedProfile then Response.Write " " & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "" & vbNewLine end if end if if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then '## Do Nothing else Response.Write " " & getCurrentIcon(strIconTrashcan,"Delete Member","hspace=""0""") & "" & vbNewLine end if Response.Write "
" & vbNewLine & _ "
" & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine & _ " " & vbNewLine Call Paging2(2) Response.Write " " & vbNewLine & _ "
" & vbNewLine end if Response.Write "
" & vbNewLine & _ "
" & vbNewLine WriteFooter Response.End sub Paging2(fnum) if maxpages > 1 then if mypage = "" then sPageNumber = 1 else sPageNumber = mypage end if if SortMethod = "" then sMethod = "postsdesc" else sMethod = SortMethod end if Response.Write("
" & vbNewLine) if fnum = 1 then Response.Write(" " & vbNewLine) else Response.Write(" " & vbNewLine) end if if srchInitial <> "" then Response.Write(" " & vbNewLine) if sMethod <> "" then Response.Write(" " & vbNewLine) if strMode <> "" then Response.Write(" " & vbNewLine) if searchName <> "" then Response.Write(" " & vbNewLine) if srchUName <> "" then Response.write(" " & vbNewLine) if srchFName <> "" then Response.write(" " & vbNewLine) if srchLName <> "" then Response.write(" " & vbNewLine) if fnum = 1 then Response.Write(" Page: " & vbNewLine) end if for counter = 1 to maxpages if counter <> cLng(sPageNumber) then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if next if fnum = 1 then Response.Write(" of " & maxPages & "" & vbNewLine) else Response.Write(" " & vbNewLine) end if Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) end if end sub Function sGetColspan(lIN, lOUT) if (mlev = "4" or mlev = "3") then lOut = lOut + 2 If lOut > lIn then sGetColspan = lIN Else sGetColspan = lOUT End If end Function %>