function listForumModerators(fForum_ID)

	dim strSql
	dim rsChk

	'## Forum_SQL
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID" &_
		 " FROM " & strTablePrefix & "MODERATOR " &_
		 " , " & strMemberTablePrefix & "MEMBERS "  &_
		 " WHERE (" & strTablePrefix & "MODERATOR.FORUM_ID = " & ChkString(fForum_ID, "SQLString") & ") " &_
		 " AND (" & strTablePrefix & "MODERATOR.MEMBER_ID = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID )"

	Set rsChk = Server.CreateObject("ADODB.Recordset")
	rsChk.open strSql, my_Conn

	if rsChk.EOF or not(ChkQuoteOk(fForum_ID)) then
		listForumModerators = ""
		exit function
	end if
	fMods = "<form name=""modform_" & fForum_ID & """>" & VBNewLine & _
	        "<select name=""sel"" size=""1"" onChange=""javascript:GetProfile(document.modform_" & fForum_ID & ".sel.options[document.modform_" & fForum_ID & ".sel.selectedIndex].value)"" style=""width:100px;"">" & VBNewLine & _
			"<option>Moderators</option>" & VBNewLine
	do until rsChk.EOF
		fMods = fMods & "<option value=""pop_profile.asp?mode=display&id=" & rsChk("MEMBER_ID") & """>" & rsChk("M_NAME") & "</option>" & VBNewLine
		rsChk.MoveNext
	loop
    fMods = fMods & "</select>" & VBNewLine & _
	                "</form>"
	rsChk.close
	set rsChk = nothing

	listForumModerators = fMods
end function

<script language="JavaScript">
function GetProfile(URL){
  if (URL != ""){
    window.location.href = URL;
  }
}
</script>

quote:

---

I had forgotten to account for multiple forums. The code is updated above, and tested with mutiple forums in IE 6.0 and Mozilla 0.9.9

  Nathan Bales - Romans 15:13
----------------------------------
Snitz Exchange | Do's and Dont's

---

I'd modded the code myself, it works but in a different way, thanks anyway