<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<% if not(strUseExtendedProfile) 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 strAuthType = "nt" then
if ChkAccountReg() <> "1" then
%>
<% else%>
border=0>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
border=0>
<% else%>
<%
end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
border=0>
<% 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
%>
<% =fLang(strLangPop_Profile00310) %>
<%
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
%>
<% =fLang(strLangPop_Profile00320) %>
<% =ChkString(rs("M_AGE"), "display") %>
<%
end if
if (strMarStatus = "1" and Trim(rs("M_MARSTATUS")) <> "") then
%>
<% =fLang(strLangPop_Profile00330) %>
<% = ChkString(rs("M_MARSTATUS"), "display") %>
<%
end if
if (strSex = "1" and Trim(rs("M_SEX")) <> "") then
%>
<% =fLang(strLangPop_Profile00340) %>
<%
if rs("M_SEX") = "Male" then
Response.Write fLang(strLangInc_Profile00300)
elseif rs("M_SEX") = "Female" then
Response.Write fLang(strLangInc_Profile00310)
else
Response.Write " "
end if
%>
<%
end if
if (strOccupation = "1" and Trim(rs("M_OCCUPATION")) <> "") then
%>
<%
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 trim(Request.Form("Name")) = "" then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00650) & "
"
end if
if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00660) & "
"
end if
if strAuthType = "db" then
if trim(Request.Form("Password")) = "" then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00670) & "
"
end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00680) & "
"
end if
if Request.Form("Password") <> Request.Form("Password2") then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00690) & "
"
end if
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00700) & "
"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00710) & "
"
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_Profile00720) & "
"
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 (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
else
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00730) & "
"
end if
rs.close
set rs = nothing
end if
end if
if Len(ChkString(Request.Form("Sig"),"message")) > 255 then
Err_Msg = Err_Msg & "
<%
end if
end if
case "ModifyIt"
mLev = cint(chkUser(STRdbntUserName, Request.Form("Pass")))
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_Profile00650) & "
"
end if
if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00660) & "
"
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 <> " & Trim(ChkString(Request.Form("Member_ID"), "SQLString")) &" "
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
else
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00790) & "
"
end if
rs.close
set rs = nothing
if strAuthType = "db" then
if trim(Request.Form("Password")) = "" then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00670) & "
"
end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00680) & "
"
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 & "
" & fLang(strLangPop_Profile00700) & "
"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "
" & fLang(strLangPop_Profile00710) & "
"
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_Profile00720) & "
"
end if
if Len(Request.Form("Sig")) > 255 then
Err_Msg = Err_Msg & "
<% end if %>
border=0>
border=0>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
border=0>
<% else%>
<%
end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else %>
<%
end if
end if
%>