<% '################################################################################# '## Ver.3.4.06 multi-language Skin3D Portal '################################################################################# '## Copyright (C) 2001-07 Gaëtan Dupont All Rights Reserved '## '## By using this program, you are agreeing to the terms of the '## GNU General Public License. '## '## 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 (at your option) any later version. '## '## All copyright notices regarding ImageForums2001 must remain intact '## in the scripts and in the outputted HTML. '## The "Image Forums 2001" text with a link back to '## http://www.forums2001.ca in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## Support can be obtained from support forums at: '## http://www.forums2001.ca '## '## Email: image_forum_2001@hotmail.com '## '################################################################################# '## This Page Contains source code of Snitz Forums 2000 '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## 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 (at your option) 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 our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% if not(strUseExtendedProfile) and Request.QueryString("verkey") = "" then %> <% else %> <% end if %> <% Dim strURLError if Instr(1,Request.Form("refer"),"search.asp",1) > 0 then strRefer = "search.asp" elseif Instr(1,Request.Form("refer"),"register.asp",1) > 0 then strRefer = "default.asp" else strRefer = chkString(Request.Form("refer"),"refer") end if if strRefer = "" then strRefer = "default.asp" if Request.QueryString("id") <> "" and IsNumeric(Request.QueryString("id")) = true then ppMember_ID = cLng(Request.QueryString("id")) else ppMember_ID = 0 end if if strAuthType = "nt" then if ChkAccountReg() <> "1" then Response.Write "

" & vbNewLine & _ "" & fLang(strLangPop_Profile00010) & " " & fLang(strLangPop_Profile00020) & "
" & vbNewLine if strProhibitNewMembers <> "1" then Response.Write " " & fLangN(strLangPop_Profile00030, "" & "|" & "") & "

" & vbNewLine else Response.Write "

" & vbNewLine end if WriteFooter Response.End end if end if '############################# E-mail Validation Mod ################################# if Request.QueryString("verkey") <> "" then verkey = chkString(Request.QueryString("verkey"),"SQLString") '###Forum_SQL strSql = "SELECT M_KEY, MEMBER_ID, M_EMAIL, M_NEWEMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_KEY = '" & verkey & "'" set rsKey = my_Conn.Execute (strSql) if rsKey.EOF or rsKey.BOF then 'Error message to user Response.Write "

" & fLang(strLangPop_Profile00040) & "

" & vbNewLine & _ "

" & fLangN(strLangPop_Profile00050, "" & "|" & "") & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine rsKey.close set rsKey = nothing WriteFooter Response.End elseif strComp(verkey,rsKey("M_KEY")) <> 0 then 'Error message to user Response.Write "

" & fLang(strLangPop_Profile00040) & "

" & vbNewLine & _ "

" & fLangN(strLangPop_Profile00050, "" & "|" & "") & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine rsKey.close set rsKey = nothing WriteFooter Response.End elseif rsKey("M_EMAIL") = rsKey("M_NEWEMAIL") then Response.Write "

" & fLang(strLangPop_Profile00070) & "

" & vbNewLine & _ "

" & fLangN(strLangPop_Profile00080, "" & "|" & "") & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine rsKey.close set rsKey = nothing WriteFooter Response.End else userID = rsKey("MEMBER_ID") 'Update the user e-mail strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_EMAIL = '" & chkString(rsKey("M_NEWEMAIL"),"SQLString") & "'" strSql = strSql & ", M_KEY = ''" strSql = strSql & " WHERE MEMBER_ID = " & userID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords Response.Write "

" & fLang(strLangPop_Profile00090) & "

" & vbNewLine & _ "

" & fLang(strLangPop_Profile00100) & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine rsKey.close set rsKey = nothing WriteFooter Response.End end if end if '################################################################################# select case Request.QueryString("mode") case "display" '## Display Profile if getMemberID(strDBNTUserName) <> CLng(Request.QueryString("id")) then lastviewid = Request.Cookies(strCookieURL & "lastviewid") if lastviewid = "" then lastviewid = -1 if CLng(lastviewid) <> CLng(Request.QueryString("id")) then 'update page views strSql = "Update " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " SET M_PAGE_VIEWS = M_PAGE_VIEWS + 1" strSql = strSql & " WHERE MEMBER_ID=" & Request.QueryString("id") my_Conn.Execute(strSql) Response.Cookies(strCookieURL & "lastviewid") = CLng(Request.QueryString("id")) Response.Cookies(strCookieURL & "lastviewid").Expires = dateadd("d",1,now()) end if end if if strDBNTUserName = "" then Err_Msg = fLang(strLangPop_Profile00110) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPop_Profile00130) & "
" & vbNewLine & _ "

" & fLang(strLangWas_Problem00010) & "

" & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine & _ "
" & vbNewLine if not(strUseExtendedProfile) then WriteFooterShort Response.End else WriteFooter Response.End end if end if '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LASTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MSN" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE" ' strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTOID" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LASTHEREDATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK2" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DOB" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LNEWS" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_BIO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PAGE_VIEWS" strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE MEMBER_ID=" & ppMember_ID set rs = my_Conn.Execute(strSql) if rs.BOF or rs.EOF then Err_Msg = "Invalid Member ID!" Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPop_Profile00130) & "
" & vbNewLine & _ "

" & fLang(strLangWas_Problem00010) & "

" & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine & _ "
" & vbNewLine if not(strUseExtendedProfile) then WriteFooterShort Response.End else WriteFooter Response.End end if else strMyHobbies = rs("M_HOBBIES") strMyQuote = rs("M_QUOTE") strMyLNews = rs("M_LNEWS") strMyBio = rs("M_BIO") intTotalMemberPosts = rs("M_POSTS") if intTotalMemberPosts > 0 then strMemberDays = DateDiff("d", strToDate(rs("M_DATE")), strToDate(strForumTimeAdjust)) if strMemberDays = 0 then strMemberDays = 1 strMemberPostsperDay = round(intTotalMemberPosts/strMemberDays,2) if strMemberPostsperDay = 1 then strPosts = " post" else strPosts = " posts" end if end if if strUseExtendedProfile then strColspan = " colspan=""2""" strIMURL1 = "javascript:openWindow('" strIMURL2 = "')" else strColspan = "" strIMURL1 = "" strIMURL2 = "" end if if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLangN(strLangPop_Profile00150,chkString(rs("M_NAME"),"display")) & "
" & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangPop_Profile00160) & "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if intMemberRating = "1" then if strDBNTUserName <> "" Then iReplyRating = GetRating( getMemberID(strDBNTUserName), rs("MEMBER_ID") ) if iReplyRating <> -1 Then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if end if if mLev = 4 then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if if intMemberRating = "1" then if strDBNTUserName <> "" Then if getMemberID(strDBNTUserName) <> rs("MEMBER_ID") Then if GetRating( getMemberID(strDBNTUserName), rs("MEMBER_ID") ) = -1 Then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine end if end if end if else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangMember_Rating00010) & " 
 " & ChkString(rs("M_NAME"),"display") & " " & ChkString(rs("M_NAME"),"display") & "
" & vbNewLine & _ " " & vbNewLine & _ "" & fLang(strLangPop_Profile00170) & " " & ChkDate(rs("M_DATE"),"",false) & " 
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine end if ' UseExtendedMemberProfile Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine '################## Azaniah Photo mod #################### if strPicture = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " end if ' strPicture '################## Azaniah Photo mod #################### if intAllowAvatars = "1" then If strShowAvatar = "1" then if IsNull(rs("M_AVATAR_URL")) or rs("M_AVATAR_URL") = "" or rs("M_AVATAR_URL") = " " or rs("M_AVATAR_URL") = "noavatar.gif" then Response.write "" & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ "" else Response.write "" & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ "" end if end if end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine strContacts = 0 if mLev > 2 or rs("M_RECEIVE_EMAIL") = "1" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_EMAIL")) <> "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if (rs("M_PMRECEIVE") = "1") then If strDBNTUserName <> "" and Trim(rs("M_PMRECEIVE")) = "1" and strPMStatus = "1" Then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if strAIM = "1" and Trim(rs("M_AIM")) <> "" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strMSN = "1" and Trim(rs("M_MSN")) <> "" then strContacts = strContacts + 1 parts = split(rs("M_MSN"),"@") strtag1 = parts(0) partss = split(parts(1),".") strtag2 = partss(0) strtag3 = "" for xmsn = 1 to ubound(partss) if strtag3 <> "" then strtag3 = strtag3 & "." strtag3 = strtag3 & partss(xmsn) next Response.Write " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strContacts = 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strRecentTopics = "1" then strStartDate = DateToStr(dateadd("d", -30, strForumTimeAdjust)) '## Forum_SQL - Find all records for the member strsql = "SELECT F.FORUM_ID" strSql = strSql & ", T.TOPIC_ID" strSql = strSql & ", T.T_SUBJECT" strSql = strSql & ", T.T_STATUS" strSql = strSql & ", T.T_LAST_POST" strSql = strSql & ", T.T_REPLIES " strSql = strSql & " FROM ((" & strTablePrefix & "FORUM F LEFT JOIN " & strTablePrefix & "TOPICS T" strSql = strSql & " ON F.FORUM_ID = T.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY R" strSql = strSql & " ON T.TOPIC_ID = R.TOPIC_ID) " strSql = strSql & " WHERE (T_DATE > '" & strStartDate & "') " strSql = strSql & " AND (T.T_AUTHOR = " & ppMember_ID strSql = strSql & " OR R.R_AUTHOR = " & ppMember_ID & ")" strSql = strSql & " AND (T_STATUS < 2 OR R_STATUS < 2)" strSql = strSql & " AND F.F_TYPE = 0" strSql = strSql & " ORDER BY T.T_LAST_POST DESC, T.TOPIC_ID DESC" set rs2 = my_Conn.Execute(strsql) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if rs2.EOF or rs2.BOF then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine else currTopic = 0 TopicCount = 0 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if rs2.close set rs2 = nothing elseif (strHomepage + strFavLinks) > 0 and (strRecentTopics = "0") then Response.Write " " & vbNewLine & _ " " & vbNewLine if strHomepage = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_HOMEPAGE")) <> "" and lcase(trim(rs("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rs("M_HOMEPAGE"))) <> "https://" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if strFavLinks = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then Response.Write " " & vbNewLine if Trim(rs("M_LINK2")) <> "" and lcase(trim(rs("M_LINK2"))) <> "http://" and Trim(lcase(rs("M_LINK2"))) <> "https://" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if end if ' strRecentTopics Response.Write "
 " & fLang(strLangPop_Profile00180) & " 
" if rs("M_PHOTOID") <> "0" then strSql = "SELECT " & strMemberTablePrefix & "USERPHOTO.PHOTOID" strSql = strSql & ", " & strMemberTablePrefix & "USERPHOTO.PHOTODESCRIPTION" strSql = strSql & ", " & strMemberTablePrefix & "USERPHOTO.PHOTONAME" strSql = strSql & " FROM " & strMemberTablePrefix & "USERPHOTO" strSql = strSql & " WHERE PHOTOID=" & rs("M_PHOTOID") set rsPhoto = my_Conn.Execute(strSql) PhotoName = rsPhoto("PHOTONAME") PhotoDescription = rsPhoto("PHOTODESCRIPTION") rsPhoto.Close Set rsPhoto = Nothing pathSql = "SELECT " & strTablePrefix & "MODS.M_VALUE" pathSql = pathSql & " FROM " & strTablePrefix & "MODS" pathSql = pathSql & " WHERE M_CODE = 'photo'" set rsPath = my_Conn.Execute(pathSql) strPath = rsPath("M_VALUE") rsPath.Close Set rsPath = Nothing if strAruba = "1" then strCookieURLpublic = "/" & strCookieURLAruba & "/" FullPath = strCookieURLpublic & strPath & "/" & rs("M_NAME") & "/" & PhotoName else FullPath = strCookieURL & strPath & "/" & rs("M_NAME") & "/" & PhotoName end if %> <% '##### PORTAL UPDATE 13 oct. 2003 ##### %> <% =photodescription %> border="0" hspace="2" vspace="2"> <% '##### END PORTAL UPDATE 13 oct. 2003 ##### %>
<%= PhotoDescription %> <% else %> <% =fLang(strLangPop_Profile00200) %> <% end if Response.Write "
" Response.Write " " & fLang(strLangPhoto_Gallery00010) & "" Response.Write "
" & fLang(strLangPop_Profile01080) & " 
" & fLang(strLangPop_Profile01090) & " 
" & fLang(strLangPop_Profile01080) & " 
 " & fLang(strLangPop_Profile00210) & " 
" & fLang(strLangEmail_User00010) & " " & fLang(strLangSend_EMail00010) & " " & fLang(strLangNo_Address00010) & "
" & fLang(strLangPm_User00010) & " " & getCurrentIcon(strIconPmprivatemessage,fLangN(strLangSend_Pm00010,chkString(rs("M_NAME"),"display")),"align=""absmiddle"" hspace=""0""") & " " & chkString(rs("M_NAME"),"display") & "
" & fLang(strLangPop_Profile00250) & " " & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " " & ChkString(rs("M_AIM"), "display") & " 
" & fLang(strLangPop_Profile00260) & " " & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " " & ChkString(rs("M_ICQ"), "display") & " 
" & fLang(strLangPop_Profile00270) & " " & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & "  
" & fLang(strLangPop_Profile00280) & " " & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & " 
" & fLang(strLangPop_Profile00290) & "
" & fLang(strLangPop_Profile00300) & "
 
 " & fLang(strLangPop_Profile00310) & "
 
" & vbNewLine & _ " " & vbNewLine do until rs2.EOF or (TopicCount = 10) if chkForumAccess(rs2("FORUM_ID"),MemberID,false) then if currTopic <> rs2("TOPIC_ID") then Response.Write " " & vbNewLine & _ " " & vbNewLine else Response.Write getCurrentIcon(strIconFolderNew,fLang(strLangNew_Topic00010),"align=""absmiddle""") & "" & vbNewLine end if else if rs2("T_REPLIES") >= intHotTopicNum then Response.Write getCurrentIcon(strIconFolderHot,fLang(strLangHot_Topic00010),"align=""absmiddle""") & "" & vbNewLine else Response.Write getCurrentIcon(strIconFolder,"","align=""absmiddle""") & "" & vbNewLine end if end if else if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then Response.Write getCurrentIcon(strIconFolderNew,fLang(strLangNew_Topic00010),"align=""absmiddle""") & "" & vbNewLine else Response.Write getCurrentIcon(strIconFolder,"","align=""absmiddle""") & "" & vbNewLine end if end if else if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then Response.Write getCurrentIcon(strIconFolderNewLocked,fLang(strLangPop_Profile00340),"align=""absmiddle""") & "" & vbNewLine else Response.Write getCurrentIcon(strIconFolderLocked,fLang(strLangPop_Profile00340),"align=""absmiddle""") & "" & vbNewLine end if end if Response.Write " " & vbNewLine & _ " " & vbNewLine TopicCount = TopicCount + 1 end if currTopic = rs2("TOPIC_ID") end if rs2.MoveNext loop Response.Write "
" & vbNewLine & _ " " if rs2("T_STATUS") <> 0 then if strHotTopic = "1" then if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then if rs2("T_REPLIES") >= intHotTopicNum then Response.Write getCurrentIcon(strIconFolderNewHot,fLang(strLangHot_Topic00010),"align=""absmiddle""") & " " & ChkString(rs2("T_SUBJECT"),"display") & " 
" & vbNewLine & _ "
" & vbNewLine & _ " " & fLang(strLangPop_Profile00350) & " 
" & fLang(strLangPop_Profile00360) & " " & rs("M_HOMEPAGE") & " " & fLang(strLangNo_Homepage00010) & "
" & fLang(strLangPop_Profile00380) & " " & rs("M_LINK1") & " 
 " & rs("M_LINK2") & " " & fLang(strLangPop_Profile00390) & "
" & vbNewLine & _ "
 " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strAuthType = "nt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strFullName = "1" and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strCity = "1" and Trim(rs("M_CITY")) <> "") or (strCountry = "1" and Trim(rs("M_COUNTRY")) <> "") or (strState = "1" and Trim(rs("M_STATE")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strAge = "1" and Trim(rs("M_AGE")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if strDOB = rs("M_DOB") if (strAgeDOB = "1" and Trim(strDOB) <> "") then strDOB = DOBToDate(strDOB) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strMarStatus = "1" and Trim(rs("M_MARSTATUS")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strSex = "1" and Trim(rs("M_SEX")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strOccupation = "1" and Trim(rs("M_OCCUPATION")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if intTotalMemberPosts > 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if intMemberRating = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine iReplyRating = GetMemberRatingAvg( rs("MEMBER_ID") ) if iReplyRating > 0 Then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if intMemberAwards = "1" then strSQLAwards = "SELECT M.M_NAME, M.M_AWARD_TITLE, M.M_AWARD_PROFILE, M.M_AWARD_IMAGE" strSQLAwards = strSQLAwards & " FROM " & strMemberTablePrefix & "MEMBERS M" strSQLAwards = strSQLAwards & " WHERE M.M_AWARD_PROFILE = 1" strSQLAwards = strSQLAwards & " AND M.M_NAME = '" & rs("M_NAME") & "'" set rsAwards = Server.CreateObject("ADODB.Recordset") rsAwards.open strSQLAwards, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rsAwards.EOF then iAwardsCount = "" 'do nothing rsAwards.Close set rsAwards = nothing else arrAwards = rsAwards.GetRows(adGetRowsRest) iAwardsCount = UBound(arrAwards,2) rsAwards.Close set rsAwards = nothing intI = 0 aM_NAME = 0 aM_AWARD_TITLE = 1 aM_AWARD_PROFILE = 2 aM_AWARD_IMAGE = 3 for iForum = 0 to iAwardsCount Award_MemberName = arrAwards(aM_NAME, iForum) Award_Title = arrAwards(aM_AWARD_TITLE, iForum) Award_Profile = arrAwards(aM_AWARD_PROFILE, iForum) Award_Image = arrAwards(aM_AWARD_IMAGE, iForum) if Award_Image = "1" then Medal = "icon_award_gold.gif" elseif Award_Image = "2" then Medal = "icon_award_silver.gif" elseif Award_Image = "3" then Medal = "icon_award_bronze.gif" end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine intI = intI + 1 if intI = 2 then intI = 0 end if next end if end if If strAdminOptOn = "1" Then If strAdminOptLastHereProfile = "1" Then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if If strAdminOptOnOffStatusProfile = "1" Then Dim strUserID strUserID = rs("MEMBER_ID") Set rsOnline = Server.CreateObject("ADODB.Recordset") strOnlineSql ="SELECT MEMBER_ID, AU_LOGINTIME" strOnlineSql = strOnlineSql & " FROM " & strTablePrefix & "ACTIVE_USERS" strOnlineSql = strOnlineSql & " WHERE MEMBER_ID = " & strUserID &" " strOnlineSql = strOnlineSql & " AND AU_LOGINTIME <> ''" Dim rsOnlineMember Set rsOnlineMember = my_Conn.Execute (strOnlineSql) If rsOnlineMember.EOF Or rsOnlineMember.BOF Then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Else Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine End if Set rsOnlineMember = Nothing End If End If if not(strUseExtendedProfile) then if rs("M_RECEIVE_EMAIL") = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_EMAIL")) <> "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if (rs("M_PMRECEIVE") = "1") then If strDBNTUserName <> "" and Trim(rs("M_PMRECEIVE")) = "1" and strPMStaus = "1" Then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if strAIM = "1" and Trim(rs("M_AIM")) <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strMSN = "1" and Trim(rs("M_MSN")) <> "" then parts = split(rs("M_MSN"),"@") strtag1 = parts(0) partss = split(parts(1),".") strtag2 = partss(0) strtag3 = partss(1) Response.Write " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if IsNull(strMyBio) or trim(strMyBio) = "" then strBio = 0 if IsNull(strMyHobbies) or trim(strMyHobbies) = "" then strHobbies = 0 if IsNull(strMyLNews) or trim(strMyLNews) = "" then strLNews = 0 if IsNull(strMyQuote) or trim(strMyQuote) = "" then strQuote = 0 if (strBio + strHobbies + strLNews + strQuote) > 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strBio = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strHobbies = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strLNews = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strQuote = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if intUserFields = "1" then call showUserFieldsInProfile() end if if (strHomepage + strFavLinks) > 0 and not(strRecentTopics = "0" and strUseExtendedProfile) then if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strHomepage = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_HOMEPAGE")) <> "" and lcase(trim(rs("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rs("M_HOMEPAGE"))) <> "https://" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if strFavLinks = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then Response.Write " " & vbNewLine if Trim(rs("M_LINK2")) <> "" and lcase(trim(rs("M_LINK2"))) <> "http://" and Trim(lcase(rs("M_LINK2"))) <> "https://" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if end if if intShowUserGroups = "1" then if mlev = 4 or (mlev = 3 and CInt(strUGModForums) > 0 ) or (mlev > 0 and CInt(strUGMemView) = 2) or (ppMember_ID = MemberID and CInt(strUGMemView) > 0) then strSql = "SELECT U.USERGROUP_NAME, U.MEM_HIDE FROM " & strTablePrefix & "USERGROUPS U, " &_ strTablePrefix & "USERGROUP_MEMBERS UM " &_ "WHERE U.USERGROUP_ID = UM.USERGROUP_ID " &_ "AND UM.MEMBER_TYPE = 1 " &_ "AND UM.MEMBER_ID = " & ppMember_ID & " " &_ "ORDER BY U.USERGROUP_NAME" set rsPPGroups = my_Conn.execute(strSql) arPPGroups = Null if not rsPPGroups.bof and not rsPPGroups.eof then arPPGroups = rsPPGroups.GetRows rsPPGroups.close set rsPPGroups = Nothing strPPGroups = "" if not IsNull(arPPGroups) then for iPPGcount = LBound(arPPGroups,2) to UBound(arPPGroups,2) if (arPPGroups(1,iPPGcount) = 0 or mlev = 4) then if strPPGroups <> "" then strPPGroups = strPPGroups & ", " strPPGroups = strPPGroups & arPPGroups(0,iPPGcount) end if next end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if Response.Write "
" & fLang(strLangPop_Profile00400) & "
" & fLang(strLangPop_Profile00410) & " " & ChkString(rs("M_NAME"),"display") & "
" & fLang(strLangPop_Profile00420) & " " & ChkString(rs("M_USERNAME"),"display") & "
" & fLang(strLangPop_Profile00430) & " " & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "
" & fLang(strLangPop_Profile00440) & " " myCity = ChkString(rs("M_CITY"),"display") myState = ChkString(rs("M_STATE"),"display") myCountry = ChkString(rs("M_COUNTRY"),"display") myLocation = "" if myCity <> "" and myCity <> " " then myLocation = myCity end if if myLocation <> "" then if myState <> "" and myState <> " " then myLocation = myLocation & ", " & myState end if else if myState <> "" and myState <> " " then myLocation = myState end if end if if myLocation <> "" then if myCountry <> "" and myCountry <> " " then myLocation = myLocation & "
" & myCountry end if else if myCountry <> "" and myCountry <> " " then myLocation = myCountry end if end if Response.Write myLocation Response.Write "
" & fLang(strLangAge00010) & " " & ChkString(rs("M_AGE"), "display") & "
" & fLang(strLangAge00010) & " " & DisplayUsersAge(strDOB) & "
" & fLang(strLangPop_Profile00460) & " " & ChkString(rs("M_MARSTATUS"), "display") & "
" & fLang(strLangPop_Profile00470) & " " & ChkString(rs("M_SEX"), "display") & "
" & fLang(strLangPop_Profile00480) & " " & ChkString(rs("M_OCCUPATION"), "display") & "
" & fLang(strLangPop_Profile00490) & " " & ChkString(intTotalMemberPosts, "display") & "
[" & fLangN(strLangPop_Profile00500,strMemberPostsperDay) & "]
" & fLangN(strLangPop_Profile00510,chkString(rs("M_NAME"),"display")) & "
" & fLang(strLangMember_Rating00110) & "  (" & fLang(strLangLinks00030) & " " & GetMemberTotalRatingsCount( rs("MEMBER_ID") ) & " )" & fLang(strLangMember_Rating00120) & "
" & fLang(strLangPop_Profile00170) & " " & ChkDate(rs("M_DATE"),"",false) & " 
" & fLang(strLangPop_Profile01120) & " " & ChkString(rs("M_PAGE_VIEWS"), "display") & "
" & fLang(strLangAward_Member00070) & " 
" & fLang(strLangInc_Profile00290) & " " & Award_Title & "
" & fLang(strLangMembers00220) & ": " & ChkDate(rs("M_LASTHEREDATE"),"",false) & "
" & fLang(strLangTopic00890) & " " & fLang(strLangTopic00900) & "
" & fLang(strLangTopic00890) & " " & fLang(strLangTopic00910) & "
" & fLang(strLangEmail_User00010) & " " & fLang(strLangSend_EMail00010) & " " & fLang(strLangNo_Address00010) & "
" & fLang(strLangPm_User00010) & " " & getCurrentIcon(strIconPmprivatemessage,fLangN(strLangSend_Pm00010,chkString(rs("M_NAME"),"display")),"align=""absmiddle"" hspace=""0""") & " " & chkString(rs("M_NAME"),"display") & "
" & fLang(strLangPop_Profile00250) & " " & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " " & ChkString(rs("M_AIM"), "display") & " 
" & fLang(strLangPop_Profile00260) & " " & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " " & ChkString(rs("M_ICQ"), "display") & " 
" & fLang(strLangPop_Profile00270) & " " & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & "  
" & fLang(strLangPop_Profile00280) & " " & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & " 
" & fLang(strLangPop_Profile00520) & "
" & fLang(strLangPop_Profile00530) & " " if IsNull(strMyBio) or trim(strMyBio) = "" then Response.Write("-") else Response.Write(formatStr(strMyBio)) Response.Write "
" & fLang(strLangPop_Profile00540) & " " if IsNull(strMyHobbies) or trim(strMyHobbies) = "" then Response.Write("-") else Response.Write(formatStr(strMyHobbies)) Response.Write "
" & fLang(strLangPop_Profile00550) & " " if IsNull(strMyLNews) or trim(strMyLNews) = "" then Response.Write("-") else Response.Write(formatStr(strMyLNews)) Response.Write "
" & fLang(strLangPop_Profile00560) & " " if IsNull(strMyQuote) or Trim(strMyQuote) = "" then Response.Write("-") else Response.Write(formatStr(strMyQuote)) Response.Write "
" & fLang(strLangPop_Profile00350) & " 
" & fLang(strLangPop_Profile00360) & " " & ChkString(rs("M_HOMEPAGE"), "display") & " " & fLang(strLangNo_Homepage00010) & "
" & fLang(strLangPop_Profile00380) & " " & ChkString(rs("M_LINK1"), "display") & " 
 " & ChkString(rs("M_LINK2"), "display") & " " & fLang(strLangPop_Profile00390) & "
" & fLang(strLangUserGroup00020) & "
" if CInt(strUGView) > 0 then response.write "" Response.Write " " & vbNewline &_ "
" & getCurrentIcon(strIconGroup,fLang(strLangUserGroup00040),"hspace=""0""") & "" if strPPGroups = "" then Response.Write fLang(strLangUserGroup00030) else Response.Write ChkString(strPPGroups,"display") end if Response.Write "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strUseExtendedProfile then Response.Write "" & vbNewLine %><% Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & _ "

" & fLang(strLangPop_Profile00570) & "


" & vbNewLine else Response.Write "
" & vbNewLine end if end if case "Edit" if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPop_Profile00580) & "
" & vbNewLine end if Response.Write "
" & vbNewLine & _ "

" & fLang(strLangPop_Profile00160) & "

" & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & fLang(strLangPop_Profile00590) & "
" & vbNewLine if strAuthType = "nt" then Response.Write " " & fLang(strLangPop_Profile00600) & "

" & vbNewLine else if strAuthType = "db" then Response.Write " " & fLang(strLangPop_Profile00610) & "

" & vbNewLine end if end if if strProhibitNewMembers <> "1" and MemberID < 0 then Response.Write " " & fLangN(strLangPop_Profile00620, "") & "

" & vbNewLine else Response.Write "

" & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine if strAuthType = "nt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine else if strAuthType = "db" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strDBNTUserName <> "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if end if end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangPop_Profile00420) & "" & Session(strCookieURL & "userid") & "
" & fLang(strLangPop_Profile00410) & "
" & fLang(strLangPop_Profile00630) & "
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine case "goEdit" if strAuthType = "db" then if strDBNTUserName = "" then strDBNTUserName = Request.Form("Name") end if end if strEncodedPassword = sha256("" & Request.Form("Password")) '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LASTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LEVEL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MSN" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_ALLOWDOWNLOADS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_ALLOWUPLOADS " ' strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTOID" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK2" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DOB" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_VIEW_SIG" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG_DEFAULT" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LNEWS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_BIO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AUHIDE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG" strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(strDBNTUserName, "SQLString") & "' " if strAuthType = "db" then strSql = strSql & " AND M_PASSWORD = '" & ChkString(strEncodedPassword,"SQLString") & "'" end if set rs = my_Conn.Execute(strSql) if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPop_Profile00580) & "
" & vbNewLine end if if rs.BOF or rs.EOF or not(ChkQuoteOk(strDBNTUserName)) or not(ChkQuoteOk(strEncodedPassword)) then Response.Write "

" & fLang(strLangPop_Profile00660) & "

" & vbNewLine & _ "

" & fLang(strLangPop_Profile00670) & "

" & vbNewLine if strUseExtendedProfile then Response.Write "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine end if else '## Display Edit Profile Page Response.Write "

" & fLang(strLangPop_Profile00580) & "

" & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine Call DisplayProfileForm Response.Write "

" & vbNewLine end if case "Modify" if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLangN(strLangPop_Profile00680,GetMemberName(ppMember_ID)) & "
" & vbNewLine end if Response.Write "
" & vbNewLine & _ "

" & fLang(strLangPop_Profile00690) & "

" & vbNewLine if ppMember_ID = cLng(intAdminMemberID) and cLng(MemberID) <> cLng(intAdminMemberID) then Response.Write "

" & fLang(strLangPop_Profile00700) & " " & fLang(strLangPop_Profile00710) & "

" & vbNewLine & _ "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine else Response.Write "

" & fLang(strLangPop_Profile00700) & " " & fLang(strLangPop_Profile00720) & "

" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine if strAuthType="db" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine elseif strAuthType="nt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & fLang(strLangPop_Profile00410) & "
" & fLang(strLangPop_Profile00630) & "
" & fLang(strLangPop_Profile00730) & "" & Session(strCookieURL & "userid") & "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end if Response.Write "
" & vbNewLine case "goModify" if strNoCookies = "1" and strAuthType = "db" then if strDBNTUserName = "" then strDBNTUserName = chkString(Request.Form("User"),"SQLString") end if end if strEncodedPassword = sha256("" & Request.Form("Pass")) mLev = cLng(chkUser(strDBNTUserName, strEncodedPassword,-1)) if mLev > 0 then '## is Member if mLev = 4 then '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_IP" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LAST_IP" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LASTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LEVEL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MSN" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_ALLOWDOWNLOADS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_ALLOWUPLOADS " ' strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTOID" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK2" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DOB" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_VIEW_SIG" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG_DEFAULT" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LNEWS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_BIO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AUHIDE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG" strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID")) set rs = my_Conn.Execute(strSql) if rs("M_LEVEL") = 3 then if cLng(MemberID) = cLng(rs("MEMBER_ID")) OR cLng(MemberID) = cLng(intAdminMemberID) then 'Do Nothing else rs.close set rs = nothing Response.Write "

" & fLang(strLangPop_Profile00750) & "
" & vbNewLine & _ "
" & fLang(strLangPop_Profile00760) & "

" & vbNewLine if strUseExtendedProfile then Response.Write "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine WriteFooter Response.End else WriteFooterShort Response.End end if end if end if if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLangN(strLangPop_Profile00770,chkString(rs("M_NAME"),"display")) & "
" & vbNewLine end if '## Display Edit Profile Page Response.Write "
" & vbNewLine & _ "

" & fLang(strLangPop_Profile00780) & "

" & vbNewLine & _ "

" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Call DisplayProfileForm Response.Write "

" & vbNewLine else Response.Write "

" & fLang(strLangPop_Profile00790) & "
" & vbNewLine & _ "
" & fLang(strLangPop_Profile00760) & "

" & vbNewLine if strUseExtendedProfile then Response.Write "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine end if end if else Response.Write "

" & fLang(strLangPop_Profile00790) & "
" & vbNewLine & _ "
" & fLang(strLangPop_Profile00760) & "

" & vbNewLine if strUseExtendedProfile then Response.Write "

" & fLang(strLangBack_Forum00010) & "

" & vbNewLine end if end if case "EditIt" if strSignatures = "1" then intSigDefault = Request.Form("fSigDefault") Session(strCookieURL & "intSigDefault" & MemberID) = intSigDefault Session(strCookieURL & "intSigDefault" & MemberID) = intSigDefault end if if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPop_Profile00650) & "
" & vbNewLine end if Err_Msg = "" if trim(Request.Form("Name")) = "" then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00800) & "
  • " end if if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00810) & "
  • " end if if strAuthType = "db" then if trim(Request.Form("Password")) <> "" then if Len(Request.Form("Password")) > 25 then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00820) & "
  • " end if if Request.Form("Password") <> Request.Form("Password2") then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00830) & "
  • " end if end if end if if Request.Form("Email") = "" then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00840) & "
  • " end if if EmailField(Request.Form("Email")) = 0 then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00850) & "
  • " end if if strMSN = "1" and trim(Request.Form("MSN")) <> "" then set regEx = New RegExp regEx.Global = true regEx.IgnoreCase = true regEx.Pattern = "^[A-Z0-9._%-]+@(?:[A-Z0-9-]+\.)+[A-Z]{2,4}$" retVal = regEx.Test(Request.Form("MSN")) if Not retVal then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00860) & "
  • " end if end if if strCountry = "1" then if trim(Request.Form("Country")) = "" then Err_Msg = Err_Msg & "
  • " & fLang(strLangRegister00490) & "
  • " end if end if if strSex = "1" then if Request.Form("Sex") = "" then Err_Msg = Err_Msg & "
  • " & fLang(strLangRegister00500) & "
  • " end if end if if strUniqueEmail = "1" then if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) then '## Forum_SQL strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_EMAIL = '" & Trim(ChkString(Request.Form("Email"), "SQLString")) &"'" set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing - proceed else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00870) & "
  • " end if set rs = nothing if strEmail = "1" and strEmailVal = "1" then '## Forum_SQL strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS_PENDING " strSql = strSql & " WHERE M_EMAIL = '" & Trim(ChkString(Request.Form("Email"),"SQLString")) &"'" set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00870) & "
  • " end if set rs = nothing '## Forum_SQL strSql = "SELECT M_NEWEMAIL FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NEWEMAIL = '" & Trim(ChkString(Request.Form("Email"),"SQLString")) &"'" set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00870) & "
  • " end if set rs = nothing end if if lcase(strEmail) = "1" and Err_Msg = "" and strEmailVal = "1" then verKey= GetKey("sendemail") end if end if else if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" and strEmailVal = "1" then verKey = GetKey("sendemail") end if end if if not IsValidURL(trim(Request.Form("Homepage"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00880,strURLError) & "
  • " end if if not IsValidURL(trim(Request.Form("LINK1"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00890,strURLError) & "
  • " end if if not IsValidURL(trim(Request.Form("LINK2"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00890,strURLError) & "
  • " end if if not IsValidURL(trim(Request.Form("Photo_URL"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00900,strURLError) & "
  • " end if strMAge = "" if strAge = "1" then strMAge = ChkString(trim(Request.Form("Age")), "SQLString") end if if strAgeDOB = "1" then strMDOB = ChkString(Request.Form("year"), "SQLString") & ChkString(Request.Form("month"), "SQLString") & ChkString(Request.Form("day"), "SQLString") if len(strMDOB) <> 8 then strMDOB = "" else if not IsValidBirthDate() then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile01130) & "
  • " else strMAge = DisplayUsersAge(DOBToDate(strMDOB)) end if end if end if if len(trim(strMAge)) > 0 then if not isNumeric(strMAge) then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile01140) & "
  • " elseif strMinAge > 0 and cInt(strMAge) < strMinAge then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile01150,strMinAge) & "
  • " end if end if if Err_Msg = "" then if Trim(Request.Form("Homepage")) <> "" and lcase(trim(Request.Form("Homepage"))) <> "http://" and Trim(lcase(Request.Form("Homepage"))) <> "https://" then regHomepage = ChkString(Request.Form("Homepage"),"SQLString") else regHomepage = " " end if if Trim(Request.Form("LINK1")) <> "" and lcase(trim(Request.Form("LINK1"))) <> "http://" and Trim(lcase(Request.Form("LINK1"))) <> "https://" then regLink1 = ChkString(Request.Form("LINK1"),"SQLString") else regLink1 = " " end if if Trim(Request.Form("LINK2")) <> "" and lcase(trim(Request.Form("LINK2"))) <> "http://" and Trim(lcase(Request.Form("LINK2"))) <> "https://" then regLink2 = ChkString(Request.Form("LINK2"),"SQLString") else regLink2 = " " end if if Trim(Request.Form("Photo_URL")) <> "" and lcase(trim(Request.Form("Photo_URL"))) <> "http://" and Trim(lcase(Request.Form("Photo_URL"))) <> "https://" then regPhoto_URL = ChkString(Request.Form("Photo_URL"),"SQLString") else regPhoto_URL = " " end if regAvatar_Image = Request.Form("AVATAR_URL") '## Forum_SQL strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " if trim(Request.Form("Password")) <> "" then strPassword = sha256("" & Request.Form("Password")) strSql = strSql & " SET M_PASSWORD = '" & ChkString(strPassword,"SQLString") & "', " else strSql = strSql & " SET" end if if intMemberTitles = "1" and CleanCode(intTotalMemberPosts) > strMemberCustomTitle or mLEV = 4 then strSql = strSql & " M_TITLE = '" & chkString(Request.Form("Title"),"SQLString") & "', " end if strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"SQLString") & "', " if strAIM = "1" then strSql = strSql & " M_AIM = '" & ChkString(Request.Form("AIM"),"SQLString") & "', " end if if strICQ = "1" then strSql = strSql & " M_ICQ = '" & ChkString(Request.Form("ICQ"),"SQLString") & "', " end if if strMSN = "1" then strSql = strSql & " M_MSN = '" & ChkString(Request.Form("MSN"),"SQLString") & "', " end if if strYAHOO = "1" then strSql = strSql & " M_YAHOO = '" & ChkString(Request.Form("YAHOO"),"SQLString") & "', " end if if strHOMEPAGE = "1" then strSql = strSql & " M_HOMEPAGE = '" & ChkString(Trim(regHomepage),"SQLString") & "', " end if if strSignatures = "1" then strSql = strSql & " M_SIG = '" & ChkString(Request.Form("Sig"),"message") & "', " end if if strSignatures = "1" and strDSignatures = "1" then strSql = strSql & " M_VIEW_SIG = " & cLng(Request.Form("ViewSig")) & ", " end if if strSignatures = "1" then strSql = strSql & " M_SIG_DEFAULT = " & cLng(Request.Form("fSigDefault")) & ", " end if if strEmailVal = "1" then strSql = strSql & " M_NEWEMAIL = '" & ChkString(Request.Form("Email"),"SQLString") & "' " else strSql = strSql & " M_EMAIL = '" & ChkString(Request.Form("Email"),"SQLString") & "' " end if strSql = strSql & ", M_KEY = '" & chkString(verKey,"SQLString") & "'" strSql = strSql & ", M_RECEIVE_EMAIL = " & cLng(Request.Form("ReceiveEMail")) & " " if strfullName = "1" then strSql = strSql & ", M_FIRSTNAME = '" & ChkString(Request.Form("FirstName"), "SQLString") & "'" strSql = strSql & ", M_LASTNAME = '" & ChkString(Request.Form("LastName"),"SQLString") & "'" end if if strCity = "1" then strsql = strsql & ", M_CITY = '" & ChkString(Request.Form("City"),"SQLString") & "'" end if if strState = "1" then strsql = strsql & ", M_STATE = '" & ChkString(Request.Form("State"),"SQLString") & "'" end if ' strsql = strsql & ", M_HIDE_EMAIL = '" & ChkString(Request.Form("HideMail"),"SQLString") & "'" if strPicture = "1" then strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Trim(regPhoto_URL),"SQLString") & "'" end if if intAllowAvatars = "1" then strsql = strsql & ", M_AVATAR_URL = '" & ChkString(Trim(regAvatar_Image),"SQLString") & "'" end if if strFavLinks = "1" then strsql = strsql & ", M_LINK1 = '" & ChkString(Trim(regLink1),"SQLString") & "'" strSql = strSql & ", M_LINK2 = '" & ChkString(Trim(regLink2),"SQLString") & "'" end if if strAge = "1" then strSql = strsql & ", M_AGE = '" & strMAge & "'" end if if strAgeDOB = "1" then strSql = strsql & ", M_DOB = '" & strMDOB & "'" end if if strMarStatus = "1" then strSql = strSql & ", M_MARSTATUS = '" & ChkString(Request.Form("MarStatus"),"SQLString") & "'" end if if strSex = "1" then strSql = strsql & ", M_SEX = '" & ChkString(Request.Form("Sex"),"SQLString") & "'" end if if strOccupation = "1" then strSql = strSql & ", M_OCCUPATION = '" & ChkString(Request.Form("Occupation"),"SQLString") & "'" end if if strHobbies = "1" then strSql = strSql & ", M_HOBBIES = '" & ChkString(Request.Form("Hobbies"),"message") & "'" end if if strQuote = "1" then strSql = strSql & ", M_QUOTE = '" & ChkString(Request.Form("Quote"),"message") & "'" end if if strLNews = "1" then strsql = strsql & ", M_LNEWS = '" & ChkString(Request.Form("LNews"),"message") & "'" end if if strAUAnon = "1" then strSql = strSql & ", M_AUHIDE = '" & ChkString(Request.Form("AUHide"),"") & "'" end if if strBio = "1" then strSql = strSql & ", M_BIO = '" & ChkString(Request.Form("Bio"),"message") & "'" end if strSql = strSql & " WHERE M_NAME = '" & ChkString(Request.Form("Name"), "SQLString") & "' " if strAuthType = "db" then strSql = strSql & " AND M_PASSWORD = '" & ChkString(Request.Form("Password-d"), "SQLString") & "'" end if my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords regHomepage = "" if intUserFields = "1" then call updateUserFieldsInProfile(getMemberID(ChkString(Request.Form("Name"), "SQLString"))) end if if trim(Request.Form("Password")) <> "" and strDBNTUserName <> "" then if strSetCookieToForum = 1 then Response.Cookies(strUniqueID & "User").Path = strCookieURL else Response.Cookies(strUniqueID & "User").Path = "/" end if Response.Cookies(strUniqueID & "User")("Pword") = strPassword Response.Cookies(strUniqueID & "User").Expires = dateAdd("d", intCookieDuration, strForumTimeAdjust) end if Response.Write "

    " & fLang(strLangPop_Profile00910) & "

    " & vbNewLine if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" and strEmailVal = "1" then if (strUseExtendedProfile) then Response.Write "

    " & fLang(strLangPop_Profile00920) & "

    " & vbNewLine & _ "

    0 then Response.Write("default.asp?sectionid=0") else Response.Write(chkString(Request.Form("refer"),"refer")) Response.Write """>" & fLang(strLangBack_Forum00010) & "

    " & vbNewLine else Response.Write "

    " & fLang(strLangPop_Profile00930) & "

    " & vbNewLine end if else if (strUseExtendedProfile) then Response.Write " " & vbNewLine & _ "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if end if else Response.Write "

    " & fLang(strLangPop_Profile00940) & "

    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
      " & Err_Msg & "
    " & vbNewLine & _ "

    " & fLang(strLangPop_Profile00950) & "

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if end if case "ModifyIt" if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
    " & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPop_Profile00960) & "
    " & vbNewLine end if strEncodedPassword = ChkString(Request.Form("Pass"),"SQLString") mLev = cLng(chkUser(strDBNTUserName, strEncodedPassword,-1)) if mLev > 0 then '## is Member if mLev = 4 then '## is Admin Err_Msg = "" if trim(Request.Form("Name")) = "" then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00970) & "
  • " end if if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00810) & "
  • " end if '## Forum_SQL strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NAME = '" & Trim(ChkString(Request.Form("Name"), "SQLString")) &"' " strSql = strSql & " AND MEMBER_ID <> " & cLng(Request.Form("Member_ID")) &" " set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing - proceed else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00970) & "
  • " end if set rs = nothing if strEmail = "1" and strEmailVal = "1" then '## Forum_SQL strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS_PENDING " strSql = strSql & " WHERE M_NAME = '" & Trim(ChkString(Request.Form("Name"), "SQLString")) &"' " strSql = strSql & " AND MEMBER_ID <> " & cLng(Request.Form("Member_ID")) &" " set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00970) & "
  • " end if set rs = nothing end if if strAuthType = "db" then if trim(Request.Form("Password")) <> "" then if Len(Request.Form("Password")) > 25 then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00980) & "
  • " end if end if end if if Request.Form("Email") = "" then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00990) & "
  • " end if if EmailField(Request.Form("Email")) = 0 then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00850) & "
  • " end if if strMSN = "1" and trim(Request.Form("MSN")) <> "" then set regEx = New RegExp regEx.Global = true regEx.IgnoreCase = true regEx.Pattern = "^[A-Z0-9._%-]+@(?:[A-Z0-9-]+\.)+[A-Z]{2,4}$" retVal = regEx.Test(Request.Form("MSN")) if Not retVal then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00860) & "
  • " end if end if if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (Request.Form("Homepage") <> "") then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile01000) & "
  • " end if if strUniqueEmail = "1" then if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) then '## Forum_SQL strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_EMAIL = '" & Trim(chkString(Request.Form("Email"),"SQLString")) &"'" set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing - proceed Else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00870) & "
  • " end if set rs = nothing if strEmail = "1" and strEmailVal = "1" then '## Forum_SQL strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS_PENDING " strSql = strSql & " WHERE M_EMAIL = '" & Trim(chkString(Request.Form("Email"),"SQLString")) &"'" set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00870) & "
  • " end if set rs = nothing '## Forum_SQL strSql = "SELECT M_NEWEMAIL FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NEWEMAIL = '" & Trim(ChkString(Request.Form("Email"),"SQLString")) &"'" set rs = my_Conn.Execute(TopSQL(strSql,1)) if rs.BOF and rs.EOF then '## Do Nothing else Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile00870) & "
  • " end if set rs = nothing end if if lcase(strEmail) = "1" and Err_Msg = "" and strEmailVal = "1" then verKey = GetKey("sendemail") end if end if else if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" and strEmailVal = "1" then verKey = GetKey("sendemail") end if end if if not IsValidURL(trim(Request.Form("Homepage"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00880,strURLError) & "
  • " end if if not IsValidURL(trim(Request.Form("LINK1"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00890,strURLError) & "
  • " end if if not IsValidURL(trim(Request.Form("LINK2"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00890,strURLError) & "
  • " end if if not IsValidURL(trim(Request.Form("Photo_URL"))) then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile00900,strURLError) & "
  • " end if strMAge = "" if strAge = "1" then strMAge = ChkString(trim(Request.Form("Age")), "SQLString") end if if strAgeDOB = "1" then strMDOB = ChkString(Request.Form("year"), "SQLString") & ChkString(Request.Form("month"), "SQLString") & ChkString(Request.Form("day"), "SQLString") if len(strMDOB) <> 8 then strMDOB = "" else if not IsValidBirthDate() then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile01130) & "
  • " else strMAge = DisplayUsersAge(DOBToDate(strMDOB)) end if end if end if if len(trim(strMAge)) > 0 then if not isNumeric(strMAge) then Err_Msg = Err_Msg & "
  • " & fLang(strLangPop_Profile01140) & "
  • " elseif strMinAge > 0 and cInt(strMAge) < strMinAge then Err_Msg = Err_Msg & "
  • " & fLangN(strLangPop_Profile01150,strMinAge) & "
  • " end if end if if Err_Msg = "" then '## it is ok to update the profile if Trim(Request.Form("Homepage")) <> "" and lcase(trim(Request.Form("Homepage"))) <> "http://" and Trim(lcase(Request.Form("Homepage"))) <> "https://" then regHomepage = chkString(Request.Form("Homepage"),"SQLString") else regHomepage = " " end if if Trim(Request.Form("LINK1")) <> "" and lcase(trim(Request.Form("LINK1"))) <> "http://" and Trim(lcase(Request.Form("LINK1"))) <> "https://" then regLink1 = chkString(Request.Form("LINK1"),"SQLString") else regLink1 = " " end if if Trim(Request.Form("LINK2")) <> "" and lcase(trim(Request.Form("LINK2"))) <> "http://" and Trim(lcase(Request.Form("LINK2"))) <> "https://" then regLink2 = chkString(Request.Form("LINK2"),"SQLString") else regLink2 = " " end if if Trim(Request.Form("PHOTO_URL")) <> "" and lcase(trim(Request.Form("PHOTO_URL"))) <> "http://" and Trim(lcase(Request.Form("PHOTO_URL"))) <> "https://" then regPhoto_URL = chkString(Request.Form("Photo_URL"),"SQLString") else regPhoto_URL = " " end if regAvatar_Image = Request.Form("AVATAR_URL") '## Forum_SQL strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_NAME = '" & chkString(Request.Form("Name"),"SQLString") & "'" if strAuthType = "nt" then strSql = strSql & ", M_USERNAME = '" & chkString(Request.Form("Account"),"SQLString") & "'" else if strAuthType = "db" then if trim(Request.Form("Password")) <> "" then strPassword = sha256("" & Request.Form("Password")) strSql = strSql & ", M_PASSWORD = '" & ChkString(strPassword,"SQLString") & "' " end if end if end if if strEmailVal = "1" then strSql = strSql & ", M_NEWEMAIL = '" & chkString(Request.Form("Email"),"SQLString") & "'" else strSql = strSql & ", M_EMAIL = '" & chkString(Request.Form("Email"),"SQLString") & "'" end if strSql = strSql & ", M_KEY = '" & chkString(verKey,"SQLString") & "'" strSql = strSql & ", M_RECEIVE_EMAIL = " & cLng(Request.Form("ReceiveEMail")) & " " strSql = strSql & ", M_TITLE = '" & chkString(Request.Form("Title"),"SQLString") & "'" strSql = strSql & ", M_POSTS = " & cLng(Request.Form("Posts")) & " " strSql = strSql & ", M_COUNTRY = '" & chkString(Request.Form("Country"),"SQLString") & "'" if strAIM = "1" then strSql = strSql & ", M_AIM = '" & chkString(Request.Form("AIM"),"SQLString") & "'" end if if strICQ = "1" then strSql = strSql & ", M_ICQ = '" & chkString(Request.Form("ICQ"),"SQLString") & "'" end if if strMSN = "1" then strSql = strSql & ", M_MSN = '" & chkString(Request.Form("MSN"),"SQLString") & "'" end if if strYAHOO = "1" then strSql = strSql & ", M_YAHOO = '" & chkString(Request.Form("YAHOO"),"SQLString") & "'" end if if strHOMEPAGE = "1" then strSql = strSql & ", M_HOMEPAGE = '" & chkString(Trim(regHomepage),"SQLString") & "'" end if if strSignatures = "1" then strSql = strSql & ", M_SIG = '" & chkString(Request.Form("Sig"),"message") & "'" end if 'if strSignatures = "1" and strDSignatures = "1" then ' strSql = strSql & ", M_VIEW_SIG = " & cLng("0" & Request.Form("ViewSig")) 'end if 'if strSignatures = "1" then ' strSql = strSql & ", M_SIG_DEFAULT = " & cLng("0" & Request.Form("fSigDefault")) 'end if strSql = strSql & ", M_LEVEL = " & cLng("0" & Request.Form("Level")) if strfullName = "1" then strSql = strSql & ", M_FIRSTNAME = '" & chkString(Request.Form("FirstName"),"SQLString") & "'" strSql = strSql & ", M_LASTNAME = '" & chkString(Request.Form("LastName"),"SQLString") & "'" end if if strCity = "1" then strsql = strsql & ", M_CITY = '" & chkString(Request.Form("City"),"SQLString") & "'" end if if strState = "1" then strsql = strsql & ", M_STATE = '" & chkString(Request.Form("State"),"SQLString") & "'" end if ' strsql = strsql & ", M_HIDE_EMAIL = '" & chkString(Request.Form("HideMail"),"SQLString") & "'" if strPicture = "1" then strsql = strsql & ", M_PHOTO_URL = '" & chkString(Trim(regPhoto_URL),"SQLString") & "'" end if if intAllowAvatars = "1" then strsql = strsql & ", M_AVATAR_URL = '" & ChkString(Trim(regAvatar_Image),"SQLString") & "'" end if if strFavLinks = "1" then strsql = strsql & ", M_LINK1 = '" & chkString(Trim(regLink1),"SQLString") & "'" strSql = strSql & ", M_LINK2 = '" & chkString(Trim(regLink2),"SQLString") & "'" end if if strAge = "1" then strSql = strsql & ", M_AGE = '" & strMAge & "'" end if if strAgeDOB = "1" then strSql = strsql & ", M_DOB = '" & strMDOB & "'" end if if strMarStatus = "1" then strSql = strSql & ", M_MARSTATUS = '" & chkString(Request.Form("MarStatus"),"SQLString") & "'" end if if strSex = "1" then strSql = strsql & ", M_SEX = '" & chkString(Request.Form("Sex"),"SQLString") & "'" end if if strOccupation = "1" then strSql = strSql & ", M_OCCUPATION = '" & chkString(Request.Form("Occupation"),"SQLString") & "'" end if if strHobbies = "1" then strSql = strSql & ", M_HOBBIES = '" & chkString(Request.Form("Hobbies"),"message") & "'" end if if strQuote = "1" then strSql = strSql & ", M_QUOTE = '" & chkString(Request.Form("Quote"),"message") & "'" end if if strLNews = "1" then strsql = strsql & ", M_LNEWS = '" & chkString(Request.Form("LNews"),"message") & "'" end if if strAUAnon = "1" then strSql = strSql & ", M_AUHIDE = '" & ChkString(Request.Form("AUHide"),"") & "'" end if if strBio = "1" then strSql = strSql & ", M_BIO = '" & chkString(Request.Form("Bio"),"message") & "'" end if if (intAllowUploads <> "0") and (intAllowUploads <> "") then if Request.Form("allowDownloads") = 1 then strSql = strSql & ", M_ALLOWDOWNLOADS = 1" else strSql = strSql & ", M_ALLOWDOWNLOADS = 0" end if if Request.Form("allowUploads") = 1 then strSql = strSql & ", M_ALLOWUPLOADS = 1" else strSql = strSql & ", M_ALLOWUPLOADS = 0" end if end if strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID")) my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords if ChkString(Request.Form("Level"),"") = "1" then '## Forum_SQL - Remove the member from the moderator table strSql = "DELETE FROM " & strTablePrefix & "MODERATOR " strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & cLng(Request.Form("MEMBER_ID")) my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords end if if intUserFields = "1" then call updateUserFieldsInProfile(ChkString(Request.Form("MEMBER_ID"), "SQLString")) end if if intShowUserGroups = "1" then '## delete member from existing groups strSql = "DELETE FROM " & strTablePrefix & "USERGROUP_MEMBERS " &_ "WHERE MEMBER_TYPE = 1 AND MEMBER_ID = " & cLng(Request.Form("MEMBER_ID")) my_Conn.Execute(strSql) '## add member to new groups strGroups = Request.Form("UserGroups") if strGroups <> "" or not IsEmpty(strGroups) or not IsNull(strGroups) then arAddGroups = Split(strGroups,",") for iAGcount = LBound(arAddGroups) to UBound(arAddGroups) strSql = "INSERT INTO " & strTablePrefix & "USERGROUP_MEMBERS " &_ "(USERGROUP_ID, MEMBER_TYPE, MEMBER_ID) VALUES " &_ "(" & cLng(Trim(arAddGroups(iAGcount))) & ", 1, " & cLng(Request.Form("MEMBER_ID")) & ")" my_Conn.Execute(strSql) next end if end if Response.Write "

    " & fLang(strLangPop_Profile00910) & "

    " & vbNewLine if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" and strEmailVal = "1" then if (strUseExtendedProfile) then Response.Write "

    " & fLang(strLangPop_Profile01010) & "

    " & vbNewLine & _ "

    0 then Response.Write("default.asp?sectionid=0") else Response.Write(chkString(Request.Form("refer"),"refer")) Response.Write """>" & fLang(strLangBack_Forum00010) & "

    " & vbNewLine else Response.Write "

    " & fLang(strLangPop_Profile01010) & "

    " & vbNewLine end if else if (strUseExtendedProfile) then Response.Write " " & vbNewLine & _ "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if end if else Response.Write "

    " & fLang(strLangPop_Profile01020) & "

    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
      " & Err_Msg & "
    " & vbNewLine & _ "

    " & fLang(strLangPop_Profile00950) & "

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if end if else 'Member but no Admin Response.Write "

    " & fLang(strLangPop_Profile00790) & "
    " & vbNewLine & _ "
    " & fLang(strLangPop_Profile00760) & "

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if end if else 'Not logged on or no member Response.Write "

    " & fLang(strLangPop_Profile00790) & "
    " & vbNewLine & _ "
    " & fLang(strLangPop_Profile00760) & "

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if end if case "goRate" 'update the members rating here iRating = Request.Form("rating") if iRating <> " " and iRating <> "" then iRatingMemberID = getMemberID( strDBNTUserName ) iMemberRated = Request.QueryString("id") iReturnRating = RateMember( iRating, iRatingMemberID, iMemberRated ) if iReturnRating <> -1 Then strErr = "" else strErr = fLang(strLangMember_Rating00060) end if else strErr = fLang(strLangMember_Rating00070) end if if strErr = "" Then Response.Write "

    " & fLang(strLangMember_Rating00080) & "

    " & vbNewLine & _ "" & vbNewLine & _ "

    0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if Response.Write """>" & fLang(strLangBack_Forum00010) & "

    " & vbNewLine else Response.Write "

    " & fLang(strLangMember_Rating00090) & "

    " & vbNewLine Response.Write "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "
    " & strErr & "
    " & vbNewLine & _ "
    " & vbNewLine & _ "
    " & vbNewLine Response.Write "

    " & fLang(strLangMember_Rating00100) & "

    " & vbNewLine Response.Write "

    0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if Response.Write """>" & fLang(strLangBack_Forum00010) & "

    " & vbNewLine end if case else Response.Redirect("default.asp") end select set rs = nothing if not(strUseExtendedProfile) then WriteFooterShort Response.End else WriteFooter Response.End end if function IsValidBirthDate() IsValidBirthDate = true strMDOByear = cInt(left(strMDOB, 4)) strMDOBmonth = cInt(mid(strMDOB, 5, 2)) strMDOBday = cInt(right(strMDOB, 2)) arrDays = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) intDays = arrDays(strMDOBMonth - 1) if strMDOBmonth = 2 and strMDOByear mod 4 = 0 and not (strMDOByear mod 100 = 0 and not strMDOBYear mod 400 = 0) then intDays = intDays + 1 end if if strMDOBday > intDays or strMDOB > left(DateToStr(strForumTimeAdjust), 8) then IsValidBirthDate = false end if end function Function IsValidURL(sValidate) Dim sInvalidChars Dim bTemp Dim i if trim(sValidate) = "" then IsValidURL = true : exit function sInvalidChars = """;+()*'<>" for i = 1 To Len(sInvalidChars) if InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 then bTemp = True if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01030) & " "" ; + ( ) * ' < > " if bTemp then Exit For next if not bTemp then for i = 1 to Len(sValidate) if Asc(Mid(sValidate, i, 1)) = 160 then bTemp = True if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01040) & " " if bTemp then Exit For next end if ' extra checks ' check to make sure URL begins with http:// or https:// if not bTemp then bTemp = (lcase(left(sValidate, 7)) <> "http://") and (lcase(left(sValidate, 8)) <> "https://") if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01050) & " " end if ' check to make sure URL is 255 characters or less if not bTemp then bTemp = len(sValidate) > 255 if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01060) & " " end if ' no two consecutive dots if not bTemp then bTemp = InStr(sValidate, "..") > 0 if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01070) & " " end if 'no spaces if not bTemp then bTemp = InStr(sValidate, " ") > 0 if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01040) & " " end if if not bTemp then bTemp = (len(sValidate) <> len(Trim(sValidate))) if bTemp then strURLError = "
    • " & fLang(strLangPop_Profile01040) & " " end if 'Addition for leading and trailing spaces ' if any of the above are true, invalid string IsValidURL = Not bTemp End Function %>