<% ' ' ' %> <% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount, MaxCount Dim WK_Zandaka() Dim DSP_Zandaka() Dim HiNikubun main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim tmp Dim Query, Content Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg, HiNikubunFlg Dim TanaorosiKubun Dim TyohyoHeader, TableHeader, TableFooter Dim Nikubun Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") TanaorosiKubun = Request("TanaorosiKubun") HiNikubun = Request("HiNikubun") Nikubun = Request("Nikubun") Dim KurikoshiKubun KurikoshiKubun = Request("KurikoshiKubun") Dim KurikoshiFlg If KurikoshiKubun = "1" Then 'ƒ`ƒFƒbƒN‚ ‚è KurikoshiFlg = "checked" Else KurikoshiFlg = "" End If Dim PageType PageType = "‘¹‰vŒvŽZ�‘" If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If If TanaorosiKubun = "1" Then 'ƒ`ƒFƒbƒN‚ ‚è TanaorosiFlg = "checked" Else TanaorosiFlg = "" End If If HiNikubun = "1" Then 'ƒ`ƒFƒbƒN‚ ‚è HiNikubunFlg = "checked" Else HiNikubunFlg = "" End If Dim RouteType RouteType = Request("RouteType") Dim bExistSyuseiKinyu bExistSyuseiKinyu = 0 Query = "exec SPK“`•[�WŒvŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then bExistSyuseiKinyu = 1 End If TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf If bExistSyuseiKinyu = 0 Then If TanaorosiKubun = "1" Then TyohyoHeader = TyohyoHeader & " " & vbCrLf Else TyohyoHeader = TyohyoHeader & " " & vbCrLf End If Else If HiNikubun = "1" Then TyohyoHeader = TyohyoHeader & " " & vbCrLf Else TyohyoHeader = TyohyoHeader & " " & vbCrLf End If End If TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & "

�@

" & vbCrLf TyohyoHeader = TyohyoHeader & " Ž©�F" & SetDate(Kaishibi, 2) & "�`ŽŠ�F" & SetDate(Syuryobi, 2) & vbCrLf TyohyoHeader = TyohyoHeader & "

’ •ë’I‰µŒã‚ð•\Ž¦

[2‹æ•ª‘¹‰vŒvŽZ�‘Œ`Ž®‚Å•\Ž¦]

[�¸ŽZ•\�®—�‹L“ü“K—p�Ï]

" & vbCrLf TableHeader = "" ' TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & "" & vbCrLf TableFooter = "" TableFooter = TableFooter & "

" & vbCrLf TableHeader = TableHeader & "" & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & "" & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " ”ï—p ‹àŠz Žû‰v ‹àŠz " & vbCrLf TableHeader = TableHeader & "

" & vbCrLf TableFooter = TableFooter & "" & vbCrLf TableFooter = TableFooter & " " & vbCrLf TableFooter = TableFooter & " " & vbCrLf TableFooter = TableFooter & " " & vbCrLf %> <% = HtmlHeader("sj3tyobored11") %> <% = PrintScriptX %> <% If bExistSyuseiKinyu = 0 Then Response.Write(TyoboSonekiKeisansyo(EnshuCD, KaisyaCD, KaisyaCD, "LF", "", 1, 1, Kaishibi, Syuryobi, TanaorosiKubun, KurikoshiKubun)) Else Response.Write(TyoboSonekiKeisansyo(EnshuCD, KaisyaCD, KaisyaCD, "LF", "", 1, 1, Kaishibi, Syuryobi, Nikubun, KurikoshiKubun)) End if %> <% End Sub %>