<% '################################################################################# '## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% bolAUPage = chkAUPermissions(strAUAllow) bolOverride = chkAUPermissions(strAUAnonOverride) bolAUUA= chkAUPermissions(strAUUA) bolAUIP= chkAUPermissions(strAUIP) bolAULocal= chkAUPermissions(strAULocal) bolFirstAlternating = false 'Change to 'true' to reverse row color alternation intTotalActiveMembers = 0 intTotalActiveGuests = 0 intTotalActiveUsers = 0 if bolAUPage then 'do nothing else response.redirect "default.asp" end if '## Ls3k - Before we can do anything we need to get rid of those slackers who have left ;) deleteInactiveUsers() '## Ls3k - Get counts strSql = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1" set rs = my_conn.execute (strSql) intTotalActiveGuests = rs("CNT") rs.close set rs = nothing strSql = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID <> -1" set rs = my_conn.execute (strSql) intTotalActiveMembers = rs("CNT") rs.close set rs = nothing intTotalActiveUsers = intTotalActiveMembers + intTotalActiveGuests '## Ls3k - Ok, the page header stuff response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine if strAURefresh = "1" then doAutoReload() end if response.write " " & VBNewLine & _ "
" & VBNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangMOD_Ls3kAU_01000) & "" & VBNewLine & _ "
" & VBNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangMOD_Ls3kAU_01010) & "
(" & fLang(strLangMOD_Ls3kAU_01020) & " " & chkDate(DateToStr(strForumTimeAdjust)," ",true) & ")" & VBNewLine & _ "
" & VBNewLine & _ "
" & VBNewLine '## Ls3k - Admin/Mod color key if strAUAdminColor <> "" or strAUModColor <> "" then response.write "
[ " & fLang(strLangMOD_Ls3kAU_00050) & " | " & fLang(strLangMOD_Ls3kAU_00060) & " ]
" & VBNewLine end if '## Ls3k - Lets begin building the main table, header row info first, and determine colspan colspan=4 response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine & _ "
" & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine if bolAUUA then colspan=colspan+1 response.write " " & VBNewLine end if if bolAUIP then colspan=colspan+1 response.write " " & VBNewLine end if if bolAULocal then colspan=colspan+1 response.write " " & VBNewLine end if response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine '## Ls3k - Get Online Members information, and print whatever we get strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, AU.AU_IP, AU.AU_LOGINTIME, AU.AU_LASTACTIVETIME, AU.AU_LASTPAGE, ME.M_ICQ, ME.M_YAHOO, ME.M_AIM, ME.M_MSN, ME.M_LEVEL, AU.AU_QUERYSTRING, AU.AU_USER_AGENT " & _ "FROM " & strTablePrefix & "ACTIVE_USERS AU, " & strMemberTablePrefix & "MEMBERS ME " & _ "WHERE AU.MEMBER_ID = ME.MEMBER_ID" set rsAM = my_conn.execute (strSql) if rsAM.EOF or rsAM.BOF then else response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine bolAlternating = bolFirstAlternating do until rsAM.EOF strLastPage = rsAM("AU_LASTPAGE") strQS = rsAM("AU_QUERYSTRING") if bolAlternating then CColor = strAltForumCellColor else CColor = strForumCellColor end if bolAlternating = not(bolAlternating) response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine if bolAUUA then response.write " " & VBNewLine end if if bolAUIP then response.write " " & VBNewLine end if if bolAULocal then response.write " " & VBNewLine end if response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine rsAM.movenext loop rsAM.close set rsAM = nothing end if '## Ls3k - Get Online Guest information strSql = "SELECT AU_IP, AU_LOGINTIME, AU_LASTACTIVETIME, AU_LASTPAGE, AU_QUERYSTRING, AU_USER_AGENT " & _ "FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1" set rsAG = my_conn.execute (strSql) if rsAG.EOF or rsAG.BOF then rsAG.close set rsAG = nothing else response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine bolAlternating = bolFirstAlternating do until rsAG.EOF strLastPage = rsAG("AU_LASTPAGE") strQS = rsAG("AU_QUERYSTRING") c=c+1 if bolAlternating then CColor = strAltForumCellColor else CColor = strForumCellColor end if bolAlternating = not(bolAlternating) response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine if bolAUUA then response.write " " & VBNewLine end if if bolAUIP then response.write " " & VBNewLine end if if bolAULocal then response.write " " & VBNewLine end if response.write " " & VBNewLine & _ " " & VBNewLine & _ " " & VBNewLine rsAG.movenext loop rsAG.close set rsAG = nothing end if '## Ls3k - Closing Main Table response.write "
 " & fLang(strLangMOD_Ls3kAU_01030) & "" & fLang(strLangMOD_Ls3kAU_01040) & "" & fLang(strLangMOD_Ls3kAU_01050) & "" & fLang(strLangMOD_Ls3kAU_01060) & "" & fLang(strLangMOD_Ls3kAU_01070) & "" & fLang(strLangMOD_Ls3kAU_01080) & "
" & VBNewLine & _ " " & fLang(strLangMOD_Ls3kAU_01090) & " : " & intTotalActiveMembers & "" & VBNewLine & _ "
" if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then profileOptions() else response.write " " end if response.write " " & VBNewLine if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then 'If not anonymous, then lets show em. if strUseExtendedProfile then response.write " " else response.write " " end if if rsAM("M_LEVEL") = 2 then 'If admin or mod, then lets hilight em. response.write "" elseif rsAM("M_LEVEL") = 3 then response.write "" end if response.write rsAM("M_NAME") if rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 then response.write "" end if response.write "" else response.write "[" & fLang(strLangMOD_Ls3kAU_01100) & "]" end if response.write " " & fUserAgent(rsAM("AU_USER_AGENT")) & "" & rsAM("AU_IP") & "" & WhatPage(strLastPage,strQS) & "" & chkDate(rsAM("AU_LOGINTIME"),"
",true) & "
" & abs(DateDiff("n",StrToDate(rsAM("AU_LOGINTIME")),strForumTimeAdjust)) & " " & fLang(strLangMOD_Ls3kAU_01110) & "
" & VBNewLine & _ " " & fLang(strLangMOD_Ls3kAU_01120) & " : " & intTotalActiveGuests & "" & VBNewLine & _ "
 " & fLang(strLangMOD_Ls3kAU_01130) & c & "" & fUserAgent(rsAG("AU_USER_AGENT")) & "" & rsAG("AU_IP") & "" & WhatPage(strLastPage,strQS) & "" & chkDate(rsAG("AU_LOGINTIME"),"
",true) & "
" & abs(DateDiff("n",StrToDate(rsAG("AU_LOGINTIME")),strForumTimeAdjust)) & " " & fLang(strLangMOD_Ls3kAU_01140) & "
" & VBNewLine & _ "
" & VBNewLine & _ "
" & VBNewLine WriteFooter '######################################################### '# '# FUNCTIONS '# '######################################################### function fUserAgent(ua) Dim UAgent UAgent = ua if instr(UAgent, "Opera") then if instr(UAgent, "Opera 3.") then strBrowser = "Opera 3.x" elseif instr(UAgent, "Opera 4.") then strBrowser = "Opera 4.x" elseif instr(UAgent, "Opera 5.") then strBrowser = "Opera 5.x" elseif instr(UAgent, "Opera 6.") then strBrowser = "Opera 6.x" else strBrowser = "Opera" end if elseif instr(UAgent, "MSIE") then if instr(UAgent, "MSIE 6.") then strBrowser = "Microsoft IE 6.x" elseif instr(UAgent, "MSIE 5.") then strBrowser = "Microsoft IE 5.x" elseif instr(UAgent, "MSIE 4.") then strBrowser = "Microsoft IE 4.x" elseif instr(UAgent, "MSIE 3.") then strBrowser = "Microsoft IE 3.x" if instr(UAgent, "MSIE 3.02") then strBrowser = "Microsoft IE 3.02" end if else strBrowser = "Microsoft IE" end if elseif instr(UAgent, "Mozilla") and instr(UAgent, "compatible") = 0 then if instr(UAgent, "Netscape7") then strBrowser = "Netscape 7.x" elseif instr(UAgent, "Netscape6") then strBrowser = "Netscape 6.x" elseif instr(UAgent, "Mozilla/4") then strBrowser = "Netscape Navigator 4.x" elseif instr(UAgent, "Mozilla/3") then strBrowser = "Netscape Navigator 3.x" elseif instr(UAgent, "Netscape") then strBrowser = "Netscape" else if instr(UAgent, "Mozilla/5") then strBrowser = Mid(UAgent, instr(UAgent, "rv:")+3) strBrowser = Mid(strBrowser, 1, instr(strBrowser, ")")) strBrowser = Mid(strBrowser, 1, Len(strBrowser)-1) strBrowser = "Mozilla " & strBrowser else strBrowser = "Mozilla" end if end if else strBrowser = fLang(strLangMOD_Ls3kAU_01150) end if if instr(UAgent, "Windows 95") or instr(UAgent, "Win95") then strSystem = "Windows 95" elseif instr(UAgent, "Win 9x 4.90") then strSystem = "Windows ME" elseif instr(UAgent, "Windows 98") or instr(UAgent, "Win98") then strSystem = "Windows 98" elseif instr(UAgent, "Windows 3.1") or instr(UAgent, "Win16") then strSystem = "Windows 3.x/Windows NT 3.x" elseif instr(UAgent, "NT 5.0") or instr(UAgent, "Windows 2000") then strSystem = "Windows 2000" elseif instr(UAgent, "NT 5.1") or instr(UAgent, "Windows XP") then strSystem = "Windows XP" elseif instr(UAgent, "NT") or instr(os, "NT") then strSystem = "Windows NT" elseif instr(UAgent, "Mac") then strSystem = "Mac" if instr(UAgent, "PowerPC") or instr(UAgent, "PPC") then strSystem = "Mac PPC" elseif instr(UAgent, "68000") or instr(UAgent, "68K") then strSystem = "Mac 68K" end if elseif instr(UAgent, "Linux") then strSystem = "Linux" elseif instr(UAgent, "X11") then strSystem = "UNIX" else strSystem = fLang(strLangMOD_Ls3kAU_01150) end if fUserAgent = strSystem & "
" & strBrowser end function function WhatPage(fScript, fQ) fQuery = fQ strPage = " "" then strPage = strPage & "?" & fQuery end if strPage = strPage & """>" select case lcase(trim(fScript)) case "active.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01160) case "members.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01170) case "search.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01180) case "faq.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01190) case "policy.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01200) case "register.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01210) case "active_users.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01220) case "default.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01230) case "members.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01240) case "post_info.asp" strPage = strPage & fLang(strLangMOD_Ls3kAU_01241) case "pop_profile.asp" if instr(lcase(fQuery), "display") then strPage = strPage & fLang(strLangMOD_Ls3kAU_01250) else strPage = fLang(strLangMOD_Ls3kAU_01260) end if case "forum.asp" strQuery = fQuery fForum_ID = analyzeQuery(strQuery, "FORUM_ID") if fForum_ID = "" then strPage = fLang(strLangMOD_Ls3kAU_01270) else strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & fForum_ID set rst = my_conn.execute(strSql) if rst.EOF or rst.BOF then strPage = fLang(strLangMOD_Ls3kAU_01270) else fSubject = rst("F_SUBJECT") rst.close set rst = nothing if chkForumAccess(fForum_ID, MemberID, false) then strQuery = fQuery if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then strPage = fLang(strLangMOD_Ls3kAU_01280) & "
" else strPage = fLang(strLangMOD_Ls3kAU_01290) & "
" end if strPage = strPage & fSubject else strPage = fLang(strLangMOD_Ls3kAU_01300) end if end if end if case "topic.asp" strQuery = fQuery fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID") if fTopic_ID = "" then strPage = fLang(strLangMOD_Ls3kAU_01270) else strQuery = fQuery if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then strSql = "SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "A_TOPICS WHERE TOPIC_ID=" & fTopic_ID else strSql = "SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID end if set rst = my_conn.execute(strSql) if rst.EOF or rst.BOF then strPage = fLang(strLangMOD_Ls3kAU_01270) else fSubject = rst("T_SUBJECT") fForum_ID = rst("FORUM_ID") rst.close set rst = nothing if chkForumAccess(fForum_ID, MemberID, false) then strQuery = fQuery if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then strPage = fLang(strLangMOD_Ls3kAU_01310) & "
" else strPage = fLang(strLangMOD_Ls3kAU_01320) & "
" end if strPage = strPage & fSubject else strOnlineLocation = fLang(strLangMOD_Ls3kAU_01330) end if end if end if case "post.asp" strQuery = fQuery fMethod = analyzeQuery(strQuery, "method") if lcase(fMethod) = "topicquote" OR lcase(fMethod) = "replyquote" then fMethod = "reply" end if select case lcase(fMethod) case "reply" strQuery = fQuery fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID") strQuery = fQuery fForum_ID = analyzeQuery(strQuery, "FORUM_ID") if fTopic_ID = "" or fForum_ID = "" then strPage = fLang(strLangMOD_Ls3kAU_01270) else strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID set rst = my_conn.execute(strSql) if rst.EOF or rst.BOF then strPage = fLang(strLangMOD_Ls3kAU_01270) else fSubject = rst("T_SUBJECT") rst.close set rst = nothing if chkForumAccess(fForum_ID, MemberID, false) then strPage = fLang(strLangMOD_Ls3kAU_01340) & "
" strPage = strPage & fSubject else strOnlineLocation = fLang(strLangMOD_Ls3kAU_01350) end if end if end if case "edit" strQuery = fQuery fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID") strQuery = fQuery fForum_ID = analyzeQuery(strQuery, "FORUM_ID") if fTopic_ID = "" or fForum_ID = "" then strPage = fLang(strLangMOD_Ls3kAU_01270) else strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID set rst = my_conn.execute(strSql) if rst.EOF or rst.BOF then strPage = fLang(strLangMOD_Ls3kAU_01270) else fSubject = rst("T_SUBJECT") rst.close set rst = nothing if chkForumAccess(fForum_ID, MemberID, false) then strPage = fLang(strLangMOD_Ls3kAU_01351) & "
" strPage = strPage & fSubject else strOnlineLocation = fLang(strLangMOD_Ls3kAU_01352) end if end if end if case "topic" strQuery = fQuery fForum_ID = analyzeQuery(strQuery, "FORUM_ID") if fForum_ID = "" then strPage = fLang(strLangMOD_Ls3kAU_01270) else strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & fForum_ID set rst = my_conn.execute(strSql) if rst.EOF or rst.BOF then strPage = fLang(strLangMOD_Ls3kAU_01270) else fSubject = rst("F_SUBJECT") rst.close set rst = nothing if chkForumAccess(fForum_ID, MemberID, false) then strPage = fLang(strLangMOD_Ls3kAU_01360) & "
" strPage = strPage & fSubject else strOnlineLocation = fLang(strLangMOD_Ls3kAU_01370) end if end if end if case "edittopic" strQuery = fQuery fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID") strQuery = fQuery fForum_ID = analyzeQuery(strQuery, "FORUM_ID") if fTopic_ID = "" or fForum_ID = "" then strPage = fLang(strLangMOD_Ls3kAU_01270) else strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID set rst = my_conn.execute(strSql) if rst.EOF or rst.BOF then strPage = fLang(strLangMOD_Ls3kAU_01270) else fSubject = rst("T_SUBJECT") rst.close set rst = nothing if chkForumAccess(fForum_ID, MemberID, false) then strPage = fLang(strLangMOD_Ls3kAU_01371) & "
" strPage = strPage & fSubject else strOnlineLocation = fLang(strLangMOD_Ls3kAU_01372) end if end if end if case else strPage = strPage & fLang(strLangMOD_Ls3kAU_01380) end select case "pm_view.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_01530) case "pm_options.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_01531) case "admin_pmmaint_view.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_admin) case "admin_pmmaint_index.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_admin) case "admin_pmmaint_read.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_admin) case "admin_pmmaint_sent.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_admin) case "admin_pmmaint_delete.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_admin) case "admin_pmmaint.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_admin) case "privatesend_info.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_xx) case "pm_delete.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_xx) case "privatedelete.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_xx) case "privatesent.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_xx) case "privatesend.asp" strQuery = fQuery fMethod = analyzeQuery(strQuery, "method") if lcase(fMethod) = "topicquote" OR lcase(fMethod) = "replyquote" then fMethod = "reply" end if select case lcase(fMethod) case "reply" strOnlineLocation = fLang(strLangMOD_Ls3kAU_01533) case "topic" strOnlineLocation = fLang(strLangMOD_Ls3kAU_01532) case else strOnlineLocation = fLang(strLangMOD_Ls3kAU_01532) end select case "privateread.asp" strOnlineLocation = fLang(strLangMOD_Ls3kAU_01534) case else strPage = strPage & Mid(fScript, 1, instr(fScript, ".")-1) end select strPage = strPage & "" if lcase(instr(fscript, "admin_")) > 0 Then strPage = fLang(strLangMOD_Ls3kAU_01380) end if if strOnlineLocation <> "" then strPage = strOnlineLocation WhatPage = strPage end function sub doAutoReload() '## Do Cookie stuffs with reload nRefreshTime = Request.Cookies(strTempCookieType & "Reload") if Request.form("cookie") = "1" then if strSetCookieToForum = 1 then Response.Cookies(strTempCookieType & "Reload").Path = strTempCookieType end if Response.Cookies(strTempCookieType & "Reload") = Request.Form("RefreshTime") Response.Cookies(strTempCookieType & "Reload").expires = strForumTimeAdjust + 365 nRefreshTime = Request.Form("RefreshTime") end if if nRefreshTime = "" then nRefreshTime = 0 end if ActiveSince = Request.Cookies(strTempCookieType & "ActiveSince") '## Do Cookie stuffs with show last date if Request.form("cookie") = "2" then ActiveSince = Request.Form("ShowSinceDateTime") if strSetCookieToForum = 1 then Response.Cookies(strTempCookieType & "ActiveSince").Path = strTempCookieType end if Response.Cookies(strTempCookieType & "ActiveSince") = ActiveSince end if response.write " "& VBNewLine & _ " "& VBNewLine & _ " "& VBNewLine & _ " "& VBNewLine & _ "
"" then response.write "?whichpage=" & request.QueryString("whichpage") end if response.write """ method=""post"">
"& VBNewLine & _ " "& VBNewLine & _ " "& VBNewLine & _ "
"& VBNewLine & _ " "& VBNewLine & _ " "& VBNewLine end sub function analyzeQuery(strQuery, varName) strQuery = Mid(strQuery, instr(strQuery, varName)+1+Len(varName)) if instr(strQuery, "&") then strQuery = Mid(strQuery, 1, instr(strQuery, "&")) strQuery = Mid(strQuery, 1, Len(strQuery)-1) end if analyzeQuery = strQuery end function sub profileOptions() if strUseExtendedProfile then response.write " " else response.write " " end if response.write getCurrentIcon(strIconProfile,fLang(strLangMOD_Ls3kAU_01460) & " " & rsAM("M_NAME") & fLang(strLangMOD_Ls3kAU_01470),"hspace=""0""") & "" & VBNewLine if strICQ = "1" and Trim(rsAM("M_ICQ")) <> "" then response.Write " " & getCurrentIcon(strIconICQ,fLang(strLangMOD_Ls3kAU_01450) & " " & ChkString(rsAM("M_NAME"),"display") & " " & fLang(strLangMOD_Ls3kAU_01480),"align=""absmiddle"" hspace=""6""") & "" & vbNewLine end if if strYAHOO = "1" and Trim(rsAM("M_YAHOO")) <> "" then response.write " " & getCurrentIcon(strIconYahoo,fLang(strLangMOD_Ls3kAU_01450) & " " & ChkString(rsAM("M_NAME"),"display") & " " & fLang(strLangMOD_Ls3kAU_01490),"align=""absmiddle"" hspace=""0""") & "" & VBNewLine end if if strAIM = "1" and Trim(rsAM("M_AIM")) <> "" then response.write " " & getCurrentIcon(strIconAIM,fLang(strLangMOD_Ls3kAU_01450) & " " & ChkString(rsAM("M_NAME"),"display") & " " & fLang(strLangMOD_Ls3kAU_01500),"align=""absmiddle"" hspace=""0""") & "" & VBNewLine end if if strMSN = "1" and Trim(rsAM("M_MSN")) <> "" then response.write " " & getCurrentIcon(strIconMSNM,fLang(strLangMOD_Ls3kAU_01510) & " " & ChkString(rsAM("M_NAME"),"display") & fLang(strLangMOD_Ls3kAU_01520),"align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if end sub %>