Mostrar Ip's de los visitantes

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