<% '################################################################################# '## Copyright (C) 2000-02 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 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 '################################################################################# %> <% if not(strUseExtendedProfile) and Request.QueryString("verkey") = "" then %> <% else %> <% end if %> <% 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 = Request.Form("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 & _ "Note: This NT account has not been registered yet, thus the profile is not available.
" & vbNewLine if strProhibitNewMembers <> "1" then Response.Write "If this is your account, click here to register.

" & 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 "

There is a Problem!

" & vbNewLine & _ "

Your verification key did not match the one that we have in our database.
Please try changing your e-mail address again by clicking the Profile link at the top right hand corner.
If this problem persists, please contact the Administrator of this forum.

" & vbNewLine & _ "

Back To Forum

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

There is a Problem!

" & vbNewLine & _ "

Your verification key did not match the one that we have in our database.
Please try changing your e-mail address again by clicking the Profile link at the top right hand corner.
If this problem persists, please contact the Administrator of this forum.

" & vbNewLine & _ "

Back To Forum

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

E-mail Already Verified!

" & vbNewLine & _ "

Your e-mail address has already been updated in our database.
If this problem persists, please contact the Administrator of this forum.

" & vbNewLine & _ "

Back To Forum

" & 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 = '" & rsKey("M_NEWEMAIL") & "'" strSql = strSql & ", M_KEY = ''" strSql = strSql & " WHERE MEMBER_ID = " & userID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords Response.Write "

Your E-mail Address Has Been Updated!

" & vbNewLine & _ "

Your new e-mail address has been successfully updated in our database.

" & vbNewLine & _ "

Back To Forum

" & vbNewLine rsKey.close set rsKey = nothing WriteFooter Response.End end if end if '################################################################################# select case Request.QueryString("mode") case "display" '## Display Profile if strDBNTUserName = "" then Err_Msg = "You must be logged in to view a Member's Profile" Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile
" & vbNewLine & _ "

There Was A Problem!

" & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Back to Forum

" & 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_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_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 & " 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,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile
" & vbNewLine & _ "

There Was A Problem!

" & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Back to Forum

" & 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,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & chkString(rs("M_NAME"),"display") & "'s Profile
" & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " User Profile
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if mLev = 4 then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "
 " & ChkString(rs("M_NAME"),"display") & " " & ChkString(rs("M_NAME"),"display") & "Member Since: " & 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 if trim(rs("M_PHOTO_URL")) = "" or lcase(rs("M_PHOTO_URL")) = "http://" then strPicture = 0 if strPicture = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if ' strPicture 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 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 = partss(1) 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 "
 My Picture 
" if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then Response.Write "" & getCurrentIcon(ChkString(rs("M_PHOTO_URL"), "displayimage") & "|150|150",ChkString(rs("M_NAME"),"display"),"hspace=""2"" vspace=""2""") & "
Click image for full picture" else Response.Write getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""2"" vspace=""2""") end if Response.Write "
 My Contact Info 
E-mail User: Click to send an E-Mail No address specified...
AIM: " & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " " & ChkString(rs("M_AIM"), "display") & " 
ICQ: " & 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") & " 
MSN: " & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & "  
YAHOO IM: " & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & " 
No info specified...
Recent Topics
 
 No Matches Found...
 
" & 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,"New Topic","align=""absmiddle""") & "" & vbNewLine end if else if rs2("T_REPLIES") >= intHotTopicNum then Response.Write getCurrentIcon(strIconFolderHot,"Hot Topic","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,"New Topic","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,"Topic Locked","align=""absmiddle""") & "" & vbNewLine else Response.Write getCurrentIcon(strIconFolderLocked,"Topic Locked","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,"Hot Topic","align=""absmiddle""") & " " & ChkString(rs2("T_SUBJECT"),"display") & " 
" & vbNewLine & _ "
" & vbNewLine & _ " Links 
Homepage: " & rs("M_HOMEPAGE") & " No homepage specified...
Cool Links: " & rs("M_LINK1") & " 
 " & rs("M_LINK2") & " No link specified...
" & 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 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 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 (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 Response.Write "
Basics
User Name: " & ChkString(rs("M_NAME"),"display") & " 
Your Account: " & ChkString(rs("M_USERNAME"),"display") & "
Real Name: " & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "
Location: " 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 "
Age: " & ChkString(rs("M_AGE"), "display") & "
Age: " & DisplayUsersAge(strDOB) & "
Marital Status: " & ChkString(rs("M_MARSTATUS"), "display") & "
Gender: " & ChkString(rs("M_SEX"), "display") & "
Occupation: " & ChkString(rs("M_OCCUPATION"), "display") & "
Total Posts: " & ChkString(intTotalMemberPosts, "display") & "
[" & strMemberPostsperDay & strPosts & " per day]
Find all non-archived posts by " & chkString(rs("M_NAME"),"display") & "
E-mail User: Click to send an E-Mail No address specified...
AIM: " & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " " & ChkString(rs("M_AIM"), "display") & " 
ICQ: " & 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") & " 
MSN: " & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & "  
YAHOO IM: " & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & " 
More About Me
Bio: " if IsNull(strMyBio) or trim(strMyBio) = "" then Response.Write("-") else Response.Write(formatStr(strMyBio)) Response.Write "
Hobbies: " if IsNull(strMyHobbies) or trim(strMyHobbies) = "" then Response.Write("-") else Response.Write(formatStr(strMyHobbies)) Response.Write "
Latest News: " if IsNull(strMyLNews) or trim(strMyLNews) = "" then Response.Write("-") else Response.Write(formatStr(strMyLNews)) Response.Write "
Favorite Quote: " if IsNull(strMyQuote) or Trim(strMyQuote) = "" then Response.Write("-") else Response.Write(formatStr(strMyQuote)) Response.Write "
Links 
Homepage: " & ChkString(rs("M_HOMEPAGE"), "display") & " No homepage specified...
Cool Links: " & ChkString(rs("M_LINK1"), "display") & " 
 " & ChkString(rs("M_LINK2"), "display") & " No link specified...
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strUseExtendedProfile then Response.Write "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & _ "

Back to previous page


" & vbNewLine else Response.Write "
" & vbNewLine end if end if case "Edit" if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Edit Your Profile
" & vbNewLine end if Response.Write "
" & vbNewLine & _ "

User Profile

" & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " It is up to you to keep your profile up to date.
" & vbNewLine if strAuthType = "nt" then Response.Write " Your NT account is shown. Click Submit to carry on.

" & vbNewLine else if strAuthType = "db" then Response.Write " Please Fill the Form in with your details.

" & vbNewLine end if end if if strProhibitNewMembers <> "1" and MemberID < 0 then Response.Write " If you have not registered then do so here.

" & 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 & _ "
Your Account:" & Session(strCookieURL & "userid") & "
User Name:
Password:
" & 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_HIDE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_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_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,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Edit Your Profile
" & vbNewLine end if if rs.BOF or rs.EOF or not(ChkQuoteOk(strDBNTUserName)) or not(ChkQuoteOk(strEncodedPassword)) then Response.Write "

Invalid UserName or Password

" & vbNewLine & _ "

Go Back To Retry

" & vbNewLine if strUseExtendedProfile then Response.Write "

Back To Forum

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

Edit User Profile

" & vbNewLine & _ "

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

" & vbNewLine end if case "Modify" if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Modify " & GetMemberName(ppMember_ID) & "'s Profile
" & vbNewLine end if Response.Write "
" & vbNewLine & _ "

Modify Member

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

NOTE: The Forum Admin account can only be modified by the Forum Admin.

" & vbNewLine & _ "

Back to Forum

" & vbNewLine else Response.Write "

NOTE: Only Administrators can Modify a Member.

" & 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 & _ "
User Name:
Password:
NT Account:" & Session(strCookieURL & "userid") & "
" & vbNewLine & _ "
" & vbNewLine & _ "
" & vbNewLine end if case "goModify" if strNoCookies = "1" and strAuthType = "db" then if strDBNTUserName = "" then strDBNTUserName = chkString(Request.Form("Name"),"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_HIDE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_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_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 "

No Permissions to Modify an Administrator
" & vbNewLine & _ "
Go Back to Re-Authenticate

" & vbNewLine if strUseExtendedProfile then Response.Write "

Back To Forum

" & 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,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Modify " & chkString(rs("M_NAME"),"display") & "'s Profile
" & vbNewLine end if '## Display Edit Profile Page Response.Write "
" & vbNewLine & _ "

Modify User Profile

" & vbNewLine & _ "

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

" & vbNewLine else Response.Write "

No Permissions to Modify a Member
" & vbNewLine & _ "
Go Back to Re-Authenticate

" & vbNewLine if strUseExtendedProfile then Response.Write "

Back To Forum

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

No Permissions to Modify a Member
" & vbNewLine & _ "
Go Back to Re-Authenticate

" & vbNewLine if strUseExtendedProfile then Response.Write "

Back To Forum

" & 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,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Edit Your Profile
" & vbNewLine end if Err_Msg = "" if trim(Request.Form("Name")) = "" then Err_Msg = Err_Msg & "
  • You must choose a UserName
  • " end if if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then Err_Msg = Err_Msg & "
  • > and < are not allowed in the UserName, Please Choose Another
  • " end if if strAuthType = "db" then if trim(Request.Form("Password")) <> "" then if Len(Request.Form("Password")) > 25 then Err_Msg = Err_Msg & "
  • Your Password can not be greater than 25 characters
  • " end if if Request.Form("Password") <> Request.Form("Password2") then Err_Msg = Err_Msg & "
  • Your Passwords didn't match.
  • " end if end if end if if Request.Form("Email") = "" then Err_Msg = Err_Msg & "
  • You Must give an e-mail address
  • " end if if EmailField(Request.Form("Email")) = 0 then Err_Msg = Err_Msg & "
  • You Must enter a valid e-mail address
  • " end if if strMSN = "1" and trim(Request.Form("MSN")) <> "" then if EmailField(Request.Form("MSN")) = 0 then Err_Msg = Err_Msg & "
  • You Must enter a valid MSN Messenger Username
  • " end if end if if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (trim(Request.Form("Homepage")) <> "") then Err_Msg = Err_Msg & "
  • You Must prefix your Homepage URL with http:// or https://
  • " end if if (lcase(left(Request.Form("LINK1"), 7)) <> "http://") and (lcase(left(Request.Form("LINK1"), 8)) <> "https://") and (trim(Request.Form("LINK1")) <> "") then Err_Msg = Err_Msg & "
  • You Must prefix your Cool Link URL with http:// or https://
  • " end if if (lcase(left(Request.Form("LINK2"), 7)) <> "http://") and (lcase(left(Request.Form("LINK2"), 8)) <> "https://") and (trim(Request.Form("LINK2")) <> "") then Err_Msg = Err_Msg & "
  • You Must prefix your Cool Link URL with http:// or https://
  • " end if if (lcase(left(Request.Form("Photo_URL"), 7)) <> "http://") and (lcase(left(Request.Form("Photo_URL"), 8)) <> "https://") and (trim(Request.Form("Photo_URL")) <> "") then Err_Msg = Err_Msg & "
  • You Must prefix your Picture URL with http:// or https://
  • " end if if Len(Request.Form("Homepage")) > 255 then Err_Msg = Err_Msg & "
  • The Homepage URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("Homepage")) & " characters long.
  • " end if if Len(Request.Form("LINK1")) > 255 then Err_Msg = Err_Msg & "
  • The Cool Links URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("LINK1")) & " characters long.
  • " end if if Len(Request.Form("LINK2")) > 255 then Err_Msg = Err_Msg & "
  • The Cool Links URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("LINK2")) & " characters long.
  • " end if if Len(Request.Form("Photo_URL")) > 255 then Err_Msg = Err_Msg & "
  • The Picture URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("Photo_URL")) & " characters long.
  • " 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 & "
  • E-mail Address already in use, Please Choose Another
  • " 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 & "
  • E-mail Address already in use, Please Choose Another
  • " 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 & "
  • E-mail Address already in use, Please Choose Another
  • " 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 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 '## 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 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 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 = '" & ChkString(Request.Form("Age"),"SQLString") & "'" end if if strAgeDOB = "1" then strSql = strsql & ", M_DOB = '" & ChkString(Request.Form("AgeDOB"),"SQLString") & "'" 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 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 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 "

    Profile Updated.

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

    Your e-mail address has changed. To complete your e-mail address change,
    please follow the instructions in the e-mail that has been sent to your new e-mail address.

    " & vbNewLine & _ "

    0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) Response.Write """>Back To Forum" & vbNewLine else Response.Write "

    Your e-mail address has changed. To complete your e-mail address change, please follow the instructions in the e-mail that has been sent to your new e-mail address.

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

    Back To Forum

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

    There Was A Problem With Your Details

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

    Go Back To Enter Data

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    Back To Forum

    " & vbNewLine end if end if case "ModifyIt" if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
    " & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Modify Profile
    " & vbNewLine end if strEncodedPassword = sha256("" & Request.Form("Pass")) 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 & "
  • You must set a UserName
  • " end if if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then Err_Msg = Err_Msg & "
  • > and < are not allowed in the UserName, Please Choose Another
  • " 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 & "
  • UserName is already in use,
    Please Choose Another
  • " 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 & "
  • UserName is already in use,
    Please Choose Another
  • " 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 & "
  • The Password can not be greater than 25 characters
  • " end if end if end if if Request.Form("Email") = "" then Err_Msg = Err_Msg & "
  • You Must set an e-mail address
  • " end if if EmailField(Request.Form("Email")) = 0 then Err_Msg = Err_Msg & "
  • You Must enter a valid e-mail address
  • " end if if strMSN = "1" and trim(Request.Form("MSN")) <> "" then if EmailField(Request.Form("MSN")) = 0 then Err_Msg = Err_Msg & "
  • You Must enter a valid MSN Messenger Username
  • " 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 & "
  • You Must prefix the URL with http:// or https://
  • " 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 & "
  • E-mail Address already in use, Please Choose Another
  • " 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 & "
  • E-mail Address already in use, Please Choose Another
  • " 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 & "
  • E-mail Address already in use, Please Choose Another
  • " 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 Len(Request.Form("Homepage")) > 255 then Err_Msg = Err_Msg & "
  • The Homepage URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("Homepage")) & " characters long.
  • " end if if Len(Request.Form("LINK1")) > 255 then Err_Msg = Err_Msg & "
  • The Cool Links URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("LINK1")) & " characters long.
  • " end if if Len(Request.Form("LINK2")) > 255 then Err_Msg = Err_Msg & "
  • The Cool Links URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("LINK2")) & " characters long.
  • " end if if Len(Request.Form("Photo_URL")) > 255 then Err_Msg = Err_Msg & "
  • The Picture URL can not be greater than 255 characters. " Err_Msg = Err_Msg & "It now is " & Len(Request.Form("Photo_URL")) & " characters long.
  • " 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 '## 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 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 = '" & chkString(Request.Form("Age"),"SQLString") & "'" end if if strAgeDOB = "1" then strSql = strsql & ", M_DOB = '" & ChkString(Request.Form("AgeDOB"),"SQLString") & "'" 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 strBio = "1" then strSql = strSql & ", M_BIO = '" & chkString(Request.Form("Bio"),"message") & "'" 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 Response.Write "

    Profile Updated.

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

    The e-mail address has been changed. A confirmation has been sent to the new e-mail address.

    " & vbNewLine & _ "

    0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) Response.Write """>Back To Forum" & vbNewLine else Response.Write "

    The e-mail address has been changed. A confirmation has been sent to the new e-mail address.

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

    Back To Forum

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

    There Was A Problem With The Details

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

    Go Back To Enter Data

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    Back To Forum

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

    No Permissions to Modify a Member
    " & vbNewLine & _ "
    Go Back to Re-Authenticate

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    Back To Forum

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

    No Permissions to Modify a Member
    " & vbNewLine & _ "
    Go Back to Re-Authenticate

    " & vbNewLine if strUseExtendedProfile then Response.Write "

    Back To Forum

    " & vbNewLine end if 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 %>