% ' ' ' %> <% 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 main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim tmp Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg Dim TanaorosiKubun Dim PageType PageType = "‘ÝŽØ‘ÎÆ•\" 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 Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") TanaorosiKubun = Request("TanaorosiKubun") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim RouteType RouteType = Request("RouteType") Dim KanjyoCDShiire, KanjyoCDKurikoshiSyohin Dim KanjyoCDKisyuSyohinTanaoroshidaka, KanjyoCDKimatsuSyohinTanaoroshidaka Query = "exec SPMŠ¨’è‰È–ڎ擾“Á•ÊŠ¨’è '" & GB_SystemCD & "','" & EnshuCD & "', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF OR Content.EOF) If Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DL" Then KanjyoCDShiire = Content.Fields("Š¨’èCD") ElseIf Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DG" Then KanjyoCDKisyuSyohinTanaoroshidaka = Content.Fields("Š¨’èCD") ElseIf Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DH" Then KanjyoCDKimatsuSyohinTanaoroshidaka = Content.Fields("Š¨’èCD") ElseIf Content.Fields("“Á•ÊŠ¨’è‹æ•ª") = "DJ" Then KanjyoCDKurikoshiSyohin = Content.Fields("Š¨’èCD") End If Content.MoveNext Loop %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>