<% strReferrer = Request.ServerVariables("HTTP_REFERER") If strReferrer <> "" Then ' Eğer ziyaretçi gönderen sayfa bilgisi varsa strSite = Split(strReferrer,"?") ' Querystring kısmı çıkarılıyor strSiteAdresi = strSite(0) Response.Write "Sitemize "& strSiteAdresi &" adresinden geldiniz." End If %>


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