<%
main()
Sub main()
Dim Datetime
Datetime = Right("0" & Hour(Now), 2) & ":" & Right("0" & Minute(Now), 2) & ":" & Right("0" & Second(Now), 2)
%>
<html>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<TITLE><% = Datetime %></TITLE>
</HEAD>
<body onLoad="setTimeout('IntervalReload();',<% = 19 * 10 * 1000 %>);" bgcolor="#FFFFFF" text="#000000" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<% = Datetime %>
</body>
<script LANGUAGE="JavaScript">
<!--
function IntervalReload() {
window.location.href = "<% = Request.ServerVariables("SCRIPT_NAME") %>";
}
-->
</script>
</html>
<%
End Sub
%>