Besöksräknare

Detta har varit uppe ett antal gånger men jag hittade ingen kod som passade mig.

Jag vill ha en besöksräknare som räknar "unika ip / dygn". Jag vill inte använda mig av cookies eller global.asa.

Jag har försökt med denna kod:

<%@ Language = VBScript %>
<%
	Dim ConnectionObject
	Dim RecordsetObject
	Dim SQLVariable
	Dim WasHere

	If Not Session("loggad") = "JA" Then	

		Set ConnectionObject = Server.CreateObject("ADODB.Connection")
		Set RecordsetObject  = Server.CreateObject("ADODB.Recordset")
		ConnectionObject.Open "erciz.net-koppling"
		SQLVariable = "SELECT tid, ip FROM counter WHERE " & Date(tid) & "=" & Date()
		RecordsetObject.Open SQLVariable,ConnectionObject,adOpenForwardOnly,adLockPessimistic

		Do While Not RecordsetObject.EOF Or Not RecordsetObject("ip")=Request.ServerVariables("REMOTE_HOST")
			RecordsetObject.MoveNext	
		Loop

		RecordsetObject.AddNew		
			RecordsetObject("tid") = Now()
			RecordsetObject("ip") = Request.ServerVariables("REMOTE_HOST")
			RecordsetObject("browser") = Request.ServerVariables("HTTP_USER_AGENT")
			RecordsetObject("referer") = Request.ServerVariables("HTTP_REFERER")
		RecordsetObject.Update
		
		RecordsetObject.Close
		ConnectionObject.Close

		Session("loggad") = "JA"	
	End If %>

Som vanligt funkar det inte :I
Jag litar inte riktigt på SQL-satsen, och Do While-satsen blir definitivt fel, den fyller iaf ingen funktion nu iaf, men ni kanske förstår hur jag tänker och kan hjälpa mig på traven ;)

Är detta ett vettigt sätt att räkna besökarna på? Finns det nåt bättre sätt, med hänsyn på mina "krav"?