<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim KanriKubun
Dim GyoshuKubun
Dim SaimokuKubun
Dim HyojiFlg
SaimokuKubun = Request("SaimokuKubun")
GyoshuKubun = Request("GyoshuKubun")
KanriKubun = Request("KanriKubun")
HyojiFlg = Request("HyojiFlg")
Dim RouteType
RouteType = Request("RouteType")
Dim KamokuCD
KamokuCD = Request("KamokuCD")
Dim HyojiFlg2
HyojiFlg2 = Request("HyojiFlg2")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>