<%
'
'
%>
<%
main()
Sub main()
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim DbSyainNo
Dim SyainNo
Dim Url
Dim Nengetu
Dim RouteType
DbSyainNo = Request("DbSyainNo")
SyainNo = Request("SyainNo")
Nengetu = Request("YYMM")
RouteType = Request("RouteType")
Url = Request.ServerVariables("URL")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>