HEX

File: D:/web/hyperflight/! bs3/index2.asp
<!--#include file="dbfunctions.asp"-->
<html>
<body>
<p>This is <%=Request.ServerVariables("SERVER_NAME")%></p>

<%
  Dim FStartTimer
	FStartTimer = Timer

' (SS,9/4/19) returns time taken in seconds to 3 dp, called from ShowTimer
Function GetTimer
	FEndTimer = Timer
  GetTimer = FormatNumber(FEndTimer - FStartTimer, 3, True) & " secs"
End Function

' (SS,20/2/13) made into routine to allow calling from elsewhere for debugging purposes
' (SS,9/4/19) modified to call GetTimer, i.e. moved some code to GetTimer
Sub ShowTimer(AMessage)
	' (SS,27/05/10) added following as HTML comment
  Response.Write("<!-- " & GetTimer & " -->")
  ' (SS,19/5/22) show on page for testing
  Response.Write BR & "<-- " & GetTimer & " -->" & AMessage & BR
End Sub

ShowTimer("")

Response.Write("<br>Open Database<br>")

OpenDatabase

ShowTimer("")

Response.Write("<br>Close Database<br>")

CloseDatabase

ShowTimer("")

%>

</body>
</html>