Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Link to Paypal on Registration

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
sgoode Posted - 06 June 2008 : 07:27:51
I have a need that I have not seen addressed by anybody.

I would like to have my users pay a one year subscription through Paypal when they register. I would like all visitors to be able to see posts but only registered users can post.

I know that I can make the board readable by all but I don't know if anybody has the Paypal capability for registration.

Any help would be appreciated.

Thanks
Steve

<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" /><
15   L A T E S T    R E P L I E S    (Newest First)
thermal_seeker Posted - 11 December 2010 : 17:09:18
Carefree, I installed my backup files that were a couple of mods back so the problem isn't the paypal one or the nested quotes one.

I'm at a total loss as to why this is happening. I have been comparing files all afternoon.
Carefree Posted - 11 December 2010 : 16:26:06
The "inc_profile.asp" link you provided doesn't have the PayPal mod in it, either. You cannot ignore parts of the mod and install others, it won't work that way.

Here's your file with the mod added:
<%
'#################################################################################
'## 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 strSKYPE = "1" then
         Response.Write "                    <tr>" & vbNewLine & _
               "                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>SKYPE: </font></b></td>" & vbNewLine & _
               "                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input class=newlogin name=""SKYPE"" size=""25"" maxLength=""150"" value="""
         if strMode <> "Register" then Response.Write(ChkString(rs("M_SKYPE"), "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:</br><small>(please note; This is for a picture of yourself)</small> </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:</br><small>(please note; This is for a picture of yourself)</small> </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
%>
<!--#INCLUDE FILE="inc_avatar.asp" -->
<%
      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
           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> Town/City: </font></b></td>" & vbNewLine
      Else
         Response.Write "                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Town/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> County/State: </font></b></td>" & vbNewLine
      Else
         Response.Write "                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>County/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 strAUAnon = "1" then
  response.write "                    <tr>" & VBNewLine & _
                 "                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & fLang(strLangMOD_Ls3kAU_04000) & "<br />" & fLang(strLangMOD_Ls3kAU_04010) & ": </font></b></td>" & VBNewLine & _
                 "                      <td bgColor=""" & strPopUpTableColor & """ valign=""middle"">" & VBNewLine & _
             "                        <select name=""AUHide"">" & vbNewLine
  if RS("M_AUHIDE") = "1" or trim(RS("M_AUHIDE")) = "" then
    response.write "                        <option value=""1"" selected>" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
                   "                        <option value=""0"">" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
  else
    response.write "                        <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
                   "                        <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
      end if
   end if
'!!!!!!!!!!!!!!upload quota   
   If strAllowAttachment = 1 Then
      If mLev = 4 Then
         if strMode = "goModify" then
            Response.Write "                    <tr>" & vbNewLine & _
                  "                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Upload Quota: </font></b></td>" & vbNewLine & _
                  "                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Quota"" size=""15"" maxLength=""15"" value=""" & ChkString(rs("M_FUPL_QUOTA"), "display") & """></font></td>" & vbNewLine & _
                  "                    </tr>" & vbNewLine
         end if
      End If
   End If
'!!!!!!!!!!!!!!!upload quota  
   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   
		'	########## PayPal Mod ##########
		if Request.Form("Method_Type") = "Modify" or _
			Request.Form("Method_Type") = "goModify" or _
			Request.Form("Method_Type") = "goEdit" then
				Response.Write "										<tr>" & vbNewLine & _
					"											<td bgColor=""" & strPopUpTableColor & """ align=right valign=""top"" nowrap>" & vbNewLine & _
					"												<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>PayPal Mod: </b>" & vbNewLine & _
					"												</font>" & vbNewLine & _
					"											</td>" & vbNewLine & _
					"											<td bgColor=""" & strPopUpTableColor & """ valign=""top""> " & vbNewLine & _
					"											</td>" & vbNewLine & _
					"										</tr>" & vbNewLine & _
					"										<tr>" & vbNewLine & _
					"											<td bgColor=""" & strPopUpTableColor& """ align=right valign=""top"" nowrap>" & vbNewLine & _
					"												<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Paid Date:</b><br><small>eg: YYYYMMDD</small>" & vbNewline & _
					"												</font>" & vbNewLine & _
					"											</td>" & vbNewLine & _
					"											<td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
					"												<input name=""PAYPALDATE"" size=""8"" value=""" & rs("M_PAYPALDATE") & """>" & vbNewLine & _
					"											</td>" & vbNewLine & _
					"										</tr>" & vbNewLine
		end if
		'	########## PayPal Mod End ##########

   end if
'#######    Begin UserGroup MOD     #######
    if mLev = 4 and strMode <> "Register" then
        strSql = "SELECT U.USERGROUP_ID FROM " & strTablePrefix & "USERGROUPS U, " &_
            strTablePrefix & "USERGROUP_USERS UM " &_
            "WHERE U.USERGROUP_ID = UM.USERGROUP_ID " &_
            "AND UM.MEMBER_TYPE = 1 " &_
            "AND UM.MEMBER_ID = " & rs("MEMBER_ID") & " " &_
            "ORDER BY U.USERGROUP_NAME"
        set rsPPGroups = my_Conn.execute(strSql)
        arPPGroups = Null
        if not rsPPGroups.bof and not rsPPGroups.eof then arPPGroups = rsPPGroups.GetRows
        rsPPGroups.close
        set rsPPGroups = Nothing
        strPPGroups = ""
        if not IsNull(arPPGroups) then
            for iPPGcount = LBound(arPPGroups,2) to UBound(arPPGroups,2)
                if strPPGroups <> "" then strPPGroups = strPPGroups & ","
                strPPGroups = strPPGroups & arPPGroups(0,iPPGcount)
            next
        end if
        strSql = "SELECT USERGROUP_ID, USERGROUP_NAME FROM " & strTablePrefix & "USERGROUPS ORDER BY USERGROUP_NAME"
        set rsAllGroups = my_Conn.execute(strSql)
        arAllGroups = Null
        if not rsAllGroups.bof and not rsAllGroups.eof then arAllGroups = rsAllGroups.GetRows
        rsAllGroups.close
        set rsAllGroups = Nothing
        Response.Write    "<tr class=""ccc cfc"">" & vbNewLine & _
                          "<td valign=""top"" class=""c"" colspan=""2""><b>UserGroups</b></td>" & vbNewLine & _
                          "</tr>" & vbNewLine
        if IsNull(arAllGroups) then
            Response.Write    "<tr>" & vbNewLine & _
                              "<td colspan=""2"">No usergroups found.</td>" & vbNewLine &_
                              "</tr>" & vbNewLine
        else
            for iGcount = LBound(arAllGroups,2) to UBound(arAllGroups,2)
                Response.Write    "<tr>" & vbNewLine & _
                        "<td class=""r""><input type=""checkbox"" name=""UserGroups"" value=""" & arAllGroups(0,iGcount) & """"
                if InStr("," & strPPGroups & ",", "," & arAllGroups(0,iGcount) & ",") then response.write " checked"
                Response.Write    "></td>" & vbNewLine &_
                        "<td class=""l"">" & chkString(arAllGroups(1,iGcount),"display") & "</td>" & vbNewline &_
                        "</tr>" & vbNewLine
            next
        end if
    end if
'#######     End UserGroup MOD      #######


   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 strSKYPE = "1" then
         Response.Write "                    <tr>" & vbNewLine & _
               "                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Skype: </font></td>" & vbNewLine & _
               "                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input class=newlogin name=""SKYPE"" size=""25"" maxLength=""150"" value="""
         if strMode <> "Register" then Response.Write(ChkString(rs("M_SKYPE"), "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
%>
thermal_seeker Posted - 11 December 2010 : 15:10:28
inc_profile.txt

I have installed the only backup I have (thanks to the neighbour torching my shed!) which was a couple of mods ago and the problem still persists. What I find frustrating is I did a test register this morning without a problem.

Dave
Carefree Posted - 11 December 2010 : 14:27:29
Post a link to your "inc_profile.asp" in .txt format. That's the only place left to look.
thermal_seeker Posted - 11 December 2010 : 10:35:40
I've just compared pop_profile against the downloaded one from snitzbitz and I can't see anything missing


I understand now... It never has had the upload quota there..
Carefree Posted - 11 December 2010 : 10:02:33
quote:
Originally posted by thermal_seeker

I spoke too soon...

Microsoft OLE DB Provider for SQL Server error '80040e14'

There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.

/Forum/register.asp, line 749

Also even though the town/city and county/state boxes are filled in, I get an warning saying they are not, yet modifying a member profile no warning even if the boxes are empty.

Pop_Profile.txt

Register.txt

Dave


Your register.txt file has nothing from this mod in it, so it's not the culprit. In pop_profile.asp, you didn't include the upload quota in the section of code ending at line 973.
Carefree Posted - 11 December 2010 : 09:55:02
quote:
Originally posted by thermal_seeker

OK scratch all the error problems... I seem to now be error free

Now, a question...

Is it possible to have the date box in pop_profile_pending so that the subscription end date could be entered prior to approving a member??

Dave


No. There would be no member there to edit. The program doesn't look at pending member table, there would be no need.
thermal_seeker Posted - 11 December 2010 : 09:37:02
I spoke too soon...

Microsoft OLE DB Provider for SQL Server error '80040e14'

There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.

/Forum/register.asp, line 749

Also even though the town/city and county/state boxes are filled in, I get an warning saying they are not, yet modifying a member profile no warning even if the boxes are empty.

Pop_Profile.txt

Register.txt

Dave
thermal_seeker Posted - 11 December 2010 : 04:36:49
OK scratch all the error problems... I seem to now be error free

Now, a question...

Is it possible to have the date box in pop_profile_pending so that the subscription end date could be entered prior to approving a member??

Dave
Carefree Posted - 10 December 2010 : 19:26:16
Post a link to your "register.asp" in .txt format for us to see.

I decided to put some working files on SnitzBitz.

Read the txt file for configuration instructions.
thermal_seeker Posted - 10 December 2010 : 18:02:38
Is this a clue?

Microsoft OLE DB Provider for SQL Server error '80040e14'

There are more columns in the INSERT statement than values specified in the VALUES clause. The number of values in the VALUES clause must match the number of columns specified in the INSERT statement.

/Forum/register.asp, line 749 

 strSql = strSql & ", 1"
            strSql = strSql & ", '" & ChkString(Request.Form("Avatar_URL"),"SqlString") & "'"
         strSql = strSql & ")"

         my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
         if strEmail = "1" and strEmailVal = "1" then
            'Do Nothing
         else
thermal_seeker Posted - 10 December 2010 : 17:36:54
quote:
Originally posted by Carefree

quote:
Originally posted by thermal_seeker

it's looking good now Carefree.

I'll just have some dinner and have a thorough test.

One thing I did notice. Is it possible to have the date format changed from yyyy/mm/dd (in pop profile)to dd/mm/yyyy ??

Dave

Yes, it is possible. But no slashes should be included - just YYYYMMDD format. If you want to enter it as DD/MM/YYYY, I can write a routine to convert it.


Only if you have time. You have been extremely helpful and I really don't want to put you to any trouble.

Dave
thermal_seeker Posted - 10 December 2010 : 17:20:38
Just tried without the slashes and still the same error :(

Dave
Carefree Posted - 10 December 2010 : 17:01:00
quote:
Originally posted by thermal_seeker

I'm getting an error trying to enter the date in pop profile.

Microsoft OLE DB Provider for SQL Server error '80040e57'

Arithmetic overflow error converting expression to data type nvarchar.

/Forum/pop_profile.asp, line 1943 

 strSql = strSql & ", M_ALLOWEMAIL = " & cLng(Request.Form("allowemail"))
                  end if
               end if
               strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))

               my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords               
               if ChkString(Request.Form("Level"),"") = "1" then 
                  '## Forum_SQL - Remove the member from the moderator table
                  strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
                  strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))


Dave


I'm assuming you were still including slashes - which tells the computer to DIVIDE ....
Carefree Posted - 10 December 2010 : 16:59:49
quote:
Originally posted by thermal_seeker

it's looking good now Carefree.

I'll just have some dinner and have a thorough test.

One thing I did notice. Is it possible to have the date format changed from yyyy/mm/dd (in pop profile)to dd/mm/yyyy ??

Dave

Yes, it is possible. But no slashes should be included - just YYYYMMDD format. If you want to enter it as DD/MM/YYYY, I can write a routine to convert it.

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.6 seconds. Powered By: Snitz Forums 2000 Version 3.4.07