<% ' ' %> <% main() Sub main() Dim PageType 'ƒy�[ƒW‚ÌŽí—Þ "Žd“ü"�@or�@"”„�ã"‚©‚ð”»’è Dim RouteType 'ƒy�[ƒW‚ÌŽí—Þ "Žd“ü"�@or�@"”„�ã"‚©‚ð”»’è Dim SyohinCD , Shohinmei , ShohinRyakumei '�¤•iƒR�[ƒh�A�¤•i–¼�Ì�A�¤•i—ª–¼�Ì Dim HanbaiTanka , ShireTnanka , UnsoTanka '•W�€”Ì”„’P‰¿�A•W�€Žd“ü’P‰¿�A‰^‘—”ï’P‰¿ Dim SokoryoTanka , Jyuryo , Yoseki '‘qŒÉ—¿’P‰¿�A�d—Ê�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 %>