<%
'#################################################################################
'## 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
'#################################################################################
%>
<%
Sub DisplayProfileForm
on error resume next
strMode = Request.QueryString("mode")
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & fLangN(strLangInc_Profile00010, "*") & ""
if lcase(strEmail) = "1" and strEmailVal = "1" then
if strMode = "Register" then
Response.Write(" " & fLang(strLangInc_Profile00020) & "")
else
if strMode <> "goModify" then
Response.Write(" " & fLang(strLangInc_Profile00030) & "")
else
Response.Write(" " & fLang(strLangInc_Profile00040) & "")
end if
end if
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
if strUseExtendedProfile then
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00050) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* " & fLang(strLangInc_Profile00060) & "
" & 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 & _
"
* " & fLang(strLangInc_Profile00070) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00080) & "
" & 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
if strHomepage = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00180) & "
" & 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 & _
"
" & fLang(strLangInc_Profile00190) & "
" & 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 "
"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 & _
"
" & fLang(strLangInc_Profile00220) & "
" & vbNewLine & _
"
" & vbNewLine
if strHobbies = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00230) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strLNews = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00240) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strQuote = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00250) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strBio = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00260) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
end if 'extended profile
Response.Write "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00270) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* " & fLang(strLangInc_Profile00280) & "
" & 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 & _
"
" & fLang(strLangInc_Profile00290) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strAuthType = "nt" then
Response.Write "
" & vbNewLine & _
"
* " & fLang(strLangInc_Profile00300) & "
" & 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 & _
"
* " & fLang(strLangInc_Profile00310) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* " & fLang(strLangInc_Profile00320) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
else
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00330) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
if strMode = "goEdit" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00340) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
end if
end if
if strFullName = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00350) & "
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_FIRSTNAME"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00360) & "
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_LASTNAME"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strCity = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00370) & "
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_CITY"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strState = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00380) & "
" & vbNewLine & _
"
"Register" then Response.Write(rs("M_STATE"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strCountry = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00390) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
if strAge = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00410) & "
" & 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
if strMode <> "goModify" then
if strDSignatures = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00520) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00530) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
end if
end if
if Request.Form("Method_Type") = "Modify" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00540) & "
" & vbNewLine & _
"
" & vbNewLine
if rs("MEMBER_ID") = intAdminMemberID then
Response.Write " " & fLang(strLangInc_Profile00550) & "" & vbNewLine & _
" " & vbNewLine
else
Response.Write " " & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & vbNewLine
end if
if not(strUseExtendedProfile) then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00050) & "
" & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine & _
"
* " & fLang(strLangInc_Profile00060) & "
" & 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 & _
"
* " & fLang(strLangInc_Profile00070) & "
" & vbNewLine & _
"
" & vbNewLine & _
" " & vbNewLine
end if
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00080) & "
" & 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 & _
"
" & fLang(strLangInc_Profile00130) & "
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strICQ = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00140) & "
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strMSN = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00150) & "
" & vbNewLine & _
"
"Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """>
" & vbNewLine & _
"
" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00160) & "
" & 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 & _
"
" & fLang(strLangInc_Profile00170) & "
" & vbNewLine & _
"
" & vbNewLine
if strHomepage = "1" then
Response.Write "
" & vbNewLine & _
"
" & fLang(strLangInc_Profile00180) & "
" & 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 & _
"
" & fLang(strLangInc_Profile00190) & "
" & 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 "