Why won't this Dev Product work?

local plr = script.Parent.Parent.Parent.Parent.Parent
local link = game:GetService("MarketplaceService")
deb = 0

script.Parent.MouseButton1Click:connect(function()
    local marketId = 20859896
    link:PromptProductPurchase(plr,marketId)
    link.ProcessReceipt = function(receiptInfo)
        if Enum.ProductPurchaseDecision.PurchaseGranted and receiptInfo.PlayerId == plr.userId then
            if deb == 0 then
                deb = 1
                plr.Points.Value = plr.Points.Value + 10
                wait(1)
                deb = 0
            end
        end
    end
end)

I have checked the product id and everything. its in a serverscript inside a TextButton. It should work but isnt.Please help.