<%
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" %> |