<%
'
'
'
%>
<%
'«ƒEƒBƒ“ƒhƒE•
Dim WidthParent
Dim WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7
Dim HeightCell
Dim FontCell
HeightCell = 22
WidthCell1 = 26 '¶ƒCƒ“ƒfƒ“ƒg
WidthCell2 = 200 'WŒv•ª—Þ2
WidthCell3 = 180 'WŒv•ª—Þ3
WidthCell4 = 120 'WŒv‹æ•ª
WidthCell5 = 160 '“–Šú•Ï“®Šz×–Ú
WidthCell6 = 106 '‹àŠz
WidthParent = 811
FontCell = 1416
'ªƒEƒBƒ“ƒhƒE•
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 WK_Zandaka_Kishu()
ReDim WK_Zandaka_KanjyoCD(0)
ReDim WK_Zandaka_KanjyoName(0)
ReDim WK_Zandaka_KariKingaku(0)
ReDim WK_Zandaka_KashiKingaku(0)
ReDim WK_Zandaka_KanjyoKubun(0)
ReDim WK_Zandaka_TaisyakuKubun(0)
ReDim WK_Zandaka_SyukeiCD(0)
ReDim WK_Zandaka_Kishu(0)
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, HiNikubun, HiNikubunFlg
Dim TanaorosiKubun
Dim PageType
Dim PageType2
PageType = "Š”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘"
PageType2 = "Š”ŽåŽ‘–{•Ï“®ŒvŽZ"
PageType2 = "Š”ŽåŽ‘–{“™•Ï“®ŒvŽZ‘"
Dim Url
Url = Request.ServerVariables("URL")
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")
HiNikubun = Request("HiNikubun")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
If HiNikubun = "1" Then 'ƒ`ƒFƒbƒN‚ ‚è
HiNikubunFlg = "checked"
Else
HiNikubunFlg = ""
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("sj3tyoboblack11") %>
<% = HtmlFooter %>
<%
End Sub
%>