<% ' ' %> <% main() Sub main() Dim PageType 'ƒy[ƒW‚ÌŽí—Þ "Žd“ü"@or@"”„ã"‚©‚ð”»’è Dim RouteType 'ƒy[ƒW‚ÌŽí—Þ "Žd“ü"@or@"”„ã"‚©‚ð”»’è Dim SyohinCD , Shohinmei , ShohinRyakumei '¤•iƒR[ƒhA¤•i–¼ÌA¤•i—ª–¼Ì Dim HanbaiTanka , ShireTnanka , UnsoTanka '•W€”Ì”„’P‰¿A•W€Žd“ü’P‰¿A‰^‘—”ï’P‰¿ Dim SokoryoTanka , Jyuryo , Yoseki '‘qŒÉ—¿’P‰¿Ad—ÊA—eÏ Dim Bikou '”õl Dim GazoFile Dim Tani Dim Lot Dim SyohinKubun Dim ShijyoCD, SyoyuKaisyaCD Dim ii Dim Query Dim Content PageType= Request("Pagetype") SyohinCD = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") Dim Mode Mode = Request("Mode") Dim Title If SyohinKubun = "Z" Then Title = "Þ—¿" Else Title = "¤•i" End If Dim GakuseiBango If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then Else GakuseiBango = GB_GakuseiNo End If '‰‰K–¼Ì‚f‚d‚s ' Dim EnshuName ' EnshuName = ConvEnshuMeisyo(EnshuCD) If SyohinCD <> "" Then Query = "exec SPM" & Title & "Žæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "', '" & SyohinCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("ŽsêCD") Shohinmei = Content.Fields("" & Title & "–¼Ì") ShohinRyakumei = Content.Fields("" & Title & "—ª–¼Ì") HanbaiTanka = Content.Fields("•W€”Ì”„’P‰¿") ShireTnanka = Content.Fields("•W€Žd“ü’P‰¿") UnsoTanka = Content.Fields("‰^‘——¿’P‰¿") SokoryoTanka = Content.Fields("‘qŒÉ—¿’P‰¿") Jyuryo = Content.Fields("" & Title & "d—Ê") Yoseki = Content.Fields("" & Title & "—eÏ") Bikou = Content.Fields("”õl") GazoFile = Content.Fields("‰æ‘œƒtƒ@ƒCƒ‹") Tani = Content.Fields("’PˆÊ") Lot = Content.Fields("ƒƒbƒg") SyoyuKaisyaCD = Content.Fields("Š—L‰ïŽÐCD") End If End If Dim jj,tmps %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = BuhinTenkaiHyo(EnshuCD, KaisyaCD, SyohinCD, SyohinKubun, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>