'#######    Begin UserGroup MOD     #######
Sub UserGroupAutoJoin(strNewMemberName)
response.write "creating autojoin for member " & strNewMemberName & "<br />"
	strSql = "SELECT USERGROUP_ID FROM " & strTablePrefix & "USERGROUPS " &_
		"WHERE AUTOJOIN = 1"
	set rsAutoJoin = my_Conn.execute(strSql)
	arAutoJoin = Null
	if not rsAutoJoin.bof and not rsAutoJoin.eof then arAutoJoin = rsAutoJoin.GetRows
	rsAutoJoin.close
	set rsAutoJoin = Nothing
response.write "checking existence of autojoin groups ... <br />"
	if not IsNull(arAutoJoin) then
response.write "autojoin group found ... <br />"
		for AJCnt = LBound(arAutoJoin,2) to UBound(arAutoJoin,2)
			strSql = "SELECT MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS " &_
				"WHERE M_NAME = '" & strNewMemberName & "'"
			set rsUser = my_Conn.execute(strSql)
response.write "getting member id ... <br />"
			if not rsUser.bof and not rsUser.eof then
				strSql = "INSERT INTO " & strTablePrefix & "USERGROUP_MEMBERS " &_
					"(USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES " &_
					"(" & arAutoJoin(0,AJCnt) & ", " & rsUser("MEMBER_ID") & ", 1)"
				my_Conn.execute(strSql)
response.write "member added to autojoin group <br />"
			end if
			rsUser.close
			set rsUser = Nothing
		next
	end if
response.write "end autojoin group add"
response.end
End Sub
'#######     End UserGroup MOD      #######