Expand|Select|Wrap|Line Numbers
- <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
- <html>
- <head>
- <title>Untitled Document</title>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <script language="VB" runat="server">
- Sub Application_Start()
- Application.Lock()
- Application("datum")=Now()
- Application("on")=0
- Application("namn")="Spider-applikationen"
- Application.UnLock()
- End Sub
- Sub Session_Start()
- Application.Lock()
- Application("on")=Application("on") + 1
- Application.UnLock()
- End Sub
- Sub Session_End()
- Application.Lock()
- Application("on")=Application("on") - 1
- Application.UnLock()
- End Sub
- </script>
- </head>
- <body>
- </body>
- </html>
Expand|Select|Wrap|Line Numbers
- <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
- <html>
- <head>
- <title>Welcome</title>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <script runat="server">
- Sub Page_Load()
- Session("logon") = Request("logon")
- logon.Text = Session("logon")
- sessid.Text = Session.SessionID
- app.Text = Application("namn")
- datum.Text = Application("datum")
- aktiva.Text = Application("on")
- End Sub
- </script>
- </head>
- <body>
- <form runat="server">
- You are <asp:label ID="logon" runat="server"/>
- with sessionsid: <asp:label ID="sessid" runat="server"/>
- in the application <asp:label ID="app" runat="server"/>.<br/>
- The applicationen has been running since <asp:label ID="datum" runat="server"/>.<br/>
- The number of active users in this application: <asp:label ID="aktiva" runat="server"/><br/>
- <a href="loggaut.aspx">Log out</a>
- </form>
- </body>
- </html>
-datum
-aktiva
I am sure this basic for you, but I have been trying to find the solution for a while now.
//Matti