<% Dim ConnStr Dim Conn Dim rsQuerry dim UserID Dim Pswd Dim SQL ' *************************************** ' Connect to Database ' *************************************** connectdb ' *************************************** ' Select Agent Login Information ' *************************************** SQL = "UPDATE Employee Set LogoutDate = '" & Now() & "' " SQL = SQL & "WHERE EmpID = " & Session("UserID") & " " Conn.execute SQL Conn.close response.redirect(HOMEPAGE) %>