reload af tæller

Hej, jeg håber det er den rigtige katogori jeg er havnet i, ellers sig til.
Jeg ønsker at lave min global.ase fil på den måde, at hvis en brugers IP adresse reloader siden ustandsligt, kun for at trække "online antal brugere" op, så bliver de henvist til en advarselsside, eller deres IP adresse udelukkes i et vist antal timer.....
Det er faktisk et kæmpe problem, især om natten, hvor en person trækker den op til næsten 100 online bruger....
siden: www.labra.dk
ase fil...

//
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
  ' Nulstil tælleren, når serveren startes
  Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
  ' Sæt Session Timeout til 10 minutter
  Session.Timeout = 10
  ' Sæt Session starttid
  ' Dette har kun betydning for at være sikker på, at en session er startet
  Session("Start") = Now
  ' Øg antallet af aktive brugere med 1, når en session startes
  Application.Lock
    Application("ActiveUsers") = Application("ActiveUsers") + 1
  Application.UnLock
End Sub

Sub Session_OnEnd
  ' Nedskriv antallet af aktive brugere ned 1, når en session udløber
  Application.Lock
    Application("ActiveUsers") = Application("ActiveUsers") - 1
  Application.UnLock
End Sub
</SCRIPT>
//