<%
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan 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 any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com 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.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
'** This Page Contains source code of Snitz Forums 2000
'***********************************************************************
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
CurPageInfoChk = "1"
function CurPageInfo ()
If Request.QueryString("mode") = "display" Then
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Member Profile"
PageAction = "Viewing "
PageLocation = "pop_profile.asp?" & strOnlineQueryString & ""
CurPageInfo = PageAction & " " & "" & PageName & ""
else
CurPageInfo = "Editing Member Profile"
end if
end function
%>
<%
if not(strUseExtendedProfile) and Request.QueryString("verkey") = "" then %>
<%
else
%>
<% end if
if strDBNTUserName = "" then
doNotLoggedInForm
else
%>
<%
if Request.QueryString("mode") = "Moderator" and mLev = 4 then
select case Request.QueryString("action")
case "del"
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_LEVEL = 1 "
strSql = strSql & " WHERE M_LEVEL = 2 AND MEMBER_ID = " & cLng(Request.QueryString("id"))
my_Conn.Execute(strsql)
case "add"
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_LEVEL = 2 "
strSql = strSql & " WHERE M_LEVEL = 1 AND MEMBER_ID = " & cLng(Request.QueryString("id"))
my_Conn.Execute(strsql)
end select %>
Updated
<% end if
if strAuthType = "nt" then
if ChkAccountReg() <> "1" then %>
Note: This NT account has not been registered yet, thus the profile is not available.
If this is your account, click here to register.
<%
Response.End
end if
end if
if Request.QueryString("verkey") <> "" then
verkey = Request.QueryString("verkey")
'###Forum_SQL
strSql = "SELECT *"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_KEY = '" & verkey & "'"
set rsKey = my_Conn.Execute (strSql)
if rsKey.EOF or rsKey.BOF or strComp(verkey, rsKey("M_KEY")) <> 0 then
'Error message to user
%>
There is a Problem!
>Your verification key did not match the one that we have in our database.
Please try changing your email address again by clicking the Profile link at the top right hand corner.
If this problem persists, please contact the Administator of the site.
<% end if
end if
if strRecentTopics = "1" then
strStartDate = DateToStr(dateadd("d", -30, strForumTimeAdjust))
'## Forum_SQL - Find all records for the member
strsql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, "
strsql = strsql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_LAST_POST, " & strTablePrefix & "TOPICS.T_REPLIES, " & strTablePrefix & "TOPICS.T_POLL, " & strTablePrefix & "TOPICS.T_NEWS "
strsql = strsql & " FROM ((" & strTablePrefix & "FORUM LEFT JOIN " & strTablePrefix & "TOPICS "
strsql = strsql & " ON " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY "
strsql = strsql & " ON " & strTablePrefix & "TOPICS.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID) "
strsql = strsql & " WHERE (T_DATE > '" & strStartDate & "') "
strsql = strsql & " AND (" & strTablePrefix & "TOPICS.T_AUTHOR = " & cLng(Request.QueryString("id")) & " "
strsql = strsql & " OR " & strTablePrefix & "REPLY.R_AUTHOR = " & cLng(Request.QueryString("id")) & ")"
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC, " & strTablePrefix & "TOPICS.TOPIC_ID DESC"
set rs2 = my_Conn.Execute(strsql)
%>
הודעות אחרונות
<% if rs2.EOF or rs2.BOF then %>
לא נמצאו...
<%
else
currTopic = 0
TopicCount = 0
%>
valign=top colspan="2">
<%
do until rs2.EOF or (TopicCount = 10)
if chkDisplayForum(rs2("FORUM_ID")) and chkForumAccess(rs2("FORUM_ID")) = true then
if currTopic <> rs2("TOPIC_ID") then %>
<% else%>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
<% else%>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else%>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else %>
<% end if
end if %>
<%
end if
if (strCity = "1" and Trim(rs("M_CITY")) <> "") or (strCountry = "1" and Trim(rs("M_COUNTRY")) <> "") or (strCountry = "1" and Trim(rs("M_STATE")) <> "") then
%>
מיקום:
<% Response.Write(rs("M_CITY"))
if Trim(rs("M_CITY")) <> "" then
Response.Write(" ")
end if
if Trim(rs("M_STATE")) <> "" then
Response.Write(ChkString(rs("M_STATE"), "display") & " ")
end if
Response.Write(ChkString(rs("M_COUNTRY"), "display"))
%>
<%
end if
if (strAge = "1" and Trim(rs("M_AGE")) <> "") then
'########## Birthday Mod ##########
UBirthdate = rs("M_AGE")
UAge = GetAge(UBirthdate)
%>
Age:
<% =UAge%>
<% ' ########### End Birthday Mod ############## %>
<%
end if
if (strMarStatus = "1" and Trim(rs("M_MARSTATUS")) <> "") then
%>
מצב אישי:
<% = ChkString(rs("M_MARSTATUS"), "display") %>
<%
end if
if (strSex = "1" and Trim(rs("M_SEX")) <> "") then
%>
מין:
<% = ChkString(rs("M_SEX"), "display") %>
<%
end if
if (strOccupation = "1" and Trim(rs("M_OCCUPATION")) <> "") then
%>
עיסוק:
<% = ChkString(rs("M_OCCUPATION"), "dislay") %>
<%
end if
%>
מספר הודעות:
<% = ChkString(rs("M_POSTS"), "display")%> (<%= strMemberPercentPosts%>% מכלל הודעות הפורום / <% =strMemberPostsperDay %> הודעות ליום
<% end if
if strFavLinks = "1" then
if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then %>
<% end if
end if
case "EditIt"
Err_Msg = ""
if 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) or (Instr(Request.Form("Name"), ",") > 0) or (Instr(Request.Form("Name"), "&") > 0) or (Instr(Request.Form("Name"), "#") > 0) or (Instr(Request.Form("Name"), "'") > 0) then
Err_Msg = Err_Msg & "
> and < are not allowed in the UserName
"
end if
if strAuthType = "db" then
'if trim(Request.Form("Password")) = "" then
' Err_Msg = Err_Msg & "
You must choose a Password
"
'end if
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
if (Instr(Request.Form("Password"), ">") > 0 ) or (Instr(Request.Form("Password"), "<") > 0) or (Instr(Request.Form("Password"), ",") > 0) or (Instr(Request.Form("Password"), "&") > 0) or (Instr(Request.Form("Password"), "#") > 0) or (Instr(Request.Form("Password"), "'") > 0) then
Err_Msg = Err_Msg & "
Some characters are not allowed in the Password
"
end if
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "
You Must give an email address
"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "
You Must enter a valid email address
"
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 your 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(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
Else
Err_Msg = Err_Msg & "
Email Address already in use, Please Choose Another
"
end if
rs.close
set rs = nothing
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(ChkString(Request.Form("Sig"),"message")) > 255 then
Err_Msg = Err_Msg & "
Your signature can not be greater than 255 characters. "
Err_Msg = Err_Msg & "It now is " & Len(ChkString(Request.Form("Sig"),"message")) & " characters long.
"
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"),"url")
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"),"url")
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"),"url")
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"),"url")
else
regPhoto_URL = " "
end if
'## Forum_SQL
strsql = ""
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
if trim(Request.Form("Password")) = "" then
strSql = strSql & " SET M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "', "
else
strSql = strSql & " SET M_PASSWORD = '" & ChkString(pEncrypt(pEnPrefix & Request.Form("Password")),"") & "', "
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "', "
end if
strSql = strSql & " M_RECMAIL = '" & ChkString(Request.Form("RECMAIL"),"") & "', "
if strICQ = "1" then
strSql = strSql & " M_ICQ = '" & ChkString(Request.Form("ICQ"),"") & "', "
end if
if strYAHOO = "1" then
strSql = strSql & " M_YAHOO = '" & ChkString(Request.Form("YAHOO"),"") & "', "
end if
if strAIM = "1" then
strSql = strSql & " M_AIM = '" & ChkString(Request.Form("AIM"),"") & "', "
end if
if strHOMEPAGE = "1" then
strSql = strSql & " M_Homepage = '" & ChkString(Trim(regHomepage),"") & "', "
end if
strSql = strSql & " M_SIG = '" & ChkString(Request.Form("Sig"),"message") & "', "
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") & "'"
if strfullName = "1" then
strSql = strSql & ", M_FIRSTNAME = '" & ChkString(Request.Form("FirstName"),"") & "'"
strSql = strSql & ", M_LASTNAME = '" & ChkString(Request.Form("LastName"),"") & "'"
end if
if strCity = "1" then
strsql = strsql & ", M_CITY = '" & ChkString(Request.Form("City"),"") & "'"
end if
if strState = "1" then
strsql = strsql & ", M_STATE = '" & ChkString(Request.Form("State"),"") & "'"
end if
strsql = strsql & ", M_HIDE_EMAIL = '" & ChkString(Request.Form("HideMail"),"") & "'"
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Request.Form("Photo_URL"),"") & "'"
end if
strsql = strsql & ", M_AVATAR_URL = '" & ChkString(Request.Form("Avatar_URL"),"") & "'"
if strFavLinks = "1" then
strsql = strsql & ", M_LINK1 = '" & ChkString(Request.Form("LINK1"),"") & "'"
strSql = strSql & ", M_LINK2 = '" & ChkString(Request.Form("LINK2"),"") & "'"
end if
if strAge = "1" then
strSql = strsql & ", M_AGE = '" & ChkString(Request.Form("Age"),"") & "'"
end if
if strMarStatus = "1" then
strSql = strSql & ", M_MARSTATUS = '" & ChkString(Request.Form("MarStatus"),"") & "'"
end if
if strSex = "1" then
strSql = strsql & ", M_SEX = '" & ChkString(Request.Form("Sex"),"") & "'"
end if
if strOccupation = "1" then
strSql = strSql & ", M_OCCUPATION = '" & ChkString(Request.Form("Occupation"),"") & "'"
end if
if strBio = "1" then
strSql = strSql & ", M_BIO = '" & ChkString(Request.Form("Bio"),"message") & "'"
end if
if strHobbies = "1" then
strSql = strSql & ", M_HOBBIES = '" & ChkString(Request.Form("Hobbies"),"message") & "'"
end if
if strLNews = "1" then
strsql = strsql & ", M_LNEWS = '" & ChkString(Request.Form("LNews"),"message") & "'"
end if
if strQuote = "1" then
strSql = strSql & ", M_QUOTE = '" & ChkString(Request.Form("Quote"),"message") & "'"
end if
strSql = strSql & " WHERE M_NAME = '" & Request.Form("Name") & "' "
if strAuthType = "db" then
strSql = strSql & " AND M_PASSWORD = '" & Request.Form("Password-d") & "'"
end IF
my_Conn.Execute(strSql)
regHomepage = ""
%>
Profile Updated.
<% if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" and strEmailVal = "1" then
if (strUseExtendedProfile) then
%>
Your email address has changed. To complete your email change, please follow the instructions in the email that has been sent to your new email address.
Your email address has changed. To complete your email change, please follow the instructions in the email that has been sent to your new email address.
<%
end if
else%>
<%
if (strUseExtendedProfile) then
%>
0 then Response.Write("fhome.asp") else Response.Write(Request.Form("refer")) end if %>">
<% end if
end if
case "ModifyIt"
mLev = cint(ChkUser2(STRdbntUserName, pEncrypt(pEnPrefix & Request.Form("Pass"))))
if mLev > 0 then '## is Member
if mLev = 4 then '## is Admin
Err_Msg = ""
if 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(Request.Form("Name")) &"' "
strSql = strSql & " AND MEMBER_ID <> " & Trim(Request.Form("Member_ID")) &" "
set rs = my_Conn.Execute (strSql)
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
rs.close
set rs = nothing
if strAuthType = "db" then
'if trim(Request.Form("Password")) = "" then
' Err_Msg = Err_Msg & "
You must set a Password
"
'end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "
The Password can not be greater than 25 characters
"
end if
'if Request.Form("Password") <> Request.Form("Password2") then
' Err_Msg = Err_Msg & "
The Passwords didn't match.
"
'end if
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "
You Must set an email address
"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "
You Must enter a valid email address
"
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(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
Else
Err_Msg = Err_Msg & "
Email Address already in use, Please Choose Another
"
end if
rs.close
set rs = nothing
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("Sig")) > 255 then
Err_Msg = Err_Msg & "
The signature can not be greater than 255 characters. "
Err_Msg = Err_Msg & "It now is " & Len(Request.Form("Sig")) & " 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"),"url")
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"),"url")
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"),"url")
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"),"url")
else
regPhoto_URL = " "
end if
'## Forum_SQL
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_NAME = '" & ChkString(Request.Form("Name"),"name") & "'"
if strAuthType = "nt" then
strSql = strSql & ", M_USERNAME = '" & ChkString(Request.Form("Account"),"") & "'"
else
if strAuthType = "db" and trim(Request.Form("Password")) <> "" then
strSql = strSql & ", M_PASSWORD = '" & ChkString(pEncrypt(pEnPrefix & Request.Form("Password")),"") & "'"
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_RECMAIL = '" & ChkString(Request.Form("RECMAIL"),"") & "'"
strSql = strSql & ", M_TITLE = '" & ChkString(Request.Form("Title"),"") & "'"
strSql = strSql & ", M_POSTS = " & ChkString(Request.Form("Posts"),"") & " "
strSql = strSql & ", M_GOLD = " & ChkString(Request.Form("Gold"),"") & " "
strSql = strSql & ", M_REP = " & ChkString(Request.Form("Rep"),"") & " "
strSql = strSql & ", M_RTOTAL = " & ChkString(Request.Form("Referrals"),"") & " "
strSql = strSql & ", M_RNAME = '" & ChkString(Request.Form("Referrer"),"") & "'"
strSql = strSql & ", M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "'"
if strICQ = "1" then
strSql = strSql & ", M_ICQ = '" & ChkString(Request.Form("ICQ"),"") & "'"
end if
if strYAHOO = "1" then
strSql = strSql & ", M_YAHOO = '" & ChkString(Request.Form("YAHOO"),"") & "'"
end if
if strAIM = "1" then
strSql = strSql & ", M_AIM = '" & ChkString(Request.Form("AIM"),"name") & "'"
end if
if strHOMEPAGE = "1" then
strSql = strSql & ", M_HOMEPAGE = '" & ChkString(Request.Form("Homepage"),"" ) & "'"
end if
strSql = strSql & ", M_SIG = '" & ChkString(Request.Form("Sig"),"message") & "'"
strSql = strSql & ", M_LEVEL = " & ChkString(Request.Form("Level"),"")
if strfullName = "1" then
strSql = strSql & ", M_FIRSTNAME = '" & ChkString(Request.Form("FirstName"),"") & "'"
strSql = strSql & ", M_LASTNAME = '" & ChkString(Request.Form("LastName"),"") & "'"
end if
if strCity = "1" then
strsql = strsql & ", M_CITY = '" & ChkString(Request.Form("City"),"") & "'"
end if
if strState = "1" then
strsql = strsql & ", M_STATE = '" & ChkString(Request.Form("State"),"") & "'"
end if
'strsql = strsql & ", M_HIDE_EMAIL = '" & ChkString(Request.Form("HideMail"),"") & "'"
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Request.Form("Photo_URL"),"") & "'"
end if
strsql = strsql & ", M_AVATAR_URL = '" & ChkString(Request.Form("Avatar_URL"),"") & "'"
if strFavLinks = "1" then
strsql = strsql & ", M_LINK1 = '" & ChkString(Request.Form("LINK1"),"") & "'"
strSql = strSql & ", M_LINK2 = '" & ChkString(Request.Form("LINK2"),"") & "'"
end if
if strAge = "1" then
strSql = strsql & ", M_AGE = '" & ChkString(Request.Form("Age"),"") & "'"
end if
if strMarStauts = "1" then
strSql = strSql & ", M_MARSTATUS = '" & ChkString(Request.Form("MarStatus"),"") & "'"
end if
if strSex = "1" then
strSql = strsql & ", M_SEX = '" & ChkString(Request.Form("Sex"),"") & "'"
end if
if strOccupation = "1" then
strSql = strSql & ", M_OCCUPATION = '" & ChkString(Request.Form("Occupation"),"") & "'"
end if
if strBio = "1" then
strSql = strSql & ", M_BIO = '" & ChkString(Request.Form("Bio"),"message") & "'"
end if
if strHobbies = "1" then
strSql = strSql & ", M_HOBBIES = '" & ChkString(Request.Form("Hobbies"),"message") & "'"
end if
if strLNews = "1" then
strsql = strsql & ", M_LNEWS = '" & ChkString(Request.Form("LNews"),"message") & "'"
end if
if strQuote = "1" then
strSql = strSql & ", M_QUOTE = '" & ChkString(Request.Form("Quote"),"message") & "'"
end if
strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID")
my_Conn.Execute(strSql)
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 = " & Request.Form("MEMBER_ID")
my_Conn.Execute (strSql)
end if
%>
Profile Updated.
<% if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" and strEmailVal = "1" then
if (strUseExtendedProfile) then
%>
The email address has been changed. A confirmation has been sent to the new email address.
<% end if %>
<% =ChkString(rs("M_ICQ"), "display") %>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
<% else%>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else %>
<% end if
end if %>
<% end if %><% if rs2("T_POLL") <> 0 then %> 
<% end if %>