Snitz Forums 2000 - Adding more Gender type

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Adding more Gender type

New Topic

Topic Locked

Printer Friendly

Author

Topic

hawkdrean
New Member

73 Posts

Posted - 29 March 2005 : 05:20:53

I'm not such if this is the right place to post this. But how would I go about adding more Gender type?

Ghostnetworks
New Member

95 Posts

Posted - 29 March 2005 : 07:26:17

Male female and something else?
For Humans, and most other species on Earth, 2 is usually enough.

It's too much trouble to fiddle with the code just to add a type, so you can just leave a little note by the gender selection "If none of these genders fits you, select which gender you're feeling like today. You can always change it later in your profile" ;)

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 29 March 2005 : 07:27:07

More genders? Have a look in inc_profile.asp, the dropdown is written by the following, beginning on line 361:

if strSex = "1" then
	Response.Write	"                    <tr>" & vbNewLine & _
			"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Gender: </font></b></td>" & vbNewLine & _
			"                      <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

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

hawkdrean
New Member

73 Posts

Posted - 29 March 2005 : 14:54:38

In my inc_profile.asp look like this

if strSex = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td class=incprofile align=""right"" valign=""middle"" nowrap><font size=""" & strDefaultFontSize & """><font color=""red"">*</font> " & fLang(strLangInc_Profile00430) & " </font></td>" & vbNewLine & _
" <td class=incprofile><font 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 ">" & fLang(strLangInc_Profile00440) & " </option>" & vbNewLine & _
" <option value=""Male"""
if strMode <> "Register" then
if rs("M_SEX") = "Male" then Response.Write(" selected")
end if
Response.Write ">" & fLang(strLangInc_Profile00450) & " </option>" & vbNewLine & _
" <option value=""Female"""
if strMode <> "Register" then
if rs("M_SEX") = "Female" then Response.Write(" selected")
end if
Response.Write ">" & fLang(strLangInc_Profile00460) & " </option>" & vbNewLine & _
" </select></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if

What line would I need to change?

Ghostnetworks
New Member

95 Posts

Posted - 29 March 2005 : 20:41:10

I don't see fLang() in my inc_profile.asp.
What version are you using?

Do you have a language mod installed?

hawkdrean
New Member

73 Posts

Posted - 30 March 2005 : 00:39:56

I'm using Image Forums 2001

HuwR
Forum Admin