<%
'#################################################################################
'## 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
%>
>
All Fields marked with * are required
<%
if strUseExtendedProfile then
%>
valign=top>
Contact Info
align=right width="10%"" nowrap>*Email Address:
>">
">
<% if strICQ = "1" then%>
align=right nowrap>ICQ:
>">
<% end if
if strYAHOO = "1" then
%>
align=right nowrap>YAHOO IM:
>">
<% end if
if strAIM = "1" then
%>
align=right nowrap>AIM:
>">
<% end if
if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then %>
Links
<% if strHomepage = "1" then %>
align=right nowrap width="10%"">Homepage:
> " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(RS("M_Homepage")) else Response.Write("http://") %>">
<% end if
if strFavLinks = "1" then%>
align=right nowrap width="10%"">Cool Links:
> " " 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 %>
Picture
Picture URL:
"") 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 %>
Title:
">
<% end if
if strAuthType = "nt" then %>
*Your Account:
<% if Request.Form("Method_Type") = "Modify" then %>
">
<% else %>
<%=Session(strCookieURL & "userid")%>">
<% end if %>
<% else %>
* Password:
">
">
<% if Request.QueryString("mode") = "Register" or Request.QueryString("mode") = "goEdit" then %>
* Password Again:
" size="25">
<% end if
end if
if strFullName = "1" then
%>
Firstname:
">
Surname:
">
<%
end if
if strCity = "1" then
%>
City:
">
<%
end if
if strState = "1" then
%>
State:
">
<%
end if
if strCountry = "1" then
%>
Country:
<% end if
if strAge = "1" then
%>
Age:
">
<%
end if
if strSex = "1" then
%>
Sex:
<%
end if
if strMarStatus = "1" then
%>
Marital Status:
">
<%
end if
if strOccupation = "1" then
%>
Occupation:
">
<%
end if
if Request.Querystring("mode") = "goModify" then %>
# of Posts:
">
<% end if
strTxtSig = RS("M_SIG") %>
Signature:
<% if Request.Form("Method_Type") = "Modify" then %>
Member Level:
<% if rs("M_NAME") = "Admin" then %>
Administrator
<% else %>
<% end if %>
<% end if %>
<%
if not(strUseExtendedProfile) then
%>
Contact Info
align=right width="10%"" nowrap>*Email Address:
>">
">
<% if strICQ = "1" then%>
align=right nowrap width="10%"">ICQ:
>">
<% end if
if strYAHOO = "1" then
%>
align=right nowrap width="10%"">YAHOO IM:
>">
<% end if
if strAIM = "1" then
%>
align=right nowrap width="10%"">AIM:
>">
<% end if
end if
if (strHomepage + strFavLinks) > 0 and not(strUseExtendedProfile) then %>
Links
<% if strHomepage = "1" then %>
align=right nowrap width="10%"">Homepage:
> " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(ChkString(RS("M_Homepage"), "display")) else Response.Write("http://") %>">
<% end if
if strFavLinks = "1" then
strLINK1 = rs(M_LINK1)
strLINK2 = rs(M_LINK2)
%>
align=right nowrap width="10%"">Cool Links:
> "http://" then Response.Write(ChkString(strLINK1, "display")) else Response.Write("http://") %>">
align=right nowrap width="10%"">
> "http://" then Response.Write(ChkString(strLINK2, "display")) else Response.Write("http://") %>">