' VBScript source code
' by greg
function licznik() 
			link = document.activeElement
			document.activeElement = ""
			strona = "o.php"
			dim lang 
			if (navigator.appName = "Netscape") then
					lang = navigator.language
				else
					lang = navigator.browserLanguage
			end if
			dim zdata 
			zdata = Now()
			dim licz
			licz = strona & "?jakastrona=" & link & "&jakijezyk=" & lang & "&jakadata=" & zdata &""
			document.activeElement = licz
			document.location.href=licz

end function