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