'-------------------------------------------------------------------------

' Write page footer

'-------------------------------------------------------------------------

Function Page_Footer(T0 As Long) As String

Dim sBuffer As String

 

sBuffer = sBuffer & "<div id='footnav'>Script execution time: " & _

                    FORMAT$(TIMER - T0, "#0.00000") & "</div>"

sBuffer = sBuffer & "<div id='pagefooter'><a href='" & APP_SourceName & _

                    "?showsource=true' title=''>Script source code</a></div>"

 

Function = sBuffer

End Function