<%@ Page Language="VB" Explicit="False" %> <%@ Import Namespace="PDshop9" %> Administrator <% pd.writeadminjava()%>
Item/Product Details
<%=pd.getFormError()%>
<% If deleterecord = "yes" Then%>
Are you sure you want to delete?
YES   |   NO
<% End If%>
<% pd.createadmintab("Basics", "edititem.aspx?id=" & id) pd.createadmintab("Categories", "edititem-category.aspx?id=" & id) pd.createadmintab("Images", "edititem-images.aspx?id=" & id) pd.createadmintab("Options", "edititem-options.aspx?id=" & id) pd.createadmintab("Discounts", "edititem-discounts.aspx?id=" & id) pd.createadmintab("Related Items", "edititem-related.aspx?id=" & id) pd.createadmintab("Reviews", "edititem-reviews.aspx?id=" & id) pd.writeadmintabs() %>
Item
Item No:
Item Name:
<% If vsmallimage <> "" Then%>Thumbnail Image: '<%=vsmallimage%>' <% End If%> <% If vlargeimage <> "" Then%>Large Image: '<%=vlargeimage%>' <% End If%>
Customer based Pricing
Enable Customer Pricing?
Customer Level
Price:
Sale Price:
On Sale?
Regular:
Level 1:
Level 2:
Quantity based Pricing
Below are this item's Quantity based Prices/Discount:
<% If id <> "" Then 'Item Prices (QTY Discounts) xcount = 0 pd.OpenDataReader("SELECT * FROM itemprices WHERE itemid=" & id & " ORDER BY fromqty") Do While pd.ReadDataItem.read xcount = xcount + 1 recid = pd.ReadDataN("id") If pd.ReadDataN("method") = 0 Then showitemprice = pd.showcurr(pd.ReadDataN2("price")) & " / " & pd.showcurr(pd.ReadDataN2("saleprice")) Else showitemprice = pd.ReadDataN2("discpct") & " %" End If %> <% If xcount = 1 Then%>
Range
Prices/Discount
<% End If%>
<% Loop pd.CloseData() End If %>
<% If pd.disc2en = 0 Then%>
NOTE: Quantity Based Discounts are not enabled. Be sure you enable this feature on the main Discount Settings page. 
<% End If%>