<%
'
'
'
%>
<%
main()
Sub main()
Dim BunsyoNaiyoCD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim SakuseiKaisyaCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim TorihikisakiCD
TorihikisakiCD = Request("TorihikisakiCD")
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
PageType = Request("PageType")
Dim KaisyaCD1
KaisyaCD1 = Request("KaisyaCD1")
Dim SenpoFlg
SenpoFlg = Request("SenpoFlg")
%>
<% = HtmlHeader("") %>