Ho un problema di sessione...da quando ho modificato il mio global per gli utenti online...

ecco il global..


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart

Application("online") = 0




On Error Resume Next
'Path fisica del sito
Application("dir")="c:\dati\web\"
Application("dirProtetta")=Application("dir") & "DB\"

'Connessione OLE-DB
'Application("dbUtenti") = "Provider=Microsoft.Jet.Oledb.4.0;data source=" & mid(server.mappath("1"),1,2) & Application("dirProtetta") & "db.mdb"



Dim objXMLdoc
set objXMLdoc = Server.CreateObject ("Microsoft.XMLDOM")
objXMLdoc.async = False
Set objXMLroot = objXMLdoc.createElement("UtentiConnessi")
objXMLdoc.appendchild (objXMLroot)
objXMLdoc.Save Application("dirProtetta") & ("utenti.xml")
Set objXMLdoc =nothing
Set objXMLroot=nothing

End Sub

Sub Session_OnStart

Session.Timeout = 20

Application.Lock

Application("online") = Application("online") + 1

Application.UnLock

On Error Resume Next
Session.Timeout=1
Session("Login")=False


Dim objXMLdoc
Dim root
Dim newElem

set objXMLdoc = server.createobject("Microsoft.XMLDOM")
objXMLdoc.async = false
objXMLdoc.load Application("dirProtetta") & ("utenti.xml")

Set root = objXMLdoc.documentElement
Set newElem = objXMLdoc.createElement("Session_" & Session.SessionID)
root.appendchild newElem
newelem.setattribute "Data",FormatDateTime(now,2)
newelem.setattribute "Ora",FormatDateTime(now,4)

objXMLdoc.Save Application("dirProtetta") & ("utenti.xml")

set newElem=nothing
set root=nothing
set objXMLdoc=nothing

End Sub

Sub Session_OnEnd
On Error Resume Next
Dim objXMLdoc
Dim root
Dim currNode

Application.Lock

set objXMLdoc = server.createobject("Microsoft.XMLDOM")
objXMLdoc.async = false
objXMLdoc.load Application("dirProtetta") & ("utenti.xml")

Set root = objXMLdoc.documentElement

Set currNode = root.getElementsByTagName("Session_" & Session.SessionID)
root.removeChild(currNode.item(0))
objXMLdoc.Save Application("dirProtetta") & ("utenti.xml")

set currNode=nothing
set root=nothing
set objXMLdoc=nothing
Application("online") = Application("online") - 1

Application.UnLock

End Sub

</SCRIPT>





Praticamente la sessione ora anzichè venti...mi dura più o meno un minuto..



Help Me!