Session On_End

lernen.2007

Erfahrenes Mitglied
Ich will etwas mit Session On_End und Session_OnStart realiesieren aber es klappt nicht d.h Session_OnStart geht aber Session On_End nicht.Ich will beim Start einer Sitzung sowie Ende einer Sitzung etwas in gleiche Datei schreiben.
Alles ist unter der global.asa gespeichert:
Hier ist der Code:


<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER">
Sub Session_OnStart
Session.Timeout = 5
session.Abandon()
Dim strName
Dim strFile
Dim strFileContent
Dim objFS
Dim objFile

strFile = Server.MapPath("~db/data/counter.txt")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile(strFile, 8)
strName="Start!"
objFile.WriteLine strName
objFile.Close

End Sub

Sub Session_OnEnd
Dim strNamen
Dim strFilen
Dim strFileContentn
Dim objFSn
Dim objFilen

strFilen = Server.MapPath("~db/data/counter.txt")
Set objFSn = CreateObject("Scripting.FileSystemObject")
Set objFilen = objFSn.OpenTextFile(strFilen, 8)
strNamen="Ende!"
objFilen.WriteLine strNamen
objFilen.Close

End Sub

</SCRIPT>
 
Zurück