Marketplace Show Gamepass is Not for Sale?

As attempt, The script Works Fine, But Fails to Market the Gamepass Sales Event for the Players.

And The Gamepass is for Sale as well.

Gamepass

Gyazo

while not _G["GameDatabase"] do wait() end
while not _G["GameDatabase"].ready do wait() end
local CheckBought = _G["GameDatabase"].action["CheckBought"]

local player = script.Parent.Parent.Parent.Parent.Parent.Parent.Parent
local pname = player.Name

local pass_val = "PassTwoMore"
local pass_id = 7199111

function UpdatePassInfo()
	if CheckBought(pname, pass_val) then
		script.Parent.BuyBtt.Visible = false
		script.Parent.Bought.Visible = true
	else
		script.Parent.BuyBtt.Visible = true
		script.Parent.Bought.Visible = false
	end
end
UpdatePassInfo()
_G["GameDatabase"].pinfo[pname].changed.Event:connect(UpdatePassInfo)

script.Parent.BuyBtt.MouseButton1Click:connect(function()
	game:GetService("MarketplaceService"):PromptPurchase(player, pass_id)
end)

Is there By chance, The MarketplaceService is not a supportive method now?