xref: /trunk/main/sd/res/webview/poll.asp (revision 5b501c92)
1<%
2    Option Explicit
3    Response.Expires = 0
4%>
5<!--***********************************************************
6 *
7 * Licensed to the Apache Software Foundation (ASF) under one
8 * or more contributor license agreements.  See the NOTICE file
9 * distributed with this work for additional information
10 * regarding copyright ownership.  The ASF licenses this file
11 * to you under the Apache License, Version 2.0 (the
12 * "License"); you may not use this file except in compliance
13 * with the License.  You may obtain a copy of the License at
14 *
15 *   http://www.apache.org/licenses/LICENSE-2.0
16 *
17 * Unless required by applicable law or agreed to in writing,
18 * software distributed under the License is distributed on an
19 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
20 * KIND, either express or implied.  See the License for the
21 * specific language governing permissions and limitations
22 * under the License.
23 *
24 ***********************************************************-->
25
26<!-- #include file = "common.inc" -->
27
28<HTML>
29
30<HEAD>
31    <META http-equiv="refresh" CONTENT="<% = cnRefreshTime %>">
32</HEAD>
33
34<%
35    ' get current picture id
36    Dim nGIFID
37
38    nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 )
39
40    ' a new picture was chosen ?
41    if nGIFID <> Session( "GIFID" ) then
42        ' then store the id of the new picture and show it
43        Session( "GIFID" ) = nGIFID
44    %>
45        <BODY bgcolor="red" onLoad="parent.frame1.location.href='./show.asp?<%= nGIFID %>'">
46    <%
47    else
48    %>
49        <BODY bgcolor="green">
50    <%
51    end if
52%>
53
54</BODY>
55
56</HTML>
57