<% Dim PrevHyojijun PrevHyojijun = 0 Dim NextHyojijun ReDim NextHyojijun(0) Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', ''" Set Content = OpenQuery(Query) Dim ii ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 ReDim PreServe NextHyojijun(ii) NextHyojijun(ii) = Content.Fields("表示順") Content.MoveNext Loop If UBound(NextHyojijun) > 0 Then Content.MoveFirst End If ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 Dim ImageFile ImageFile = "" If "" & Content.Fields("商品画像区分") = "2" And "" & Content.Fields("商品広告画像") <> "" Then ImageFile = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Content.Fields("商品広告画像") ElseIf "" & Content.Fields("商品画像区分") = "1" And "" & Content.Fields("商品マスタ画像") <> "" Then ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("商品マスタ画像") End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) If ImageFile <> "" Then Response.Write("") Else Response.Write(" 画像無し ") End If Response.Write(" " & vbCrLf) Response.Write(Content.Fields("商品見出し文") & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(Content.Fields("商品広告文") & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & Content.Fields("商品名称") & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("希望卸価格：" & ConvIntToMoney(Content.Fields("希望卸価格"),false,false) & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) If ii > 1 Then Response.Write("" & vbCrLf) End If Response.Write("  " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) Response.Write("" & vbCrLf) Response.Write("  " & vbCrLf) If ii + 1 <= UBound(NextHyojijun) Then Response.Write("" & vbCrLf) End If Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) Response.Write(" " & vbCrLf) PrevHyojijun = Content.Fields("表示順") Content.MoveNext Loop %>