TextButton stopped working for no reason?

the other day i made a button that is supposed to change the text of something, it worked but now it doesnt

here is the script

ifActive = script.Parent.IfActive.Value
activeVal = script.Parent.Parent.ActiveVal.Value
script.Parent.MouseButton1Click:connect(function()
    activeVal = 1

    while activeVal == 1 do
    script.Parent.SpotsVal.Value = script.Parent.Parent.Parent.Parent.Parent.Spots.Frame.TextLabel.SpotsVal.Value
    asd = script.Parent.SpotsVal.Value
    script.Parent.Parent.Parent.Desc.Text = ("Find the 6 No skating signs around the map")
    if asd == 6 then
        script.Parent.Parent.Parent.Progress.Text = ("Completed!")
        script.Parent.Parent.Parent.Progress.TextColor3 = Color3.new(0, 255, 0)
    end
    if asd ~= 6 then

    script.Parent.Parent.Parent.Progress.Text = (asd.." No skating signs found out of 6")
    end

    wait (1)
    end



end)

tell me if there is something wrong with the script