Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Gatekeeper not working
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

delboy
Starting Member

United Kingdom
15 Posts

Posted - 29 March 2009 :  04:20:54  Show Profile  Visit delboy's Homepage
I have installed this mod as per the instructions but I get the impression it is a little out of date. I made all the changes as instructed but noticed in pop_mail.asp it says to find the lines

if YEmail <> "" then Response.Write(YEmail)
Response.Write
etc etc (line 174)

I can't find those lines anywhere so I replace the whole file with the edited one that comes with the mod. I ran the dbs file and everything seemed to be ok but when I try and register a new user I get the message "You have not entered an answer for the Antispam question" . Trouble is the question is not shown.

I have also noticed that since installing the MOD, when I try and delete a user I get the message "The URL has been modified. possible hijacking attempt"

Can anyone please help

Edited by - delboy on 29 March 2009 04:22:33

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 29 March 2009 :  08:23:19  Show Profile
Here you go, 3.4.06 version of "pop_mail.asp" modified for Gatekeeper:

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.06
'#################################################################################
'## Copyright (C) 2000-06 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
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header_short.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<% 
if Request.QueryString("ID") <> "" and IsNumeric(Request.QueryString("ID")) = True then
	intMemberID = cLng(Request.QueryString("ID"))
else
	intMemberID = 0
end if

'## Forum_SQL
strSql = "SELECT M.M_RECEIVE_EMAIL, M.M_EMAIL, M.M_NAME FROM " & strMemberTablePrefix & "MEMBERS M"
strSql = strSql & " WHERE M.MEMBER_ID = " & intMemberID

set rs = my_Conn.Execute (strSql)

Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Send an E-MAIL Message</font></p>" & vbNewLine

if rs.bof or rs.eof then
	Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>There is no Member with that Member ID</font></p>" & vbNewLine
else
	strRName = ChkString(rs("M_NAME"),"display")
	strREmail = rs("M_EMAIL")
	strRReceiveEmail = rs("M_RECEIVE_EMAIL")
	
	rs.close
	set rs = nothing
	
	if mLev > 2 or strRReceiveEmail = "1" then
		if lcase(strEmail) = "1" then
			if Request.QueryString("mode") = "DoIt" then
				Err_Msg = ""
				if mLev => 2 then
					strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
					strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
					strSql = strSql & " WHERE MEMBER_ID = " & MemberID

					set rs2 = my_conn.Execute (strSql)
					YName = rs2("M_NAME")
					YEmail = rs2("M_EMAIL")
					set rs2 = nothing
				else
					YName = Request.Form("YName")
					YEmail = Request.Form("YEmail")
					if YName = "" then
						Err_Msg = Err_Msg & "<li>You must enter your UserName</li>"
					end if
					if YEmail = "" then 
						Err_Msg = Err_Msg & "<li>You must give your e-mail address</li>"
					else
						if EmailField(YEmail) = 0 then 
							Err_Msg = Err_Msg & "<li>You must enter a valid e-mail address</li>"
						end if
					end if
				end if
				if Request.Form("Msg") = "" then 
					Err_Msg = Err_Msg & "<li>You must enter a message</li>"
				end if
				'Gatekeeper Mod
				if strPopMailGatekeeper = "1" then
					select case len(Request.Form("GateKeeperAnswer"))
					case "0"
						Err_Msg = Err_Msg & "<li>You have not entered an answer for the Antispam question. Please use your back button and try again.</li>"
					case else 
						if (lcase(Request.Form("GateKeeperAnswer")) <> lcase(strGatekeeperAnswer1)) and (lcase(Request.Form("GateKeeperAnswer")) <> lcase(strGatekeeperAnswer2)) then
							Err_Msg = Err_Msg & "<li>You have entered a wrong answer for the Antispam question. Please use your back button and try again.</li>"
						end if
					end select
				end if
				'Gatekeeper Mod
				'##  E-mails Message to the Author of this Reply.  
				if (Err_Msg = "") then
					strRecipientsName = strRName
					strRecipients = strREmail
					strFrom = YEmail
					strFromName = YName
					strSubject = "Sent From " & strForumTitle & " by " & YName
					strMessage = "Hello " & strRName & vbNewline & vbNewline
					strMessage = strMessage & "You received the following message from: " & YName & " (" & YEmail & ") " & vbNewline & vbNewline 
					strMessage = strMessage & "At: " & strForumURL & vbNewline & vbNewline
					strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline

					if strFrom <> "" then 
						strSender = strFrom
					end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
					Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>E-mail has been sent</font></p>" & vbNewLine
				else
					Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your E-mail</font></p>" & vbNewLine
					Response.Write	"      <table>" & vbNewLine & _
							"        <tr>" & vbNewLine & _
							"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
							"        </tr>" & vbNewLine & _
							"      </table>" & vbNewLine & _
							"    <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
					WriteFooterShort
					Response.End 
				end if
			else 
				Err_Msg = ""
				if trim(strREmail) <> "" then
					strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
					strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
					strSql = strSql & " WHERE MEMBER_ID = " & MemberID

					set rs2 = my_conn.Execute (strSql)
					YName = ""
					YEmail = ""

					if (rs2.EOF or rs2.BOF)  then
						if strLogonForMail <> "0" then 
							Err_Msg = Err_Msg & "<li>You must be logged on to send a message</li>"

							Response.Write	"      <table>" & vbNewLine & _
									"        <tr>" & vbNewLine & _
									"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
									"        </tr>" & vbNewLine & _
									"      </table>" & vbNewLine
							WriteFooterShort
							Response.End
						end if
					else
						YName = Trim("" & rs2("M_NAME"))
						YEmail = Trim("" & rs2("M_EMAIL"))
					end if
					rs2.close
					set rs2 = nothing

					Response.Write	"      <form action=""pop_mail.asp?mode=DoIt&id=" & intMemberID & """ method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
							"      <table border=""0"" width=""90%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
							"        <tr>" & vbNewLine & _
							"          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
							"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
							"              <tr>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Send To Name:</font></b></td>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strRName & "</font></td>" & vbNewLine & _
							"              </tr>" & vbNewLine & _
							"              <tr>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """>"
					if YName = "" then
						Response.Write "<input name=""YName"" type=""text"" value=""" & YName & """ size=""25"">"
					else
						Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & YName & "</font>" & vbNewLine
					end if
					Response.Write	"              </td></tr>" & vbNewLine & _
							"              <tr>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """>"
					if YEmail = "" then
						Response.Write "<input name=""YEmail"" type=""text"" value=""" & YEmail & """ size=""25"">"
					else
						Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & YEmail & "</font>"
					end if
					Response.Write	"</td>" & vbNewLine & _
					'GateKeeper Mod
					if strPopMailGatekeeper = "1" then
					Response.Write 	"              <tr>" & vbNewLine & _
									"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Antispam question:</b></font></td>" & vbNewLine & _
									"                <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strGatekeeperQuestion & "</font></td>" & vbNewLine & _
							"              </tr>" & vbNewLine & _
							"              <tr>" & vbNewLine & _
									"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Answer:</b></font></td>" & vbNewLine & _
									"                <td bgColor=""" & strPopUpTableColor & """ valign=""top""><input name=""GateKeeperAnswer"" size=""25"" type=""text"" value=""" & Request.Form("GateKeeperAnswer") & """></td>" & vbNewLine & _
									"              </tr>" & vbNewLine
					end if
					'GateKeeper Mod
					Response.write	"              <tr>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
							"              </tr>" & vbNewLine & _
							"              <tr>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2""><textarea name=""Msg"" cols=""40"" rows=""5""></textarea></td>" & vbNewLine & _
							"              </tr>" & vbNewLine & _
							"              <tr>" & vbNewLine & _
							"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""Submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
							"              </tr>" & vbNewLine & _
							"            </table>" & vbNewLine & _
							"          </td>" & vbNewLine & _
							"        </tr>" & vbNewLine & _
							"      </table>" & vbNewLine & _
							"      </form>" & vbNewLine
				else
					Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>No E-mail address is available for this user.</font></p>" & vbNewLine
				end if
			end if
		else
			Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Click to send <a href=""mailto:" & chkString(rs("M_EMAIL"),"display") & """>" & strRName & "</a> an e-mail</font></p>" & vbNewLine
		end if
	else
		Response.Write	"    <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>This Member does not wish to receive e-mail.</font></p>" & vbNewLine
	end if
end if
WriteFooterShort
Response.End
%>
Go to Top of Page

delboy
Starting Member

United Kingdom
15 Posts

Posted - 31 March 2009 :  03:17:37  Show Profile  Visit delboy's Homepage
thanks. I have replace the file but there is no change. Still no site of catchpa or anti spam question.
Go to Top of Page

Podge
Support Moderator

Ireland
3775 Posts

Posted - 31 March 2009 :  07:23:52  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
Where do you have it installed ? Do you have a link to your forum ?

You won't see the captcha or gatekeeper if you are logged in.

Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

delboy
Starting Member

United Kingdom
15 Posts

Posted - 31 March 2009 :  10:34:33  Show Profile  Visit delboy's Homepage
Here is the URL. I can see the gatekeeper stuff in the admin section ok.

http://www.catalyst-projects.com/forum/register.asp
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 31 March 2009 :  12:13:48  Show Profile
It looks like you forgot a portion within "inc_profile.asp".
Go to Top of Page

Podge
Support Moderator

Ireland
3775 Posts

Posted - 31 March 2009 :  12:40:48  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
Can you turn off Require Registration so I can check post_info.asp ?

Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

delboy
Starting Member

United Kingdom
15 Posts

Posted - 31 March 2009 :  15:46:57  Show Profile  Visit delboy's Homepage
I have turned off required registration. I did check the inc_profile.asp file and the gatekeeper bit is definately there although maybe in the wrong place. If it saves hassle I have pasted the contents of the inc_profile.asp below


======
<%
'#################################################################################
'## 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

'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
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> 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
%>
Edit: Added scrollcode tags.

Edited by - Podge on 31 March 2009 16:05:31
Go to Top of Page

Podge
Support Moderator

Ireland
3775 Posts

Posted - 31 March 2009 :  16:06:37  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
Do you have a test login ?

Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 April 2009 :  01:28:35  Show Profile
You were right, it was in the wrong place. Try this:

<%
'#################################################################################
'## 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
%>
Go to Top of Page

delboy
Starting Member

United Kingdom
15 Posts

Posted - 01 April 2009 :  16:42:56  Show Profile  Visit delboy's Homepage
Thanks great thanks. It works fine now. I found it difficult pasted some of the code as the line numbers are out of date.

One question though. I thought this was going to be a captcha which I assume is that graphic you get on some websites where you have to enter the characters from the graphic. Is there not one of those for Snitz then ?

Go to Top of Page

Podge
Support Moderator

Ireland
3775 Posts

Posted - 01 April 2009 :  17:20:43  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
There is (see my sig). Gatekeeper is better because it provides the same protection while allowing visually impaired people to access the forum.

Do you have a test login ?

Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

delboy
Starting Member

United Kingdom
15 Posts

Posted - 02 April 2009 :  04:33:40  Show Profile  Visit delboy's Homepage
I have another problem which the main forum tells me is down to me pasting the MOD code wrongly. When I try and delete a user I get the Error message "The URL has been modified! possible highjack attempt"

If you wouldn't mind registering at my site and I will make you adminstrator so you can check it out.

I really appreciate your help with this.
Go to Top of Page

delboy
Starting Member

United Kingdom
15 Posts

Posted - 03 April 2009 :  02:56:42  Show Profile  Visit delboy's Homepage
Everything is ok now. I deleted the database, uploaded a fresh one and then ran setup again and that seemed to fix it.

Thanks once again for your help
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 1.03 seconds. Powered By: Snitz Forums 2000 Version 3.4.07