Чаво курим?
Предлагаю эксперимент.
Открываешь все это в ФФ, все выделяешь (контрл+А), кликаешь правой кнопкой мыши, выбираешь пункт "Исходный код выделенного фрагмента". Обдумываешь полученный результат.
Далее, все document.write, заменяешь, на "str +=", и самой последней строчкой в функции пишешь document.body.innerHTML = str.