<%
'
Dim SatirBaslangicZamani
SatirBaslangicZamani = Timer
Response.Write "Baslangic Zamani: " & SatirBaslangicZamani
Dim SatirBitisZamani
SatirBitisZamani = Timer
Response.Write "Bitis Zamani: " & SatirBitisZamani
'Burada sayfanin talep edilme ile yorumlanma zamanini agzimizla yakaladik.. :)
Dim Hesap
Hesap = FormatNumber(SatirBitisZamani - SatirBaslangicZamani, 4) 'Burada yorumlanma suresinden talep edlme zamanini cikariyoruz..
Response.Write "Bu Sayfa [" & Hesap & "] saniyede yuklendi..." 'Cikan sonucu yaziyoruz..
%>