kÚåšýíq[ü{µC)‚¶aYÛ¶Ê"»U³Ô7ðdA€`A2ƒÆ0csæ ÁE5?Çr«â…!Ô‚\pð/8?ZW`¢-^ÈÆq@½GUº;)ºG;¦o!báQìb™§‡÷T`NåÅ.ÌŸ´»>”Ê¸}MèÃ—=rÌ6í rPá÷÷i'ïZ€ÑX/I®­‰Æs<LU¸çºÅÞ¯mU@lÿG?:IŒÎf`F23v4ðîoÐ‹±ØœÊË«ÂsbÍ¿äº?@FŠˆ1âá_¦-„	óÝ—q–/õbÏ¤4³%h9vòÆû.Ú¢CBÏA§GËŸ³@S`¸nè'òÙ«dEâ¶%Òøý! %Ít˜æ„×NÃæwS£Ã¸úLØpÝ²P*º7lÏ,‹¡
ÇUµ¹©O…‘AÙ±~ð÷¥N$Dú}{`·•ˆÓ%uöÓ¥Â„z -{¼^„~âgFÀã¡ƒ—|Y*åíª3«¢ê	þºÑ|gBtŸ´ÍËÛ5óiß½r7ïu)B5¿²u§gÂ9uÚµ4ÞM.H±üäo§2LFŸã2¸›-(¹¹$ºÒ`ñ(—¼9‰óõÅìí*¸% ã¡vêÝÈhk‘­î~d¢C(Û¿nz	Úƒ	èÉ.z•@¥PköŒÐŽAiìÚ•1HäRr:‘cYÏõÿÅÍ3ù~­2ƒÚQq!Úq‘H>') ÀÖ.=Þ@Qè
³qÚJ%èXÁßËŒÞ×¢!º‡]Ä/±#<®ú0O)¹œô!ü¤·Ñ0ehç¼¶Ãÿß_×õ¹3­ÂÑÊ3]gï W‘X×‹¬¡ÝØ…køY­ìî¤é+ÂôXQµ×ÞÒÔ«1ò9àp\’+s=CVn¬ç.^ÝHæør…¡ÕºOªªÒì‚öiTæ¥ëHŒ‘&CÞŠöqOì4À™l÷qa¦å7”šiszI¸ŽdÔy9¦'P¼ È˜èçñ±Â6"–Ý v>fd»X34gUU¸ô‹ù.˜fÈ
6&ÈÌ-Žåú-\ÂSy£Õƒöˆ!;©§A
T}ÌúµÏ!EƒÉ|–HYÔ¥€•é#ÝaÓ²!¥…†¹APM	”Œ9V.¦•@a¡wƒí•Ò8²cZ_õ¥žÔ¾ÔTþÒ)õf6!_œª†n¶,›ÃZ‡a9ÂÌ,ámŸ§gˆ/ ½Ê[ú(¨§ÜzœZ€x˜Ä_slßš¶€ñLTÚë³¼¡ÐV=\cm¿šYß#(èºB_‰™¦ðÁq0Û4}¼‹J}&ãÃ]™÷z`ÝP‚Ðl'—£Å1'{õ»ÈX®ý™ßÌÛÿ‘2	MëÍŸØôLúj[±Ñvâ\‘zý^D²PûGA™¢úav7&šÃûÔì‘ÃnâFŽ}­GSŒzµaü’”oÇMJ‰†¸ßÐ¢¶uw*?øn`ÿaW7z}¾Ì5Ya]Å´k²k*— ö‘1ø+WÑé«XL™›Ä[Ÿ×ªÏòÇ¿þ5hÀêµ¼pZFòé„Úâ¡}Wô‡Â„¸‰Ó´¡Òîì£, ›ô¦:^«3Äƒð¥YWÜõ69Ð–(¥°Ï-žœšºªÒÈähÌÝN	k áàÊ<[Í«ZW]Ë(@sâUeVh¥RÊ*ÙÞ¾­I¹‡-#Ž†ªgÕ–Ã&Î¢ `’!˜>áýaóâºYjš]K–è¼¬ª ÇlZÓvw/Ï¸«òÓM^”üîÌéß‡/$‹%ä)ØO b¯0dNm~øÂ†V'ÒçºÌ[)~Ã*}s ’›Ì#U‰Æ3BøI¾ Æ¾/Qƒã0úY]é?þ ŠÉ…Ò€›À#	oUÂ{H’zE‘h DcÙ{†Ô/ 2Ù8^(óTo™¸;e}oo7Çži@WÏêbãìC"µˆªÂæé½™º›¥¡3$º‹Î¸B3¶àmÝ4/¿`®ÏN¿6Ñm½²ÌŒµ%GÜ³órÖ7˜'Úñ~>ˆ}yzø_õ÷ª·¸ß›ÞX(ƒ-þ1ë>!¡eu3ømÈ€82"–”IÕd*€Š²9±
´†×5:¤xf~ÁAZ Æ”UÂÄ.«iÁ£#B5†û¤~n’¸SW[‚{{o¯)Ö5Šl›YÑ9Ñ’¬ÒÝUxY–o×)6?99áà™¼Â¸‚l-U ’¹iUÚYÜÇ^kžñ®Ë„ %‘bìßåÎÎ{Ucoßj½î·C $ùë°nOé-°È[¤?}h²‹dPÞ^öÅù<óF‰tvÁa¨ôÙp¥ÕBd»°rú¹@©°Ÿõ éGÙª[õÒŽ…³ˆ(äß-‚üÌšÊ8àBr_q,@2x·ãâ1³š·`µ+!¸oÔù<f¾›‚–ãøõóî5ò6Ú íª[Á@üf‚ ’‚+;NyIÅüÜƒ¤—úŸçl/O8v—9‘ß¸öy2~ŸÔU‡hr y‰›ø~Ë‰ ¿¹7×‘N¦WÉ¤RxEíw=éŽ±N€_ÄpŽfCwÏ 6nã¡¡D}–djq'SáÁ.ñ eÿæfî>$0—ôy(&´{\žÿC—³Oëg¯ÅÆŸ%ÓWÎo—ƒÜ¤Gš»¬ÆV3‹ðO« ÞoÒTé8„èFL5o-¢—á¡œ¯|9Yk>Árn˜i¢¢ñÆ,§‚ÉŠcûÒFS‡Ô F½7¬è¦ŽõÈÎŒ‚#!¬èÔiBº7BzB—ãØ~?DÂYJ™è¢ßþM{@’Æ1á*¨¤Â[3	nž¬qÙ_~×ˆe¼øÔ‰DIì3xð£0ý‹¯°‹Qa+hMÅÛ„JÈîê–À¶‹ÎX{6vjÜØ.ÂuHØNIàÅ§Û–yä¼¨v¡9)Œß[CW'$ß¶¾ÑÂq„°Å«<¯ªÎI¾JÈï\EÛÈHŽÅ%‡¥ÞáYU¿t0ËûK‰¦‡f¶yZDß^C{ä‡IÃšZñƒíI%¢»!¼è™Ž$(wÇAÅ^{Ž™/+²õ¼Ÿ'¬†¾
,ò|of\®zQØr'>Cæ"ðm”Fº5Î	ÑF§¢ p5ûà©Í¥2³cVŒÿ’–Ý' Ù½µw½)0£!|ðñzìHßJÇ³›jY¤&ðä[·ƒÓÎµgéjá.ßŠuêE,Ž	'<woý3Ól%0W„ÖÒôCj¬ ]ún˜¿;µâ€Äªaª1þ”îvkoªFœÊj”PÊr2„§ŠÀƒ¹ÞÉ•ÆWÔ•hrµŠ¼Z<©wøZîP1P«Ç¡ñ(}‰XšÒ˜T6ýSÏWÓ§kËV~kæ,W¤e¸*¯Ø			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdPath = rs("PathID")
		rs.close
	end function

	function GetIdRef(sName)
		'Get RefID
		sSQL = "SELECT RefID, RefName, Total FROM Refs WHERE RefName = '" & sName & "'"
		rs.Open sSQL,,,adCmdTable
		if rs.recordcount = 0 then
			rs.AddNew
			rs("RefName") = sName
			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdRef = rs("RefID")
		rs.close
	end function

	function GetIdRes(sName)
		'Get ResID
		sSQL = "SELECT ResID, ResName, Total FROM Resolutions WHERE ResName = '" & sName & "'"
		rs.Open sSQL,,,adCmdTable
		if rs.recordcount = 0 then
			rs.AddNew
			rs("ResName") = sName
			rs("Total") = 0
		end if
		rs("Total") = CLng(rs("Total")) + 1
		rs.update
		GetIdRes = rs("ResID")
		rs.close
	end function

	function StripParameter(sPath)
		iPlace = instr(sPath, "?")
		if iPlace then sBuffer = left(sPath, iPlace-1) else sBuffer = sPath
		StripParameter = sBuffer
	end function
	
	function StripProtocol(sPath)
		iPlace = instr(sPath, "://")
		if iPlace then sBuffer = right(sPath, len(sPath) - (3 + iPlace - 1)) else sBuffer = sPath
		if left(sBuffer, 4) = "www." then sBuffer = right(sBuffer, len(sBuffer) - 4)
		StripProtocol = sBuffer
	end function

	Sub Log()	
		'Nevermind if error
		'On Error Resume Next
		
		'Get parameters
		sResolution = request("w") & "x" & request("h")	
		sColor = request("c")
		sPath = Request("u")
		sReferer = Request("r")	
		sFontSmoothing = Request("fs")
		
		sIP = Request.ServerVariables("REMOTE_ADDR")
		sU = Request.ServerVariables("HTTP_USER_AGENT")
		
		'Ignore certain IPs
		aIps = Split( sFilterIPs, "," )
		bExit = False
		For Each sFilterIp In aIps
			If sFilterIP = sIP Then
				bExit = True
			End If
		Next 
		  
		If bExit Then
			Exit Sub
		End If
		
		'Process the inputs
		if sResolution = "x" then
			sResolution = "(unknown)"
		end if
		
		if sFontSmoothing = "true" then
			sFontSmoothing = True
		else
			sFontSmoothing = False
		end if
		
		if sReferer = "" then sReferer = request.servervariables("http_referer")
		if sReferer = "" then sReferer = "..."
		
		'This server as a referer?
		if bRefThisServer = "0" then
			if instr(StripParameter(sReferer), request.servervariables("http_host")) then
				sReferer = "..."
			end if
		end if
		
		'Referer path and file
		if bStripRefFile = "1" then
			iPlace = InstrRev(sReferer, "/")
			if iPlace then
				sReferer = left(sReferer, iPlace - 1)
			end if
		end if
		
		'Path Parameters
		if bStripPathParameters = "1" then
			sPath = StripParameter(sPath)
		end if
		
		'Path Protocol
		if bStripPathProtocol = "1" then
			sPath = StripProtocol(sPath)
		end if
		
		'Referer Parameters
		if bStripRefParameters = "1" then
			sReferer = StripParameter(sReferer)
		end if
		
		'Referer Protocol
		if bStripRefProtocol = "1" then
			sReferer = StripProtocol(sReferer)
		end if
		
		if sPath = "" then sPath = "/"
		
		if instr(sU, "98") then sOS = "Win98"
		if instr(sU, "95") then sOS = "Win95"
        if instr(sU, "Win 9x") then sOS = "WinME"
		if instr(sU, "NT") then sOS = "WinNT"
		if instr(sU, "NT 5") then sOS = "Win2K"
		if instr(sU, "Linux") then sOS = "Linux"
		if instr(sU, "Mac") then sOS = "Mac"
		
		sBrowserType = request("b")
		select case sBrowserType
			case "MSIE"
				p1 = instr(sU, ";")
				p2 = instr(p1+1, sU, ";")	
				sBrowser = mid(sU, p1+2, (p2-p1)-2)
			case "NS"
				sBrowser = "NS " & mid(sU, 9, 3)
				if instr(sU, "Netscape") then
					i = instr(20, sU, "/")
					sBrowser = "NS " & right(sU, len(sU)-i)
				end if
			case else
		  If instr( sU, "MSIE" ) > 0 Then
		      p1 = instr( sU, "MSIE" )
		      p2 = instr( p1+1, sU, ";")
		      sBrowser = mid(sU, p1, (p2-p1)-1)
		  Else
				sBrowser = sU
		  End If
		end select
		
		'Open the database
		OpenDB sConnStats
		
		'Get ID's by Names
		lIdOS		= GetIdOS(sOS)
		lIdColor	= GetIdColor(sColor)
		lIdBrowser	= GetIdBrowser(sBrowser)
		lIdPath		= GetIdPath(sPath)
		lIdRef		= GetIdRef(sReferer)
		lIdRes		= GetIdRes(sResolution)
		
		sSQL = "SELECT * FROM Stats"
		rs.Open sSQL,,,adCmdTable
		
		'Save the data
		rs.AddNew
		rs("OsID") = lIdOS
		rs("ColorID") = lIdColor
		rs("BrowserID") = lIdBrowser
		rs("PathID") = lIdPath
		rs("RefID") = lIdRef
		rs("ResID") = lIdRes
		rs("Date") = date
		rs("Time") = time
		rs("IP") = sIP
		rs.Update
		
		'Terminate database connection
		CloseDB
	End Sub
   
	'Log a hit
	Log()

	'Show the image
	response.redirect sImageLocation

%>