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