<%
'
%>
<%
main()
Sub main()
Dim DbSyainNo
Dim SyainNo
Dim Seq
Dim Url
Dim Shikyubi
Dim RouteType
DbSyainNo = Request("DbSyainNo")
SyainNo = Request("SyainNo")
Seq = Request("Seq")
RouteType = Request("RouteType")
Url = Request.ServerVariables("URL")
Dim ShikyuKubun
ShikyuKubun = Request("ShikyuKubun")
Dim ShikyuNenGetsu
ShikyuNenGetsu = Request("ShikyuNenGetsu")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>