" & vbCrLf)
If Cat <> "" Then
If "" & Content.Fields("サブカテゴリID") <> "" Then
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)
For Cnt = 1 to 3
Response.Write("-" & Cnt & " " & vbCrLf)
Next
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
'Response.Write(" " & vbCrLf)
Response.Write(ActionButton3Image("UpdBtn" & Content.Fields("カテゴリID") & "_" & Content.Fields("サブカテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 26, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "更新", "tx1214w", "center", "CatUpdate('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "');"))
Response.Write(" " & vbCrLf)
'Response.Write("⇑ " & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(ActionButton3Image("UpBtn" & Content.Fields("カテゴリID") & "_" & Content.Fields("サブカテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 16, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "⇑", "tx1618w", "center", "CatOrder('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "','" & Content.Fields("サブカテゴリ表示順") & "','Up');"))
Response.Write(" " & vbCrLf)
'Response.Write("⇓ " & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(ActionButton3Image("DnBtn" & Content.Fields("カテゴリID") & "_" & Content.Fields("サブカテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 16, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "⇓", "tx1618w", "center", "CatOrder('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "','" & Content.Fields("サブカテゴリ表示順") & "','Dn');"))
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
'Response.Write(" " & vbCrLf)
Response.Write(ActionButton3Image("DltBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 26, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "削除", "tx1214w", "center", "CatDelete('" & Content.Fields("カテゴリID") & "','" & Content.Fields("サブカテゴリID") & "');"))
Response.Write(" " & vbCrLf)
End If
Else
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("" & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(" " & vbCrLf)
For Cnt = 1 to 3
Response.Write("-" & Cnt & " " & vbCrLf)
Next
Response.Write(" " & vbCrLf)
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
'Response.Write(" " & vbCrLf)
Response.Write(ActionButton3Image("UpdBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 26, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "更新", "tx1214w", "center", "CatUpdate('" & Content.Fields("カテゴリID") & "','');"))
Response.Write(" " & vbCrLf)
' Response.Write("⇑ " & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(ActionButton3Image("UpBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 16, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "⇑", "tx1618w", "center", "CatOrder('" & Content.Fields("カテゴリID") & "','','" & Content.Fields("表示順") & "','Up');"))
Response.Write(" " & vbCrLf)
' Response.Write("⇓ " & vbCrLf)
Response.Write("" & vbCrLf)
Response.Write(ActionButton3Image("DnBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 16, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "⇓", "tx1618w", "center", "CatOrder('" & Content.Fields("カテゴリID") & "','','" & Content.Fields("表示順") & "','Dn');"))
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
'Response.Write(" " & vbCrLf)
Response.Write(ActionButton3Image("SubCatBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 98, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "サブカテゴリ管理", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Cat=" & Content.Fields("カテゴリID") & "';"))
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
'Response.Write(" " & vbCrLf)
Response.Write(ActionButton3Image("DltBtn" & Content.Fields("カテゴリID"), "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 26, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "削除", "tx1214w", "center", "CatDelete('" & Content.Fields("カテゴリID") & "','');"))
Response.Write(" " & vbCrLf)
End If
Response.Write(" " & vbCrLf)
End If
Content.MoveNext
Loop
%>