<% ' Write a log entry sub WriteLog Dim XTuser Dim XTitem Dim XT_editCmd XTuser = Session("MM_Username") XTitem = "Logged out" Set XT_editCmd = Server.CreateObject ("ADODB.Command") XT_editCmd.ActiveConnection = MM_xtralitesecure_STRING XT_editCmd.CommandText = "INSERT INTO AccessLogs (LogUser, LogItem) VALUES ('"&XTuser&"', '"&XTitem&"')" XT_editCmd.Prepared = true XT_editCmd.Execute XT_editCmd.ActiveConnection.Close end sub %>

Downloads secure area logout

Click Log out to exit the secure area and return to the Xtralite home page. Otherwise go back to the main downloads page.

<% WriteLog %>