<%@ WebService Class="ApplicationService" %>

Imports System
Imports System.Web.Services

<WebService( Namespace:="http://yourdomain.com/webservices" )> _
Public Class ApplicationService : Inherits WebService

<WebMethod()>  Public Function GetAppCounter() As Integer
  Application( "Counter" ) = CINT( Application( "Counter" ) ) + 1
  Return CINT( Application( "Counter" ) )
End Function

End Class