<% DIM logTimeOut DIM objConn DIM objRS DIM strSQL DIM userOut logTimeOut = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) userOut = Session("userID") SET objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../users/btlsa.mdb") SET objRS = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT bmsUserLog.logTimeOut FROM bmsUserLog WHERE bmsUserLog.idf_bmsUsers = " & userOut & " ORDER BY bmsUserLog.logTimeIn DESC;" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.Fields("logTimeOut") = logTimeOut objRS.Update objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing Response.Expires=0 Response.Buffer=True Session("userID") = "" Session("bmsUser") = "" Session("bmsName") = "" Session("bmsSurname") = "" Response.Redirect "redirect.asp" %>