<% connect_db() sql = "update admin_login_log set flag = 1 where admin_username = '" & replaceSQLString(Session("strUsername")) & "' and checksum = '" & replaceSQLString(Session("strChecksum")) & "' and remote_addr = '" & replaceSQLString(remote_addr) & "' and flag = 0" Set rs = SErver.CreateObject("ADODB.Recordset") rs.Open sql, conn, 2, 1 Session.Contents.Removeall() Set rs = Nothing Set conn = Nothing Response.Redirect("/cmcadmin") %>