|
|
<% If Shokai <> "" Then %>
|
|
<% End If %>
<%
Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & ViewKaisyaCD & "', ''"
Set Content = OpenQuery(Query)
If Content.BOF Or Content.EOF Then
ShelfHyoji = "0"
End If
%>
<% If ShelfHyoji = "1" Then %>
<%
Do While Not(Content.BOF Or Content.EOF)
If ShelfZaiko = "1" Or Zaiko("" & Content.Fields("商品CD")) > 0 Then '連想配列の添え字は明示的にStringにしないとダメ
Dim ImageFile
ImageFile = ""
If "" & Content.Fields("商品画像区分") = "2" And "" & Content.Fields("商品広告画像") <> "" Then
ImageFile = FPortal & "/" & GB_EnshuCD & "/" & ViewKaisyaCD & "/" & 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("")
If ImageFile <> "" Then
Response.Write("![]() ")
Else
Response.Write("
")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
Response.Write(Content.Fields("商品見出し文"))
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Response.Write("" & vbCrLf)
Response.Write("| ")
Response.Write(Content.Fields("商品広告文"))
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Response.Write(" ")
Response.Write("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write("| ")
Response.Write("" & Content.Fields("商品名称") & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write("")
Response.Write("標準卸価格：" & ConvIntToMoney(Content.Fields("標準卸価格"),false,false))
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Response.Write(" ")
Response.Write("
")
End If
Content.MoveNext
Loop
%>
|
|
<% End If %>
<% If ContentsHyoji = "1" And ContentsValue <> "" And ContentsTitle <> "" Then %>
|
|
<% End If %>
<% If LinkHyoji = "1" And LinkValue <> "" And LinkTitle <> "" Then %>
|
|
<% End If %>
<% If ShelfHyoji <> "1" Then '商品棚非表示時の代替行 %>
|
|
<% End If %>
|
|