<% ' ' %> <% 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 = "�»•i�oŒÉ" 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 %>