Hi Gary,
that is because you have defined "scatterplot" but you want to show "scatterPlot". For Mathematica that are two different things, because Mathematica is case sensitive. If you use
Show[scatterplot,
Plot[{fitLine, fitQuadratic}, {x, 0, 30}, Filling -> True]]
and
Show[scatterplot]
It will work.
Cheers,
Marco