quote:

---

Originally posted by bjlt

Etymon, have you come up with the codes you need? I don't have the gerder mod but here's the code for it.

function getGenderCount(piGender) '# e.g. 1: male, 2 female ...
	Dim rs, strSql, lTemp

	set rs = server.CreateObject("adodb.recordset")
		strSql = "SELECT COUNT(MEMBER_ID) as GenderCount FROM " & strMemberTablePrefix & "MEMBERS WHERE M_SEX = " CLng(piGender)
		rs.Open strSql, my_Conn
		lTemp = rs("GenderCount")
	rs.Close
	set rs = nothing

	getGenderCount = lTemp
end function

I don't know the field name for gender used in gender mod you have, change M_SEX to the one it uses if it's not the one.

Cheers,

---

quote:

---

Originally posted by Etymon


Thanks for the code bjlt. I've been offline for a while and am just getting back in the swing of things.

---

Microsoft VBScript runtime error '800a0009' 
Subscript out of range: 'mM_SEX' 

/where2.asp, line 187 

sSQL = "SELECT M.MEMBER_ID, M.M_NAME, M_FIRSTNAME, M_LASTNAME, M.M_LEVEL, M.M_TITLE, M.M_EMAIL, M.M_RECEIVE_EMAIL, M.M_HOMEPAGE, M.M_ICQ, M.M_MSN, M.M_AIM, M.M_YAHOO, M.M_CITY, M.M_SEX

=========
mMEMBER_ID = 0
mM_NAME = 1
M_FIRSTNAME = 2
M_LASTNAME = 3
mM_LEVEL = 4
mM_TITLE = 5
mM_EMAIL = 6
mM_RECEIVE_EMAIL = 7
mM_HOMEPAGE = 8
mM_ICQ = 9
mM_MSN = 10
mM_AIM = 11
mM_YAHOO = 12

mM_STATE = 13
mM_CITY = 14
mM_SEX = 15

if gbPM then '##
mM_PMRECEIVE = 16
end if

i = 0
j = 0

For i = 0 to iRecCount - 1
MEMBER_ID = aListBystate(mMEMBER_ID,i)
M_NAME = aListBystate(mM_NAME,i)
M_FIRSTNAME = aListBystate(mM_FIRSTNAME,i)
M_LASTNAME = aListBystate(mM_LASTNAME,i)
M_LEVEL = aListBystate(mM_LEVEL,i)
M_TITLE = aListBystate(mM_TITLE,i)
M_EMAIL = aListBystate(mM_EMAIL,i)
M_RECEIVE_EMAIL = aListBystate(mM_RECEIVE_EMAIL,i)
M_HOMEPAGE = aListBystate(mM_HOMEPAGE,i)
M_ICQ = aListBystate(mM_ICQ,i)
M_MSN = aListBystate(mM_MSN,i)
M_AIM = aListBystate(mM_AIM,i)
M_YAHOO = aListBystate(mM_YAHOO,i)
M_STATE = aListByState(mM_STATE,i)
M_CITY = aListBystate(mM_CITY,i)
M_SEX = aListBystate(mM_SEX,i)
if gbPM then '##
M_PMRECEIVE = aListBystate(mM_PMRECEIVE,i)

Microsoft VBScript runtime error '800a000d' 
Type mismatch: '[string: "Female"]' 

/where2.asp, line 357