<% @LANGUAGE="VBscript" %> <% watch_id = "1010" %> <% strConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_ & "SERVER=192.168.1.11;"_ & " DATABASE=its;"_ & "UID=itsuser;PWD=itsuser; OPTION=3" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strConnectionString Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM WATCH WHERE WATCH_ID = " & watch_id, conn %> LiveCamera
"Ogimachi" Birdseye View from Shiroyama Hill
<% status = rs("Status") current = Now startTime = rs("Start_time") stopTime = rs("Stop_time") If (IsNull(startTime)) Then d1 = 0 d2 = 0 Else d1 = DateDiff("s", startTime, current) d2 = DateDiff("s", current, stopTime) End If If (status = 0 And d1 >= 0 And d2 >= 0) Then %>
Under maintenance

<% Else %>

＜Notes＞

  • "Windows Media Player 9" or newer is required to see the live image.

    To get "Windows Media Player",click hrer,

  • Macintosh users may be unable to see the live image.

  • It may be hard to connect thisi site because of over-concentrates.

  • It may take time to load the live image.
    　（ 512k bps will be recommended.）

  • The live images may be unable to be see in case of heavy snow.

    • <% End If %> <% rs.Close conn.Close %>