<% ' ' %> <% main() Sub main() Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim BunsyoSyuruiCD Dim Kakaku(5) '•W€’P‰¿ Dim SyohinCD(5) '¤•iƒR[ƒh Dim SyohinName(5) '¤•i–¼Ì Dim Suryo(5) '”—Ê Dim Tanka(5) '’P‰¿ Dim UnsoTanka(5) '‰^‘—’P‰¿ Dim GakuseiShimei 'Šw¶Ž–¼iŒWˆój Dim SyoruiMei Dim Query Dim Content Dim Shimei Dim PageType Dim RouteType RouteType = Request("RouteType") PageType = Request("PageType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If If SenpoFlg = 0 Then SakuseiKaisyaCD = KaisyaCD End If Dim SenpoTmpBunsyoSyuruiCD Dim SyoruiKubun Select Case BunsyoSyuruiCD Case "SC" SyoruiMei = "ƒIƒŠƒWƒiƒ‹¤•i“üŒÉ" SyoruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "U" Case "SS" SyoruiMei = "Žd“ü“üŒÉ" SyoruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "U" Case "SX" SyoruiMei = "Žd“ü•Ô•i" SyoruiKubun = "X" Case "SU" SyoruiMei = "”„ãoŒÉ" SyoruiKubun = "U" Case "SY" SyoruiMei = "”„ã•Ô•i" SyoruiKubun = "1" Case "ZS" SyoruiMei = "Þ—¿“üŒÉ" SyoruiKubun = "S" Case "ZU" SyoruiMei = "Þ—¿oŒÉ" SyoruiKubun = "S" Case "MU" SyoruiMei = "»•ioŒÉ" SyoruiKubun = "U" Case Else End Select Dim Label If BunsyoSyuruiCD = "ZS" Then Label = "Þ—¿" Else Label = "¤•i" End If Dim ButtonLabel If BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "MU" Then ButtonLabel = "oŒÉ" Else ButtonLabel = "“üŒÉ" End If If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then If GB_JisyaFlag <> "" Then '‰^—pŠÇ—E‰‰KŠÇ—iŽ©ŽÐƒtƒ‰ƒO–³‚µj‚Å‚ÍŠJ••ƒtƒ‰ƒO‚𗧂ĂȂ¢i061213¬–ìj Query = "exec SPDŽd“ü”„ã‘—ÞŠJ•• '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD &"', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) End If Query = "exec SPDŽd“ü”„㑗ގ擾 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD &"', '" & KaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPD“üoŒÉŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then TorihikisakiCD = Content.Fields("‰ïŽÐCD") SenpoSyoribi = Content.Fields("ˆ—“ú") Else TorihikisakiCD = Content.Fields("ŽæˆøæCD") SenpoSyoribi = Content.Fields("æ•ûˆ—“ú") Syoribi = Content.Fields("ˆ—“ú") End If If 1 = 0 Then UntinSyogakariKubun = Content.Fields("‰^’À”Š|‹æ•ª") Unsohi = Content.Fields("‰^‘—”ï") End If ' GakuseiShimei = Content.Fields("Ž–¼") ' SenpoBunsyoNaiyoCD = Content.Fields("æ•û•¶‘“à—eCD") ' SenpoBunsyoSyuruiCD = Content.Fields("æ•û•¶‘Ží—ÞCD") Do While Not(Content.BOF Or Content.EOF) Dim NyusyukoSEQ If SenpoFlg = 1 Then NyusyukoSEQ = Content.Fields("•¶‘“à—eSEQ") Else NyusyukoSEQ = Content.Fields("“üoŒÉSEQ") End If If BunsyoSyuruiCD = "ZS" Then ' SyohinGazo(NyusyukoSEQ) = ConvZairyoGazo(EnshuCD, Content.Fields("¤•iCD")) Kakaku(NyusyukoSEQ) = ConvZairyoHanbaiTanka(Content.Fields("¤•iCD")) Else ' SyohinGazo(NyusyukoSEQ) = ConvSyohinGazo(EnshuCD, Content.Fields("¤•iCD")) Kakaku(NyusyukoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("¤•iCD")) End If SyohinCD(NyusyukoSEQ) = Content.Fields("¤•iCD") Suryo(NyusyukoSEQ) = Content.Fields("”—Ê") Tanka(NyusyukoSEQ) = Content.Fields("’P‰¿") ' If SyoruiKubun = "X" Or SyoruiKubun = "1" Then ' If Suryo(NyusyukoSEQ) <> "" Then ' Suryo(NyusyukoSEQ) = -1 * Suryo(NyusyukoSEQ) ' End If ' End If If 1 = 0 Then If SenpoFlg = 1 Then UnsoTanka(NyusyukoSEQ) = "" Else UnsoTanka(NyusyukoSEQ) = Content.Fields("‰^‘—’P‰¿") End If End If Content.MoveNext Loop End If End If Dim HyojunTankaHyoji Dim HaraidashiTankaRiyo Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("•W€”Ì”„’P‰¿•\Ž¦") HaraidashiTankaRiyo = "" & Content.Fields("oŒÉŽž•¥o’P‰¿“ü—Í") End If 'HaraidashiTankaRiyo = "1" Dim jj,tmps %> <% = HtmlHeader("") %> <% = PrintScriptX %>
<% Response.Write(PrintHeader(0, "")) %>
<% If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %>
@
<% 'If BunsyoSyuruiCD <> "SC" And BunsyoSyuruiCD <> "MU" Then %> <% If BunsyoSyuruiCD <> "MU" And TorihikisakiCD <> KaisyaCD Then %> <% End If %>
<% = ButtonLabel %>”Ô† <% = BunsyoNaiyoCD %>             ˆ—“ú <% = Syoribi %>
Žæˆøæ <% If TorihikisakiCD = "SJ4KOURIHANBAI" Then Response.Write("¬”„”Ì”„") Else Response.Write(ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD)) End If %>
<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "ZS" Then %> <% ElseIf HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If 1 = 0 Then %> <% End If %>
<% = Label %>–¼Ì<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("•W€’P‰¿") End If %>”@—Ê’P@‰¿•¥o’P‰¿‰^‘—’P‰¿
<% If BunsyoSyuruiCD = "ZS" Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If BunsyoSyuruiCD = "ZS" Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If BunsyoSyuruiCD = "ZS" Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If BunsyoSyuruiCD = "ZS" Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If BunsyoSyuruiCD = "ZS" Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %>
<% = AscLeft(ConvZairyoMeisyo(SyohinCD(1)),38) %>
<% = AscLeft(ConvSyohinMeisyo(SyohinCD(1)),38) %>
<% = SetMoney(Kakaku(1), false, true) %>
<% = SetMoney(Suryo(1), false, true) %>
<% = SetMoney(Tanka(1), false, true) %>
<% = AscLeft(ConvZairyoMeisyo(SyohinCD(2)),38) %>
<% = AscLeft(ConvSyohinMeisyo(SyohinCD(2)),38) %>
<% = SetMoney(Kakaku(2), false, true) %>
<% = SetMoney(Suryo(2), false, true) %>
<% = SetMoney(Tanka(2), false, true) %>
<% = AscLeft(ConvZairyoMeisyo(SyohinCD(3)),38) %>
<% = AscLeft(ConvSyohinMeisyo(SyohinCD(3)),38) %>
<% = SetMoney(Kakaku(3), false, true) %>
<% = SetMoney(Suryo(3), false, true) %>
<% = SetMoney(Tanka(3), false, true) %>
<% = AscLeft(ConvZairyoMeisyo(SyohinCD(4)),38) %>
<% = AscLeft(ConvSyohinMeisyo(SyohinCD(4)),38) %>
<% = SetMoney(Kakaku(4), false, true) %>
<% = SetMoney(Suryo(4), false, true) %>
<% = SetMoney(Tanka(4), false, true) %>
<% = AscLeft(ConvZairyoMeisyo(SyohinCD(5)),38) %>
<% = AscLeft(ConvSyohinMeisyo(SyohinCD(5)),38) %>
<% = SetMoney(Kakaku(5), false, true) %>
<% = SetMoney(Suryo(5), false, true) %>
<% = SetMoney(Tanka(5), false, true) %>
<% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>