sd/res/webview/poll.asp

   1 <%
   2     Option Explicit
   3     Response.Expires = 0
   4 %>
   5 <!--
   6  * This file is part of the LibreOffice project.
   7  *
   8  * This Source Code Form is subject to the terms of the Mozilla Public
   9  * License, v. 2.0. If a copy of the MPL was not distributed with this
  10  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
  11  *
  12  * This file incorporates work covered by the following license notice:
  13  *
  14  *   Licensed to the Apache Software Foundation (ASF) under one or more
  15  *   contributor license agreements. See the NOTICE file distributed
  16  *   with this work for additional information regarding copyright
  17  *   ownership. The ASF licenses this file to you under the Apache
  18  *   License, Version 2.0 (the "License"); you may not use this file
  19  *   except in compliance with the License. You may obtain a copy of
  20  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  21 -->
  22
  23 <!-- #include file = "common.inc" -->
  24
  25 <HTML>
  26
  27 <HEAD>
  28     <META http-equiv="refresh" CONTENT="<% = cnRefreshTime %>">
  29 </HEAD>
  30
  31 <%
  32     ' get current picture id
  33     Dim nGIFID
  34
  35     nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 )
  36
  37     ' a new picture was chosen ?
  38     if nGIFID <> Session( "GIFID" ) then
  39         ' then store the id of the new picture and show it
  40         Session( "GIFID" ) = nGIFID
  41     %>
  42         <BODY bgcolor="red" onLoad="parent.frame1.location.href='./show.asp?<%= nGIFID %>'">
  43     <%
  44     else
  45     %>
  46         <BODY bgcolor="green">
  47     <%
  48     end if
  49 %>
  50
  51 </BODY>
  52
  53 </HTML>