<%
'#################################################################################
'## 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
'##
'#################################################################################
Sub DisplayProfileForm
on error resume next
strMode = Request.QueryString("mode")
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
All Fields marked with * are required"
if lcase(strEmail) = "1" and strEmailVal = "1" then
if strMode = "Register" then
Response.Write(" To complete your registration, you need to have a valid e-mail address.")
else
if strMode <> "goModify" then
Response.Write(" If you change your e-mail address, a confirmation e-mail will be sent to your new address. Please make sure it is a valid address.")
else
Response.Write(" If you change the e-mail address, a confirmation e-mail will be sent to the new address. Please make sure it is a valid address.")
end if
end if
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
if strUseExtendedProfile then
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
Contact Info
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* E-mail Address:
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_EMAIL"))
Response.Write """>" & vbNewLine & _
" "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
if strMode = "Register" then
Response.Write "
" & vbNewLine & _
"
* E-mail Address Again:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
Allow Forum Members to Send you E-Mail?:
" & vbNewLine
if strMode = "Register" then
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
else
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
end if
Response.Write "
" & vbNewLine
if strMode = "goModify" then
Response.Write "
" & vbNewLine
end if
if strAIM = "1" then
Response.Write "
" & vbNewLine & _
"
AIM:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strICQ = "1" then
Response.Write "
" & vbNewLine & _
"
ICQ:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strMSN = "1" then
Response.Write "
" & vbNewLine & _
"
MSN:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write "
" & vbNewLine & _
"
YAHOO IM:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
" Links
" & vbNewLine & _
"
" & vbNewLine
if strHomepage = "1" then
Response.Write "
" & vbNewLine & _
"
Homepage:
" & vbNewLine & _
"
"Register" then
if ChkString(rs("M_HOMEPAGE"), "display") <> " " and lcase(rs("M_HOMEPAGE")) <> "http://" then Response.Write(rs("M_HOMEPAGE")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strFavLinks = "1" then
Response.Write "
" & vbNewLine & _
"
Cool Links:
" & vbNewLine & _
"
"Register" then
if rs("M_LINK1") <> " " and lcase(rs("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
"Register" then
if rs("M_LINK2") <> " " and lcase(rs("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
end if
if strPicture = "1" then
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
" Picture
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
Picture URL:
" & vbNewLine & _
"
"Register" then
if rs("M_PHOTO_URL") <> " " and lcase(rs("M_PHOTO_URL")) <> "http://" then Response.Write(ChkString(rs("M_PHOTO_URL"), "displayimage")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if ' strPicture
if (strBio + strHobbies + strLNews + strQuote) > 0 then
if strMode <> "Register" then
strMyHobbies = rs("M_HOBBIES")
strMyLNews = rs("M_LNEWS")
strMyQuote = rs("M_QUOTE")
strMyBio = rs("M_BIO")
end if
Response.Write "
" & vbNewLine & _
"
More About Me
" & vbNewLine & _
"
" & vbNewLine
if strHobbies = "1" then
Response.Write "
" & vbNewLine & _
"
Hobbies:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strLNews = "1" then
Response.Write "
" & vbNewLine & _
"
Latest News:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strQuote = "1" then
Response.Write "
" & vbNewLine & _
"
Favorite Quote:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strBio = "1" then
Response.Write "
" & vbNewLine & _
"
Bio:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
end if 'extended profile
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
Basics
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* User Name:
" & vbNewLine & _
"
" & vbNewLine
if (strMode = "goEdit") or (strMode = "goModify" and cLng(Request.Form("MEMBER_ID")) = cLng(intAdminMemberID)) then
Response.Write " " & ChkString(rs("M_NAME"), "display") & "" & vbNewLine & _
" " & vbNewLine
else
Response.Write " "Register" then Response.Write(ChkString(rs("M_NAME"), "display"))
Response.Write """>" & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
if strMode = "goModify" then
Response.Write "
" & vbNewLine & _
"
Title:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strAuthType = "nt" then
Response.Write "
" & vbNewLine & _
"
* Your Account:
" & vbNewLine & _
"
" & vbNewLine
if Request.Form("Method_Type") = "Modify" then
Response.Write " " & vbNewLine
else
Response.Write " " & Session(strCookieURL & "userid") & "" & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
else
if strMode = "Register" then
Response.Write "
" & vbNewLine & _
"
* Password:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* Password Again:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
else
Response.Write "
" & vbNewLine & _
"
New Password:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
if strMode = "goEdit" then
Response.Write "
" & vbNewLine & _
"
New Password Again:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
end if
end if
if strFullName = "1" then
Response.Write "
" & vbNewLine & _
"
Firstname:
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_FIRSTNAME"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
Surname:
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_LASTNAME"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strCity = "1" then
Response.Write "
" & vbNewLine & _
"
City:
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_CITY"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strState = "1" then
Response.Write "
" & vbNewLine & _
"
State:
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_STATE"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strCountry = "1" then
Response.Write "
" & vbNewLine & _
"
Country:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strAge = "1" then
Response.Write "
" & vbNewLine & _
"
Age:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_AGE"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
' if strAgeDOB = "1" then
' Response.Write " " & vbNewLine
' Response.Write "
" & vbNewLine
' end if
if strAgeDOB = "1" then
strDOByear = ""
strDOBmonth = ""
strDOBday = ""
if strMode <> "Register" then
strMDOB = trim(ChkString(rs("M_DOB"), "display"))
if len(strMDOB) > 0 then
strDOByear = cInt(left(strMDOB, 4))
strDOBmonth = cInt(mid(strMDOB, 5, 2))
strDOBday = cInt(right(strMDOB, 2))
end if
end if
Response.Write "
" & vbNewLine
if strAllowHTML = "1" then
Response.Write " * HTML is ON " & vbNewLine
else
Response.Write " * HTML is OFF " & vbNewLine
end if
if strAllowForumCode = "1" then
Response.Write " * Forum Code is ON " & vbNewLine
else
Response.Write " * Forum Code is OFF " & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
" " & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
if strMode <> "goModify" then
if strDSignatures = "1" then
Response.Write "
" & vbNewLine & _
"
View Signatures in Posts?:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
Signature checkbox checked by default?:
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
end if
if Request.Form("Method_Type") = "Modify" then
Response.Write "
" & vbNewLine & _
"
Member Level:
" & vbNewLine & _
"
" & vbNewLine
if rs("MEMBER_ID") = intAdminMemberID then
Response.Write " Administrator" & vbNewLine & _
" " & vbNewLine
else
Response.Write " " & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
end if
if not(strUseExtendedProfile) then
Response.Write "
" & vbNewLine & _
"
Contact Info
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* E-mail Address:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_EMAIL"), "display"))
Response.Write """>" & vbNewLine & _
" "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
if strMode = "Register" then
Response.Write " " & vbNewLine & _
"
* E-mail Address Again:
" & vbNewLine & _
"
" & vbNewLine & _
" " & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
Allow Forum Members to Send you E-Mail?:
" & vbNewLine
if strMode = "Register" then
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
else
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
end if
Response.Write "
" & vbNewLine
if strAIM = "1" then
Response.Write "
" & vbNewLine & _
"
AIM:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strICQ = "1" then
Response.Write "
" & vbNewLine & _
"
ICQ:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strMSN = "1" then
Response.Write "
" & vbNewLine & _
"
MSN:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write "
" & vbNewLine & _
"
YAHOO IM:
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
end if
if (strHomepage + strFavLinks) > 0 and not(strUseExtendedProfile) then
Response.Write "
" & vbNewLine & _
"
Links
" & vbNewLine & _
"
" & vbNewLine
if strHomepage = "1" then
Response.Write "
" & vbNewLine & _
"
Homepage:
" & vbNewLine & _
"
"Register" then
if rs("M_HOMEPAGE") <> " " and lcase(rs("M_HOMEPAGE")) <> "http://" then Response.Write(ChkString(rs("M_HOMEPAGE"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strFavLinks = "1" then
Response.Write "
" & vbNewLine & _
"
Cool Links:
" & vbNewLine & _
"
"Register" then
if rs("M_LINK1") <> " " and lcase(rs("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
"Register" then
if rs("M_LINK2") <> " " and lcase(rs("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://")
else
Response.Write("http://")
end if
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
if strUseExtendedProfile then
Response.Write "