<%
'
'
%>
<%
main()
Sub main()
Dim DenpyoNo, Torihikibi, DenpyoTekiyo
Dim PageType
Dim KanjyoCD(10)
Dim Kanjyomei(10)
Dim Kingaku(10)
Dim TekiyoCD(10)
Dim Tekiyo(10)
Dim Gokei,i
Dim DenpyoKubun
Dim RouteType
DenpyoNo = Request("DenpyoNo")
PageType = Request("PageType")
RouteType = Request("RouteType")
If PageType = "Nyukin" Then
DenpyoKubun = "D1"
Else
DenpyoKubun = "D2"
End If
%>
<% = AppTitle %>
<% = PrintScriptX %>
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = DenpyoNyusyukin(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %>
<% = HtmlFooter %>
<%
End Sub
%>