Mostrar Ip's de los visitantes

[affv]

Estoy intentando hacer un asp que simplemente me muestre la cantidad de visitas activas en la pagina y las ip de las visitas, la primera parte la tengo hecha ya se como mostrar la cantidad de visitas pero no se como mostrar las ip se que es el global pero no se como.??

[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>

[affv]

Pues vean con un poco de pensamiento he logrado una parte del codigo pero tengo dos problemas

1) no se como aquirir el ip del usuario desde un global.asa aslgo asi como

global.asa

Código:

<script language="vbscript" runat="server">
Sub Application_OnStart
Application("MyIp") = Request.ServerVariables( "REMOTE_ADDR" )
End Sub
</script>

2) no me esta guardando la informacion en el array me lo muestra como vacio
estos son los dos archivos que estoy utilizando
global.asa

Código:

<script language="vbscript" runat="server">
	Sub Application_OnStart
		Application("Activas") = 0
	End Sub
	
	Sub Session_OnStart
		Application.Lock
			Application("Activas") = Application("Activas") + 1
				Dim IpTabla()
				Redim Preserve IpTabla(Application("Activas")-1)
					IpTabla(Application("Activas")-1) = "Aqui va la Ip"
					Application("Ip") = IpTabla
  		Application.UnLock
	End Sub
	
	Sub Session_OnEnd
		Application.Lock
			Application("Activas") = Application("Activas") - 1
			Redim IpTabla(Application("Activas")-1)
		Application.UnLock
	End Sub
</script>

mostrarips.asp

Código:

<%
Response.Write("Hay " & Application("Activas") & " usuario activos</br></br>")
For Each Ip in Application("Ip")
	Response.Write("<b>IP: </b>" &Ip & "</br>")
Next
%>