Function GetUserCountOfCountry(psCountry,piSex) '# 0=all individual, 1=male, 2=female, 3=unknown
	Dim rs, sSQL
	Dim lTemp

	sSQL = "SELECT COUNT(MEMBER_ID) AS TempCount FROM " & strMemberTablePrefix & "MEMBERS WHERE M_COUNTRY = " & chkString(psCountry,"SQLString") & " AND M_STATUS = 1 "

	Select Case piSex
		Case 1
			sSQL = sSQL & " AND M_SEX = 1 " '# M_SEX = 'male'
		Case 2
			sSQL = sSQL & " AND M_SEX = 2 " '# M_SEX = 'female'
		Case 3
			sSQL = sSQL & " AND M_SEX <> 1 AND M_SEX <> 2 " '# M_SEX <> 'female' AND M_SEX <> 'male'
		Case Else
			'
	End Select

	Set rs = my_Conn.Execute(sSQL)

		lTemp = Clng(rs("TempCount"))
	rs.close
	set rs = nothing

	GetUserCountOfCountry = lTemp
End Function

    <script language="JavaScript" type="text/javascript">
    function ChangePage(fnum){
    	if (fnum == 1) {
    		document.PageNum1.submit();
    	}
    	else {
    		document.PageNum2.submit();
    	}
    }
    </script>

"		
<a href=""filename.asp?countryid=" & iCountryID & "&method=" & iMethod & "&sort=" & sSortMethod & "&whichpage=" & iWhichPage - 1 & """>" & prevous page & "</a>" & vbNewLine

<%
'your header and includes here
'####### Global Variables #######
Dim sCountry, iMethod
Dim iPagesize
Dim iWhichPage, iTotalPages
Dim sSortMethod
Dim sIconMale, sIconFemale, sIconUnknown

sCountry = Trim(Request("country"))
iMethod = Clng(Request("method"))
if iMethod < 0 or iMethod > 3 then iMethod = 0

iPagesize = clng(strPageSize)
sSortMethod = Trim(Request("sort"))

sIconMale = getCurrentIcon(strIconMale,"Male","hspace=""4"" align=""absmiddle""")
sIconFemale = getCurrentIcon(strIconFemale,"Female","hspace=""4"" align=""absmiddle""")
sIconUnknown = "" '# your icon here

'######## Start Content #########

if sCountry = "" then Response.Redirect "MemberCountByCountry.asp" : Response.End '# MemberCountByCountry.asp is a file I use to list num of users for every country. change it to the page you like.

DoListUsersByCountry

'######### End Content ##########
WriteFooter


'####### Procedures Below #######
Sub DoListUsersByCountry()
	Dim sSQL, sSQLO, rs
	Dim sModFields
	Dim aListByCountry, iRecCount
	Dim i, j
Dim mMEMBER_ID, mM_NAME, mM_FIRSTNAME, mM_LASTNAME, mM_LEVEL, mM_TITLE, mM_EMAIL, mM_RECEIVE_EMAIL, mM_HOMEPAGE, mM_ICQ, mM_MSN, mM_AIM, mM_YAHOO, mM_COUNTRY, mM_STATE, mM_CITY, mM_SEX, mM_PMRECEIVE

Dim MEMBER_ID, M_NAME, M_FIRSTNAME, M_LASTNAME, M_LEVEL, M_TITLE, M_EMAIL, M_RECEIVE_EMAIL, M_HOMEPAGE, M_ICQ, M_MSN, M_AIM, M_YAHOO, M_COUNTRY, M_STATE, M_CITY, M_SEX, M_PMRECEIVE
	Dim sClass
	Dim sIconSortAsc, sIconSortDesc, sEmptyIcon
	Dim bShowContact


	sIconSortAsc = getCurrentIcon(strIconSortASC,"Click to sort by Descending","hspace=""4"" align=""absmiddle""")
	sIconSortDesc = getCurrentIcon(strIconSortDESC,"Click to sort by Ascending","hspace=""4"" align=""absmiddle""")
	sEmptyIcon = "" '# your blank icon here of same dimention of homepage,email etc

	iWhichPage = GetPageNum(Trim(Request("whichpage")))

	sModFields = ""

	if mLev > 2 or strEmail = "1" or strHomepage = "1" or strAIM = "1" or strICQ = "1" or strMSN = "1" or strYAHOO = "1" or gbPM then
		bShowContact = true
	end if

	If gbPM then '# I don't have pm mod, look up the variable it used to turn on/off PM, make sure to change all instances of it in this page.  or if you use it, add const gbPM = true at the Global Variables part
		sModFields = ", M.M_PMRECEIVE "
	end if
	'## get user list by country/nationality
	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_COUNTRY, M.M_STATE, M.M_CITY, M.M_SEX" & sModFields & " FROM " & strMemberTablePrefix & "MEMBERS M WHERE M.M_STATUS = 1 AND M.M_COUNTRY = '" & chkString(sCountry,"SQLString") & "'"

	Select Case iMethod '# I use 0/1/2/3 for sex if you use male/female/etc change it accrodingly below
		Case 1
			sSQL = sSQL & " AND M.M_SEX = 1" '# = 'male'
		Case 2
			sSQL = sSQL & " AND M.M_SEX = 2" '# = 'female'
		Case 3
			sSQL = sSQL & " AND M.M_SEX <> 1 AND M.M_SEX <> 2" '# M.M_SEX <> 'male' AND M.M_SEX <> 'female'
		Case Else
			'
	End Select

	select case sSortMethod
		case "usernameasc"
			sSQLO = " ORDER BY M.M_NAME ASC"
		case "usernamedesc"
			sSQLO = " ORDER BY M.M_NAME DESC"
		case "lastnameasc"
			sSQLO = " ORDER BY M.M_LASTNAME ASC, M.M_FIRSTNAME ASC"
		case "lastnamedesc"
			sSQLO = " ORDER BY M.M_LASTNAME DESC, M.M_FIRSTNAME DESC"
		case "locasc"
			sSQLO = " ORDER BY M.M_STATE ASC, M.M_CITY ASC"
		case "locdesc"
			sSQLO = " ORDER BY M.M_STATE DESC, M.M_CITY DESC"
		case "sexasc"
			sSQLO = " ORDER BY M.M_SEX ASC"
		case "sexdesc"
			sSQLO = " ORDER BY M.M_SEX DESC"
		case else
			sSQLO = " ORDER BY M.M_NAME ASC"
	end select

	Set rs = Server.CreateObject("ADODB.Recordset")
		rs.cachesize = iPagesize

		rs.open sSQL & sSQLO, my_Conn, adOpenStatic, adLockReadOnly, adCmdText

		if rs.EOF or rs.BOF then  '## No Users found
			iRecCount = 0
		Else
			rs.pagesize = iPagesize
			iTotalPages = cLng(rs.pagecount)
			if iWhichPage > iTotalPages then iWhichPage = iTotalPages
			rs.absolutepage = iWhichPage
			aListByCountry = rs.GetRows(iPagesize)
			iRecCount = UBound(aListByCountry,2) + 1
		End If

	rs.close
	set rs = nothing

	Response.Write	"" &_
		"<table border=0 width=""100%"" cellpadding=""0"" cellspacing=""0"" align=""center"">" & vbNewLine & _
		"	<tr>" & vbNewLine 
	Call DropDownPaging(1)
	Response.Write	"" &_
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine &_
		"<table align=""center"" class=""TblList"">" & vbNewLine & _
		"	<tr>" & vbNewLine
		if bShowContact then
			Response.Write	"" &_
		"		<th class=""TblHeadCellDefault"">Contact</th>" & vbNewLine
		end if
		Response.Write	"" &_
		"		<th class=""TblHeadCellDefault"">Username</th>" & vbNewLine
		"		<th class=""TblHeadCellDefault"">Name</th>" & vbNewLine
		if strSex = "1" then
			Response.Write	"" &_
		"		<th class=""TblHeadCellDefault"">Sex</th>" & vbNewLine
		end if
		if strCity = "1" or strState = "1" then
			Response.Write	"" &_
		"		<th class=""TblHeadCellDefault"">Location</th>" & vbNewLine
		end if
		Response.Write	"" &_
		"	</tr>" & vbNewLine

	If iRecCount = 0 Then
		Call WriteNoRecCells(5) '# how many colomns you have
	Else

		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_COUNTRY = 13
		mM_STATE = 14
		mM_CITY = 15
		mM_SEX = 16
		if gbPM then '##
			mM_PMRECEIVE = 17
		end if

		i = 0
		j = 0

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

			if j = 0 then
				sClass = "TblCellDefault" '## change it to what u want
			else
				sClass = "TblAltCellDefault" '## change it to what u want
			end if


			Response.Write	"" &_
			"	<tr>" & vbNewLine
	
			if bShowContact then
				Response.Write	"" &_
			"		<td align=""left"" class=""" & sClass & """>"
				'# contact links code from topic.asp, customized
				if strEmail = "1" and (mLev > 2 or M_RECEIVE_EMAIL = "1") then
					if (mlev <> 0) or (mlev = 0 and  strLogonForMail <> "1") then
						Response.Write	"?lt;a href=""javascript:openWindow('pop_mail.asp?id=" & MEMBER_ID & "')"">" & getCurrentIcon(strIconEmail,"Send " & ChkString(M_NAME,"display") & " an Email message","align=""absmiddle"" hspace=""6""") & "</a>"
					end if
				end if
				if strHomepage = "1" then
					if M_HOMEPAGE <> " " then
						Response.Write	"?lt;a href=""" & M_HOMEPAGE & """ target=""_blank"">" & getCurrentIcon(strIconHomepage,"Visit " & ChkString(M_NAME,"display") & "'s Homepage","align=""absmiddle"" hspace=""6""") & "</a>"
					else
						Response.Write sEmptyIcon
					end if
				end if
				if (strAIM = "1") then
					if Trim(M_AIM) <> "" then
						Response.Write	"?lt;a href=""javascript:openWindow('pop_messengers.asp?mode=AIM&ID=" & MEMBER_ID & "')"">" & getCurrentIcon(strIconAIM,"Send " & ChkString(M_NAME,"display") & " an AOL message","align=""absmiddle"" hspace=""6""") & "</a>"
					else
						Response.Write sEmptyIcon
					end if
				end if
				if strICQ = "1" then
					if Trim(M_ICQ) <> "" then
						Response.Write	"?lt;a href=""javascript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & MEMBER_ID & "')"">" & getCurrentIcon(strIconICQ,"Send " & ChkString(M_NAME,"display") & " an ICQ Message","align=""absmiddle"" hspace=""6""") & "</a>"
					else
						Response.Write sEmptyIcon
					end if
				end if
				if (strMSN = "1") then
					if Trim(M_MSN) <> "" then
						Response.Write	"?lt;a href=""javascript:openWindow('pop_messengers.asp?mode=MSN&ID=" & MEMBER_ID & "')"">" & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(M_NAME,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""6""") & "</a>"
					else
						Response.Write sEmptyIcon
					end if
				end if
				if strYAHOO = "1" then
					if Trim(M_YAHOO) <> "" then
						Response.Write	"?lt;a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(M_YAHOO, "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(M_NAME,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>"
					else
						Response.Write sEmptyIcon
					end if
				end if
				if gbPM then '##
					if M_PMRECEIVE = 1 then
						'# I don't have pm mod, put the code here urself pls.
					end if
				end if

				'# end code from topic.asp	
				Response.Write	"" &_
					"</td>" & vbNewLine
			end if
			Response.Write	"" &_
			"		<td align=""center"" class=""" & sClass & """><a href=""pop_profile.asp?mode=display&id=" & MEMBER_ID & """ target=""profile"">" & ChkString(M_NAME,"display") & "</a></td>" & vbNewLine &_	
			"		<td align=""center"" class=""" & sClass & """>" & chkString(GetName(M_FIRSTNAME,M_LASTNAME),"display") & "</td>" & vbNewLine
			if strSex = "1" then
				Response.Write	"" &_
			"		<td align=""center"" class=""" & sClass & """>" & GetSexIcon(M_SEX) & "</td>" & vbNewLine
			end if
			if strCity = "1" or strState = "1" then
				Response.Write	"" &_
			"		<td align=""center"" class=""" & sClass & """>" & GetLocation(M_STATE,M_CITY) & "</td>" & vbNewLine
			end if
			Response.Write	"" &_
			"	</tr>" & vbNewLine

			j = j + 1
			if j = 2 then j = 0
		Next
	End if

	Response.Write	"" &_
		"</table>" & vbNewLine &_
		"<table border=0 width=""100%"" cellpadding=""0"" cellspacing=""0"">" & vbNewLine & _
		"	<tr>" & vbNewLine
	Call DropDownPaging(2)
	Response.Write	"" &_
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine
%>
    <script language="JavaScript" type="text/javascript">
    function ChangePage(fnum){
    	if (fnum == 1) {
    		document.PageNum1.submit();
    	}
    	else {
    		document.PageNum2.submit();
    	}
    }
    </script>
<%
End Sub


sub DropDownPaging(piNum)
	Dim sAlign, i
	if piNum mod 2 = 0 then
		sAlign = "left"
	Else
		sAlign = "right"
	End If

	if iTotalPages > 1 then
		Response.Write "" &_
		"<form name=""PageNum" & piNum & """ action=""ListUsersByCountry.asp"">" & vbNewLine &_
		"	<input name=""method"" type=""hidden"" value=""" & iMethod & """>" & vbNewLine &_
		"	<input name=""country"" type=""hidden"" value=""" & sCountry & """>" & vbNewLine &_
		"	<input name=""sort"" type=""hidden"" value=""" & sSortMethod & """>" & vbNewLine &_
		"		<td align=""" & sAlign & """>" & vbNewLine
		if iWhichPage > 1 then 
				Response.Write "" &_
		"		<a href=""ListUsersByCountry.asp?country=" & ChkString(sCountry,"urlpath") & "&method=" & iMethod & "&whichpage=" & iWhichPage - 1 & """>Previous Page</a>" & vbNewLine
		end if
		
		Response.Write "<b>Page</b>" & vbNewLine &_
		"		<select name=""whichpage"" size=""1"" onchange=""ChangePage(" & piNum & ");"">" & vbNewLine
		for i = 1 to iTotalPages
			Response.Write "" &_
		"			<option value=""" & i & """"
		if i = iWhichPage then response.write "selected"
		response.write "" &_
		">" & i & "</option>" & vbNewLine
		next
		Response.Write "" &_
		"		</select>" & vbNewLine &_
		"		<b>Total: " & iTotalPages & "</b>? & vbNewLine
		if iWhichPage < iTotalPages then 			
			Response.Write "" &_
		"		<a href=""ListUsersByCountry.asp?country=" & ChkString(sCountry,"urlpath") & "&method=" & iMethod & "&whichpage=" & iWhichPage + 1 & """>Next Page</a>" & vbNewLine
		end if
		Response.Write "" &_
		"		</td>" & vbNewLine &_
		"</form>" & vbNewLine
	else
		Response.Write "<td>?lt;/td>"
	end if
end sub 

Sub WriteNoRecCells(colspan)
	Response.Write	"" &_
		"	<tr>" & vbNewLine & _
		"		<td class=""TblCellDefault"" colspan=""" & colspan & """ align=""center""> No Members </td>" & vbNewLine &_
		"	</tr>" & vbNewLine
End Sub

Function GetPageNum(piPage)
	if piPage = "" or not isnumeric(piPage) then
		GetPageNum = 1
	else
		GetPageNum = Clng(piPage)
		if GetPageNum < 1 then GetPageNum = 1
	end if
End Function

Function GetSexIcon(piSex)
	Select Case piSex
		Case 1 '# "male"
			GetSexIcon = sIconMale
		Case 2 '# "female"
			GetSexIcon = sIconFemale
		Case Else
			GetSexIcon = sIconUnknown
	End Select
End Function

Function GetLocation(psState,psCity)
	GetLocation = ""
	if strState = "1" and psState <> " " then
		GetLocation = psState
	end if
	if strCity = "1" and psCity <> " " then
		if GetLocation <> "" then 
			GetLocation = GetLocation & ", " & psCity
		else
			GetLocation = psCity
		end if
	end if
End Function

Function GetName(psFirst,psLast)
	GetName = ""
	if psFirst <> " " then GetName = psFirst
	if psLast <> " " then
		if GetName = "" then
			GetName = psLast
		else
			GetName = GetName & ", " & psLast
		end if
	end if
End Function
%>