set rsCat = nothing
		set rsCat = my_conn.Execute (strSql)
		do until rsCat.eof '## Grab the GROUPS.
			if rsCat("GROUP_ID") = 1 OR rsCat("GROUP_ID") = 2 then
				' do nothing
			else
				first = 0
				if first = 0 then
					Response.Write	"       <option value="""">----------------------------</option>" & vbNewLine
					first = 1
				end if
				if lcase(Right(strPathInfo, 10)) = "active.asp" then
					Response.Write "    	<option value=""active.asp?Group=" & rsCat("GROUP_ID") & """" & chkSelect(cLng(Group), cLng(rsCat("GROUP_ID"))) & ">" & rsCat("GROUP_NAME") & "</option>" & vbNewLine
				else
					Response.Write "    	<option value=""default.asp?Group=" & rsCat("GROUP_ID") & """" & chkSelect(cLng(Group), cLng(rsCat("GROUP_ID"))) & ">" & rsCat("GROUP_NAME") & "</option>" & vbNewLine
				end if
			end if
			rsCat.MoveNext
		loop

		set rsCat = nothing
		set rsCat = my_conn.Execute (strSql)
		first = 0
		do until rsCat.eof '## Grab the GROUPS.
			if rsCat("GROUP_ID") = 1 OR rsCat("GROUP_ID") = 2 then
				' do nothing
			else
				if first = 0 then
					Response.Write	"       <option value="""">----------------------------</option>" & vbNewLine
					first = 1
				end if
				if lcase(Right(strPathInfo, 10)) = "active.asp" then
					Response.Write "    	<option value=""active.asp?Group=" & rsCat("GROUP_ID") & """" & chkSelect(cLng(Group), cLng(rsCat("GROUP_ID"))) & ">" & rsCat("GROUP_NAME") & "</option>" & vbNewLine
				else
					Response.Write "    	<option value=""default.asp?Group=" & rsCat("GROUP_ID") & """" & chkSelect(cLng(Group), cLng(rsCat("GROUP_ID"))) & ">" & rsCat("GROUP_NAME") & "</option>" & vbNewLine
				end if
			end if
			rsCat.MoveNext
		loop

if strGroupCategories = "1" then
	Response.Write	(vbNewLine & _
	"    <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
	"    <!----- " & vbNewLine & _
	"    function jumpTo(s) {if (s.selectedIndex != 0) location.href = s.options[s.selectedIndex].value;return 1;}" & vbNewLine & vbNewLIne & _
	"    // -->" & vbNewLine & _
	"    </script>")
	Rem -where whe are?
	strPathInfo = Request.ServerVariables("Path_Info")
	If lcase(Right(strPathInfo, 10)) = "active.asp" Then
		blnShowGroupList = true
		strLinkTo = "active.asp"
	elseif  lcase(Right(strPathInfo, 11)) = "default.asp" Then
		blnShowGroupList = true
		strLinkTo = "default.asp"
	else
			blnShowGroupList = false
	end if
	if blnShowGroupList then
		Response.Write (vbNewLIne & _	
		"<form name=""GroupStuff"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"  <td valign=""top"">" & vbNewLine & _
		"   <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Change Category Group<br /></b></font>" & vbNewLine & _
		"    <select name=""SelectMenu"" size=""0"" onchange=""if(this.options[this.selectedIndex].value != '' ){ jumpTo(this) }"">" & vbNewLine & _
		"    	<option value="""">Select Other Categories Here!</option>")
		Rem -Get all Forum Groups From DB
		strSql = "SELECT GROUP_ID, GROUP_NAME, GROUP_ICON, GROUP_IMAGE"
		strSql = strSql & " FROM " & strTablePrefix & "GROUP_NAMES"
		strSql = strSql & " ORDER BY GROUP_ID ASC, GROUP_NAME ASC;"
		set rsCat = my_conn.Execute (strSql)
		Rem -Display Groups with GroupID = 1 and GroupID=2
		intPrevGroupID = 0
		do until rsCat.eof
			if intPrevGroupID >= 2 and rsCat("GROUP_ID") > intPrevGroupID then
				Rem -Display the Divider Line
				Response.Write	(vbNewLIne & _	
				"     <option value="""">" & string(50, "-") & "</option>")			
			end if
			Response.Write (vbNewLine & _
			"    	<option value=""" & strLinkTo & "?Group=" & rsCat("GROUP_ID") & """" & chkSelect(cLng(Group), cLng(rsCat("GROUP_ID"))) & ">" & rsCat("GROUP_NAME") & "</option>")
			intPrevGroupID = rsCat("GROUP_ID")
			rsCat.MoveNext
		loop
		set rsCat = nothing
		Response.Write	(vbNewLIne & _
		"    	</select>" & vbNewLine & _
		"				<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"					<a href=""default_group.asp""><acronym title=""Group Categories links and Information"">Group Category Menu</acronym></a>" & vbNewLine & _
		"				</font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</form>" & vbNewLine & _
		"  <tr>" & vbNewLine & _
		"   <td><span style=""font-size: 6px;""><br /></span></td>" & vbNewLine & _
		"  </tr>")
	end if
end if