If you have a table that just has this:
TableName: AppCount
MaxCount (Number)
TimeLog (Date/Time)
You could do:
Sub Application_OnStart
Application("ActiveUsers")=0
End Sub
Sub Session_OnStart
Application.lock
iAppCount = Application("ActiveUsers") + 1
Application("ActiveUsers") = iAppCount
objYourADOConnectionToYourAccessDatabase.Execute "UPDATE [AppCount] SET
[MaxCount]=" & iAppCount & ",TimeLog=#" & Now() & "# WHERE " & iAppCount &
">[MaxCount]"
Application.unlock
End Sub
That will execute a query on every new session, and if the new value is
higher than the current value stored in the DB, it will update the record.
Otherwise, it will find no records to update.
Ray at home
--
Will trade ASP help for SQL Server help
"Lovely Angel" <lovely_angel_for_you@yahoo.com> wrote in message
news:OdiYLs2XDHA.2572@TK2MSFTNGP09.phx.gbl...[color=blue]
> Hi
> I am using the following script in global.asa. This works fine and let
> me know how many users are currently active on my website.
>
> I am using Access database. It also stores total number of hits and
> total new sessions also.
>
> Any idea how to tell which date there were maximum active users.
>
> Waiting for your replies.
>
> Love
> Lovely
>
> --------------------------------------
>
> <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
> Sub Application_OnStart
> Application("ActiveUsers")=0
> End Sub
>
> Sub Session_OnStart
> Application.lock
> Application("ActiveUsers") = Application("ActiveUsers") + 1
> Application.unlock
>
> End Sub
>
> Sub Session_OnEnd
> Application.lock
> Application("ActiveUsers") = Application("ActiveUsers") - 1
> Application.unlock
> End Sub
> </SCRIPT>
>
> *** Sent via Developersdex
http://www.developersdex.com ***
> Don't just participate in USENET...get rewarded for it![/color]