<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 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 " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" valign=""top"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPageBGColor & """ align=""center""" & strColSpan & "><p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>All Fields marked with <font size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>*</font> are required</b>"
if lcase(strEmail) = "1" and strEmailVal = "1" then
if strMode = "Register" then
Response.Write("<br /><small>To complete your registration, you need to have a valid e-mail address.</small>")
else
if strMode <> "goModify" then
Response.Write("<br /><small>If you change your e-mail address, a confirmation e-mail will be sent to your new address.<br />Please make sure it is a valid address.</small>")
else
Response.Write("<br /><small>If you change the e-mail address, a confirmation e-mail will be sent to the new address.<br />Please make sure it is a valid address.</small>")
end if
end if
end if
Response.Write "</font></p></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPageBGColor & """ align=""left"" valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""80%"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <td width=""50%"" bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Contact Info </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """>" & vbNewLine & _
" <input type=""hidden"" name=""Email2"" value="""
if strMode <> "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "Register" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email3"" size=""25"" maxLength=""50"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Allow Forum Members<br />to Send you E-Mail?: </font></b></td>" & vbNewLine
if strMode = "Register" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"""
if rs("M_RECEIVE_EMAIL") <> "0" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""0"""
if rs("M_RECEIVE_EMAIL") = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Initial IP: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strIPLookup & ChkString(rs("M_IP"), "display") & """ target=""_blank"">" & ChkString(rs("M_IP"), "display") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Last IP: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strIPLookup & ChkString(rs("M_LAST_IP"), "display") & """ target=""_blank"">" & ChkString(rs("M_LAST_IP"), "display") & "</a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strAIM = "1" then
Response.Write " <tr>" & vbNewLine
if strReqAIM = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> AIM: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""AIM"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" then
Response.Write " <tr>" & vbNewLine
if strReqICQ = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> ICQ: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" then
Response.Write " <tr>" & vbNewLine
if strReqMSN = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> MSN: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""MSN"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write " <tr>" & vbNewLine
if strReqYAHOO = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Yahoo!: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Yahoo!: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""YAHOO"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if (strHomepage + strFavLinks) > 0 then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
" <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Links </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strHomepage = "1" then
Response.Write " <tr>" & vbNewLine
if strReqHomepage = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Homepage: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Homepage: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
end if
if strMode <> "Register" then
if ChkString(rs("M_HOMEPAGE"), "display") <> " " and lcase(rs("M_HOMEPAGE")) <> "http://" then Response.Write(rs("M_HOMEPAGE")) else Response.Write("http://") end if
else
Response.Write("http://")
end if
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strFavLinks = "1" then
Response.Write " <tr>" & vbNewLine
if strReqFavLinks = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Cool Links: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link1"" size=""25"" maxLength=""255"" value="""
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Cool Links: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link1"" size=""25"" maxLength=""255"" value="""
end if
if strMode <> "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 """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link2"" size=""25"" maxLength=""255"" value="""
if strMode <> "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 """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if strPicture = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
" <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Picture</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strReqPicture = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Picture URL: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Photo_URL"" size=""25"" maxLength=""255"" value="""
else
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Picture URL: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Photo_URL"" size=""25"" maxLength=""255"" value="""
end if
if strMode <> "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 """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
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")
else
strMyHobbies = ""
strMyLNews = ""
strMyQuote = ""
strMyBio = ""
end if
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>More About Me</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strHobbies = "1" then
Response.Write " <tr>" & vbNewLine
if strReqHobbies = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Hobbies: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Hobbies: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""Hobbies"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyHobbies)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strLNEWS = "1" then
Response.Write " <tr>" & vbNewLine
if strReqLNEWS = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Latest News: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Latest News: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""LNews"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyLNews)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strQuote = "1" then
Response.Write " <tr>" & vbNewLine
if strReqQuote = "1" then
Response.Write " <td bgcolor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Favorite Quote: </font></b></td>" & vbNewLine
else
Response.Write " <td bgcolor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Favorite Quote: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""Quote"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyQuote)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strBio = "1" then
Response.Write " <tr>" & vbNewLine
if strReqBio = "1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Bio: </font></b></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Bio: </font></b></td>" & vbNewLine
end if
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><textarea name=""Bio"" cols=""30"" rows=""4"">" & Trim(cleancode(strMyBio)) & "</textarea></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine
end if 'extended profile
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td valign=""top"" align=""center"" colspan=""2"" bgcolor=""" & strCategoryCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Basics</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> User Name: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if (strMode = "goEdit") or (strMode = "goModify" and cLng(Request.Form("MEMBER_ID")) = cLng(intAdminMemberID)) then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_NAME"), "display") & "</font>" & vbNewLine & _
" <input type=""hidden"" name=""Name"" value=""" & chkString(rs("M_NAME"), "sqlstring") & """>" & vbNewLine
else
Response.Write " <input name=""Name"" size=""25"" maxLength=""25"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_NAME"), "display"))
Response.Write """>" & vbNewLine
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Title: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Title"" size=""25"" maxLength=""50"" value=""" & CleanCode(rs("M_TITLE")) & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strAuthType = "nt" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Your Account: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if Request.Form("Method_Type") = "Modify" then
Response.Write " <input name=""Account"" value=""" & ChkString(rs("M_USERNAME"), "display") & """>" & vbNewLine
else
Response.Write " " & Session(strCookieURL & "userid") & "<input type=""hidden"" name=""Account"" value=""" & Session(strCookieURL & "userid") & """>" & vbNewLine
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
if strMode = "Register" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Password: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Password Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password2"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
'Gatekeeper Mod
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Antispam Question: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strGatekeeperQuestion & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Answer: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""GateKeeperAnswer"" type=""text"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
'Gatekeeper Mod
else
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> New Password: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password"" type=""Password"" size=""25"" maxLength=""25"" value="""">" & vbNewLine & _
" <input name=""Password-d"" type=""hidden"" value=""" & rs("M_PASSWORD") & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "goEdit" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> New Password Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password2"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
end if
if strFullName = "1" then
Response.Write " <tr>" & vbNewLine
If strReqFullName = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> First Name: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>First Name: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""FirstName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_FIRSTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine
If strReqFullName = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Last Name: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Last Name: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""LastName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_LASTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strCity = "1" then
Response.Write " <tr>" & vbNewLine
If strReqCity = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> City: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>City: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""City"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_CITY"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strState = "1" then
Response.Write " <tr>" & vbNewLine
If strReqState = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> State: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>State: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""State"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_STATE"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strCountry = "1" then
Response.Write " <tr>" & vbNewLine
If strReqCountry = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Country: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Country: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""Country"" size=""1"">" & vbNewLine
if strMode <> "Register" then
Response.Write(" <option selected value=""" & rs("M_COUNTRY") & """>" & ChkString(rs("M_COUNTRY"), "display") & "</option>" & vbNewLine)
else
Response.Write " <option value=""""></option>" & vbNewLine
end if
Response.Write " <option value="""">None</option>" & vbNewLine
%>
<!--#INCLUDE FILE="inc_countrylist.asp"-->
<%
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMinAge > 0 or strReqAge = "1" or strReqAgeDOB = "1" then
strReq = "<font color=""" & strHiLiteFontColor & """>*</font>"
else
strReq = ""
end if
if strAge = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strReq & " Age: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Age"" size=""5"" maxLength=""3"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AGE"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & 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 " <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strReq & " Birth Date: </font></b></td>" & vbNewLine & _
" <td bgcolor=""" & strPopUpTableColor & """ nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""year"" id=""year"" onchange=""DateSelector(0);"">" & vbNewLine & _
" <option value=""""" & chkSelect("", strDOByear) & ">Year</option>" & vbNewLine
intStartYear = cInt(year(strForumTimeAdjust) - strMinAge)
for intYear = intStartYear to 1900 step -1
Response.Write " <option value=""" & intYear & """"
if strMode <> "Register" and len(strMDOB) > 0 then
Response.Write chkSelect(intYear, strDOByear)
end if
Response.Write ">" & intYear & "</option>" & vbNewLine
next
Response.Write " </select> "& vbNewLine & _
" <select name=""month"" id=""month"" style=""visibility:visible;"" onchange=""DateSelector(1);"">"& vbNewLine & _
" <option value=""""" & chkSelect("", strDOBmonth) & ">Month</option>" & vbNewLine
for intMonth = 1 to 12
Response.Write " <option value=""" & doublenum(intMonth) & """"
if strMode <> "Register" and len(strMDOB) > 0 then
Response.Write chkSelect(intMonth, strDOBmonth)
end if
Response.Write ">" & monthname(intMonth) & "</option>" & vbNewLine
next
Response.Write " </select> "& vbNewLine & _
" <select name=""day"" id=""day"" style=""visibility:visible;"">" & vbNewLine & _
" <option value=""""" & chkSelect("", strDOBday) & ">Day</option>" & vbNewLine
for intDay = 1 to 31
Response.Write " <option value=""" & doublenum(intDay) & """"
if strMode <> "Register" and len(strMDOB) > 0 then
Response.Write chkSelect(intDay, strDOBday)
end if
Response.Write ">" & intDay & "</option>" & vbNewLine
next
Response.Write " </select></font>"& vbNewLine & _
" <script language=""JavaScript"" type=""text/javascript"" src=""inc_datepicker.js""></script></td>"& vbNewLine & _
" </tr>" & vbNewLine
end if
if strSex = "1" then
Response.Write " <tr>" & vbNewLine
If strReqSex = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Gender: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Gender: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""Sex"" size=""1"">" & vbNewLine & _
" <option value="""""
if strMode <> "Register" then
if rs("M_SEX") = "" then Response.Write(" selected")
else
Response.Write(" selected")
end if
Response.Write ">Not specified </option>" & vbNewLine & _
" <option value=""Male"""
if strMode <> "Register" then
if rs("M_SEX") = "Male" then Response.Write(" selected")
end if
Response.Write ">Male </option>" & vbNewLine & _
" <option value=""Female"""
if strMode <> "Register" then
if rs("M_SEX") = "Female" then Response.Write(" selected")
end if
Response.Write ">Female </option>" & vbNewLine & _
" </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMarStatus = "1" then
Response.Write " <tr>" & vbNewLine
If strReqMarStatus = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Marital Status: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Marital Status: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""MarStatus"" size=""25"" maxLength=""25"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_MARSTATUS"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strOccupation = "1" then
Response.Write " <tr>" & vbNewLine
If strReqOccupation = "1" Then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Occupation: </font></b></td>" & vbNewLine
Else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Occupation: </font></b></td>" & vbNewLine
End If
Response.Write " <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Occupation"" size=""25"" maxLength=""255"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_OCCUPATION"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMode = "goModify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """># of Posts: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Posts"" size=""5"" maxLength=""10"" value=""" & ChkString(rs("M_POSTS"), "display") & """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strSignatures = "1" then
if strMode <> "Register" then
strTxtSig = rs("M_SIG")
end if
Response.Write " <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Signature: </font></b><br />" & vbNewLine & _
" <span style=""font-size: 4px;""><br /></span>" & vbNewLine & _
" <table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine
if strAllowHTML = "1" then
Response.Write " * HTML is ON<br />" & vbNewLine
else
Response.Write " * HTML is OFF<br />" & vbNewLine
end if
if strAllowForumCode = "1" then
Response.Write " * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
else
Response.Write " * Forum Code is OFF<br />" & vbNewLine
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <span style=""font-size: 4px;""><br /></span>" & vbNewLine & _
" <input name=""Preview"" type=""button"" value=""Preview"" onclick=""OpenSigPreview()""> </td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea name=""Sig"" cols=""25"" rows=""4"">" & Trim(cleancode(strTxtSig)) & "</textarea></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode <> "goModify" then
if strDSignatures = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>View Signatures<br />in Posts?: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""ViewSig"">" & vbNewLine
if strMode = "Register" then
Response.Write " <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine
else
Response.Write " <option value=""1""" & chkSelect(rs("M_VIEW_SIG"),1) & ">Yes</option>" & vbNewLine & _
" <option value=""0""" & chkSelect(rs("M_VIEW_SIG"),0) & ">No</option>" & vbNewLine
end if
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Signature checkbox<br />checked by default?: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""fSigDefault"">" & vbNewLine
if strMode = "Register" then
Response.Write " <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine
else
Response.Write " <option value=""1""" & chkSelect(rs("M_SIG_DEFAULT"),1) & ">Yes</option>" & vbNewLine & _
" <option value=""0""" & chkSelect(rs("M_SIG_DEFAULT"),0) & ">No</option>" & vbNewLine
end if
Response.Write " </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if Request.Form("Method_Type") = "Modify" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Member Level: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine
if rs("MEMBER_ID") = intAdminMemberID then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Administrator</font>" & vbNewLine & _
" <input type=""hidden"" value=""3"" name=""Level"">" & vbNewLine
else
Response.Write " <select value=""1"" name=""Level"">" & vbNewLine & _
" <option value=""1"""
if rs("M_LEVEL") = 1 then Response.Write(" selected")
Response.Write ">Normal User</option>" & vbNewLine & _
" <option value=""2"""
if rs("M_LEVEL") = 2 then Response.Write(" selected")
Response.Write ">Moderator</option>" & vbNewLine & _
" <option value=""3"""
if rs("M_LEVEL") = 3 then Response.Write(" selected")
Response.Write ">Administrator</option>" & vbNewLine & _
" </select>" & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>User allowed to send<br />e-mail before limit of <br />" & intMaxPostsToEMail & " posts is reached? </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""bottom"">" & vbNewLine & _
" <select name=""allowemail"">" & vbNewLine & _
" <option value=""1"""
if rs("M_ALLOWEMAIL") = "1" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""0"""
if rs("M_ALLOWEMAIL") <> "1" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if not(strUseExtendedProfile) then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> Contact Info </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_EMAIL"), "display"))
Response.Write """>" & vbNewLine & _
" <input type=""hidden"" name=""Email2"" value="""
if strMode <> "Register" then Response.Write(rs("M_EMAIL"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strMode = "Register" then
Response.Write " </tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> E-mail Address Again: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Email3"" size=""25"" maxLength=""50"" value=""""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Allow Forum Members<br />to Send you E-Mail?: </font></b></td>" & vbNewLine
if strMode = "Register" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"" selected>Yes</option>" & vbNewLine & _
" <option value=""0"">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
" <select name=""ReceiveEMail"">" & vbNewLine & _
" <option value=""1"""
if rs("M_RECEIVE_EMAIL") <> "0" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" <option value=""0"""
if rs("M_RECEIVE_EMAIL") = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" </select></font></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
if strAIM = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""AIM"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_AIM"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""MSN"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strYAHOO = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>YAHOO IM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""YAHOO"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if (strHomepage + strFavLinks) > 0 and not(strUseExtendedProfile) then
Response.Write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Links </font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine
if strHomepage = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Homepage: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
if strMode <> "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 """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strFavLinks = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Cool Links: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link1"" size=""25"" maxLength=""255"" value="""
if strMode <> "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 """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Link2"" size=""25"" maxLength=""255"" value="""
if strMode <> "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 """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</a></font></p>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap " & strColSpan & ">" & vbNewLine & _
" <input type=""hidden"" value=""" & cLng(Request.Form("MEMBER_ID")) & """ name=""MEMBER_ID"">" & vbNewLine & _
" <input type=""submit"" value=""Submit"" name=""Submit1"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" nowrap " & strColSpan & ">" & vbNewLine & _
" <input type=""hidden"" value=""" & cLng(Request.Form("MEMBER_ID")) & """ name=""MEMBER_ID"">" & vbNewLine & _
" <input type=""submit"" value=""Submit"" name=""Submit1"">" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
on error goto 0
end Sub
%>
Topic Locked
Posted - 07 August 2009 : 08:18:57
