Mostrar Ip's de los visitantes

[affv]

Este es el codigo que tengo en el Global.asa

Código:

<script language="vbscript" runat="server">
	Sub Application_OnStart
		Application("Activas") = 0
	End Sub
	
	Sub Session_OnStart
		Session.TimeOut = 20
		Application.Lock
			Application("Activas") = Application("Activas") + 1
		Application.UnLock
	End Sub
	
	Sub Session_OnEnd
		Application.Lock
			Application("Activas") = Application("Activas") - 1
		Application.UnLock
	End Sub
</script>