Generering af side

<%
StartTime = Timer()
%>

alt dit andet kode

<%
EndTime = Timer()
Total = EndTime - StartTime
repsonse.write "det tog" & Total & "sekunder at genere denne side"
%>

-grunken

Det giver følgende fejl i response.write:

Microsoft VBScript runtime error '800a01a8'

Object required: "

sådan:
<%
Dim StopWatch(5)

sub StartTimer(x)
 
StopWatch(x) = timer
end sub

function StopTimer(x)
 
EndTime = Timer

  if EndTime < StopWatch(x) then
    EndTime = EndTime + (86400)
  end if
 
StopTimer = EndTime - StopWatch(x)
end function

StartTimer(1)
%>
Det tog <%=StopTimer(1) %> at loade siden.

prøver igen :)

<%
StartTime = Timer()
%>

alt dit andet kode

<%
EndTime = Timer()
TotalTime = EndTime - StartTime
Response.write "Det tog " & TotalTime & " sekunder at generere siden" 
%>

<%
'genereringstid - start
Dim strStartTid, strSlutTid, strGenereringsTid
strStartTid = Timer

%>
<head></head>
<body>
<!-- her indsættes din kode -->

<% 'genereringstid - beregning
for i = 0 to 499999
next
strSlutTid = Timer
strGenereringsTid = Round((strSlutTid-strStartTid),2)
Response.write "genereringstid: " & strGenereringsTid & " sekunder"
%>
</body>