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