<% ' ' %> <% main() Sub main() Dim SakuseiKaisyaCD '쬉ïŽÐCD Dim KitakuIraiKaisyaCD 'Šñ‘õˆË—Š‰ïŽÐCD Dim KitakuNo 'Šñ‘õŽó•t”Ô† Dim NyukoDay '“üŒÉ”NŒŽ“ú Dim YukoFlg '—LŒøƒtƒ‰ƒO Dim Kakaku(6) '•W€’P‰¿ Dim SyohinCD(6) '¤•iƒR[ƒh Dim SyohinName(6) '¤•i–¼Ì Dim Suryo(6) '”—Ê Dim Tanka(6) 'Žd“ü’P‰¿ Dim MotoTanka(6) 'Œ³’P‰¿ Dim UnsoTanka(6) '‰^‘—’P‰¿ Dim Zaiko(6) '݌ɔ—Ê Dim GakuseiShimei 'Šw¶Ž–¼iŒWˆój Dim SyoruiMei '‘—Þ–¼ Dim Query Dim Content Dim Shimei 'Ž–¼ Dim ShijyoCD(5) 'ŽsêCD Dim Syoribi 'ˆ—“ú Dim SyohinGazo(5) Dim PageType Dim RouteType Dim SyohinGazoStr Dim SyohinNyusyukkoSeikousei Dim jj,tmps SakuseiKaisyaCD = Request("SakuseiKaisyaCD") KitakuIraiKaisyaCD = Request("KitakuIraiKaisyaCD") KitakuNo = Request("KitakuNo") SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "¤•i“üoŒÉ®‡«—˜—p") SyohinGazoStr = "" 'SyoruiMei = ConvKubunMeisyo("“üoŒÉ‹æ•ª", BunsyoSyuruiCD) SyoruiMei = "Šñ‘õ“üŒÉ" If KitakuNo <> "" Then Query = "exec SPDŠñ‘õ“üŒÉŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & KitakuIraiKaisyaCD & "', '" & KitakuNo & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then NyukoDay = Content.Fields("“üŒÉ”NŒŽ“ú") YukoFlg = Content.Fields("—LŒøƒtƒ‰ƒO") Syoribi = Content.Fields("ˆ—“ú") Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("Šñ‘õŽó•t”Ô†SEQ") SyohinCD(DenpyoSEQ) = Content.Fields("¤•iCD") ShijyoCD(DenpyoSEQ) = Content.Fields("ŽsêCD") SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("¤•iCD")) Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("¤•iCD")) Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("¤•iCD")) Suryo(DenpyoSEQ) = Content.Fields("”—Ê") Tanka(DenpyoSEQ) = Content.Fields("Žd“ü’P‰¿") SyohinGazo(DenpyoSEQ) = ConvSyohinGazo(EnshuCD, Content.Fields("¤•iCD")) If SyohinGazoStr <> "" Then SyohinGazoStr = SyohinGazoStr & "," End If If SyohinGazo(DenpyoSEQ) <> "" Then SyohinGazoStr = SyohinGazoStr & """" & Fgoods & "/" & EnshuCD & "/" &SyohinGazo(DenpyoSEQ) & """" Else SyohinGazoStr = SyohinGazoStr & """/" & HomeAlias & "/images/truck_box.gif""" End If Content.MoveNext Loop End If End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "‰^—AE‘qŒÉE•ÛŒ¯" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "‰^—A‘qŒÉ•ÛŒ¯‹Æ–±" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "“üŒÉˆê——", "tblbtn( 'fu_kitaku_nyuko_ichiran.asp')", "Šñ‘õ“üŒÉ", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(SyoruiMei,"")) %>
<% = HtmlFooter %> <% End Sub %>