Class DebugClass
	Public DebugWindow, DebugFlag

	Public Sub DebugMessage(Message)
		on error resume next
		DebugWindow.Document.Write Data.CurrentMenu & "(" & now() & ") " & Message & "<BR>"
		if Err then
			Call CreateDebugWindow()
			DebugWindow.Document.Write "New created because of error: " & Err.Description & "<BR>"
			DebugWindow.Document.Write Data.CurrentMenu & "(" & now() & ") " & Message & "<BR>"
		end if
	End Sub

	Public Sub CreateDebugWindow()
		set DebugWindow = window.open("about:blank","_blank","height=200,width=400,status=yes,resizable=yes,scrollbars=yes,toolbar=no,menubar=no,location=no")
		do while DebugWindow.document.readystate <> "complete"
			Window.status = DebugWindow.document.readystate
		Loop
		DebugFlag = True
	End Sub
End Class