<%
'#################################################################################
'## 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
'#################################################################################
on error resume next
%>
> " " and lcase(RS("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://") %>">
align=right nowrap width="10%"">
> " " and lcase(RS("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://") %>">
<% end if
end if
%>
<% if strPicture = "1" then %>
<% =fLang(strLangInc_Profile00100) %>
<% =fLang(strLangInc_Profile00110) %>
"") and lcase(RS("M_PHOTO_URL")) <> "http://" and not(IsNull(RS("M_PHOTO_URL"))) then Response.Write(ChkString(rs("M_PHOTO_URL"), "displayimage")) else Response.Write("http://") %>">
<% end if ' strPicture
if (strBio + strHobbies + strLNews + strQuote) > 0 then
strMyBio = rs("M_BIO")
strMyHobbies = rs("M_HOBBIES")
strMyLNews = rs("M_LNEWS")
strMyQuote = rs("M_QUOTE")
%>
>
<% if (Request.QueryString("mode") = "goEdit") or (Request.Querystring("mode") = "goModify" and (Request.QueryString("Name") = "Admin") or Request.Form("MEMBER_ID") = 1 or Request.Form("Name") = "Admin") then %>
<% =ChkString(rs("M_NAME"), "display") %>
">
<% else %>
">
<% end if %>
<%
if Request.Querystring("mode") = "goModify" then %>
<% =fLang(strLangInc_Profile00190) %>
">
<% end if
if strAuthType = "nt" then %>
*<% =fLang(strLangInc_Profile00200) %>
<% if Request.Form("Method_Type") = "Modify" then %>
">
<% else %>
<%=Session(strCookieURL & "userid")%>">
<% end if %>
<% else %>
* <% =fLang(strLangInc_Profile00210) %>
">
">
<% if Request.QueryString("mode") = "Register" or Request.QueryString("mode") = "goEdit" then %>
* <% =fLang(strLangInc_Profile00220) %>
" size="25">
<% end if
end if
if strFullName = "1" then
%>
<% =fLang(strLangInc_Profile00230) %>
">
<% =fLang(strLangInc_Profile00240) %>
">
<%
end if
if strCity = "1" then
%>
<% =fLang(strLangInc_Profile00250) %>
">
<%
end if
if strState = "1" then
%>
<% =fLang(strLangInc_Profile00260) %>
">
<%
end if
if strCountry = "1" then
%>
<% =fLang(strLangInc_Profile00270) %>
<% end if
if strAge = "1" then
%>
<% =fLang(strLangInc_Profile00280) %>
">
<%
end if
if strSex = "1" then
%>
<% =fLang(strLangInc_Profile00290) %>
<%
end if
if strMarStatus = "1" then
%>
<% =fLang(strLangInc_Profile00320) %>
">
<%
end if
if strOccupation = "1" then
%>
<% =fLang(strLangInc_Profile00330) %>
">
<%
end if
if Request.Querystring("mode") = "goModify" then %>
<% =fLang(strLangInc_Profile00340) %>
">
<% end if
strTxtSig = RS("M_SIG") %>
<% =fLang(strLangInc_Profile00350) %>
<% if Request.Form("Method_Type") = "Modify" then %>
<% =fLang(strLangInc_Profile00360) %>
<% if rs("M_NAME") = "Admin" then %>
<% =fLang(strLangInc_Profile00370) %>
<% else %>
<% end if %>
<% end if %>
<%
if not(strUseExtendedProfile) then
%>