<%
lngTimer=Timer
For
lngCnt=1 to 1000000
Next
Response.Write FormatNumber(Timer-lngTimer,2,
True
) &
" saniye"
%>