On Error Resume Next
Dim D, L, U
U = document.URL
D = document.Domain
U = Replace(U,"http://" & D,"",1,-1,vbTextCompare)
U = Left(U,InStr(2,U,"/"))
L = "<img src='/Editor/Statistik/count.asp?Homesite=" & U & "&b=" & navigator.appName & "&version=" & navigator.appVersion & "&w=" & screen.width & "&h=" & screen.height & "&c=" & screen.colorDepth & "&r=" & escape(document.referrer) & "&u=" & escape(document.URL) & "&fs=" & window.screen.fontSmoothingEnabled & "&l=" & navigator.systemLanguage & "&p=" & navigator.platform & "'>"
document.write L