%
'
'
'
%>
<%
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
TyohyoHeader = TyohyoHeader & " Ž©F" & SetDate(Kaishibi, 2) & "`ŽŠF" & SetDate(Syuryobi, 2) & vbCrLf
TyohyoHeader = TyohyoHeader & " | " & vbCrLf
If bExistSyuseiKinyu = 0 Then
If TanaorosiKubun = "1" Then
TyohyoHeader = TyohyoHeader & " ’ •ë’I‰µŒã‚ð•\Ž¦ | " & vbCrLf
Else
TyohyoHeader = TyohyoHeader & " | " & vbCrLf
End If
Else
If HiNikubun = "1" Then
TyohyoHeader = TyohyoHeader & " [2‹æ•ª‘¹‰vŒvŽZ‘Œ`Ž®‚Å•\Ž¦] | " & vbCrLf
Else
TyohyoHeader = TyohyoHeader & " [¸ŽZ•\®—‹L“ü“K—pÏ] | " & vbCrLf
End If
End If
TyohyoHeader = TyohyoHeader & "
" & vbCrLf
TyohyoHeader = TyohyoHeader & "
" & vbCrLf
TableHeader = ""
' 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 | " & vbCrLf
TableHeader = TableHeader & " ‹àŠz | " & vbCrLf
TableHeader = TableHeader & " Žû‰v | " & vbCrLf
TableHeader = TableHeader & " ‹àŠz | " & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & " " & vbCrLf
TableHeader = TableHeader & " | " & vbCrLf
TableHeader = TableHeader & "" & vbCrLf
TableFooter = ""
TableFooter = TableFooter & "
" & 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
%>