I am using an ASP.Net Shopping cart that provides all of the code, but the class that provides everything is in a DLL in a Bin folder called PDshopNetAdvanc ed. The DLL is not accessible and in order for me to add extra fields to display, I have to create a class of my own and use that class to display the fields and properties I want. Can someone please help in creating a class and then replacing the old class with the new one?
Code:
<%@ Page Language="VB" Explicit="False" %>
<%@ import Namespace="PDshopNetAdvanced" %>
<script runat="server">
'************************************************************
'* TERMS & CONDITIONS / COPYRIGHT NOTICE *
'************************************************************
'* By Downloading or using this software, you agree to *
'* the terms and conditions as stated in the Software *
'* License Agreement. An updated copy of this agreement *
'* can be seen at http://www.pagedowntech.com/terms. *
'* *
'* NOTICE: We do not recommend changing the code below *
'* as it may interfere with future updates/upgrades. *
'* *
'* PageDown Technology, LLC., Copyright 2008. *
'* www.pagedowntech.com / www.pdshop.net *
'* *
'* (this copyright notice must not be altered or removed) *
'************************************************************
Public pd As PDshopNetFunctions
Public nextposturl As String
Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs)
If isnothing(pd) = False Then pd.PDshopNetError()
End Sub
Sub Page_Load(Sender As Object, E As EventArgs)
pd = New PDshopNetFunctions()
pd.LoadPDshop()
If Not (Page.IsPostBack)
End If
'Get Task
task = pd.getrequest("task")
'Get Item Contents
itemdetail.DataSource = pd.binditemdetail()
itemdetail.DataBind()
'Handle Error (if retunring from cart with data entry error)
adderror = pd.getrequest("error")
If adderror = "y" Then
pd.formerror = pd.geterrtext("err47")
edititemid = pd.getrequest("edititemid")
If IsNumeric(edititemid) Then
pd.deletecartitem(edititemid)
End If
End If
'Determine Next Posting URL
If pd.getrequest("wlist") = "Edit" Then
nextposturl = pd.shopurl & "wlistcart.aspx"
Else
nextposturl = pd.shopsslurl & "showcart.aspx"
End If
End Sub
Sub Page_UnLoad(Sender As Object, E As EventArgs)
If isnothing(pd) = False Then pd.UnloadPDshop()
End Sub
</script>
<%=pd.getTopHtml(pd.pg6)%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function updateprice() {
document.form.action = 'item.aspx';
document.form.submit()
}
// -->
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
function addtowishlist() {
document.form.action = 'wlistcart.aspx';
document.form.submit()
}
// -->
</SCRIPT>
<script LANGUAGE="JavaScript">
<!--
function showimage(thefile)
{
if (!window.popWindow)
{
popWindow = window.open("" + thefile,"View","width=500,height=450,toolbar=0,status=0,location=0,menubar=0,scrollbars=yes,resizable=1");
}
else
{
if (!popWindow.closed)
{
popWindow.focus();
popWindow.location = '' + thefile
}
else
{
popWindow = window.open("" + thefile,"View","width=500,height=450,toolbar=0,status=0,location=0,menubar=0,scrollbars=yes,resizable=1");
}
}
}
//-->
</script>
<%=pd.getHeading("hditem", "") %>
<table border="0" <%=pd.getCssStyle("hditem")%> cellpadding="5" cellspacing="0" width="100%">
<tr>
<td class="messages" width="100%"><%=pd.getFormError()%></td>
</tr>
<asp:Repeater id="itemdetail" runat="server">
<itemtemplate>
<form method="post" action="<%=nextposturl%>" name="form">
<tr>
<td>
<% if pd.hideitemheading<>"ON" then %>
<%# DataBinder.Eval(Container.DataItem, "imagewrap") %>
<span class="messages"><%# DataBinder.Eval(Container.DataItem, "nameheading") %><br>
</span><span class="itemname"><%# DataBinder.Eval(Container.DataItem, "name") %><br>
</span><span class="messages"><%# DataBinder.Eval(Container.DataItem, "itemnoheading") %><br>
</span><span class="itemname"><%# DataBinder.Eval(Container.DataItem, "itemno") %><br>
</span>
<span class="messages"><%# DataBinder.Eval(Container.DataItem, "custom1heading") %></span>
<span class="itemname"><%# DataBinder.Eval(Container.DataItem, "custom1text") %></span>
<span class="messages"><%# DataBinder.Eval(Container.DataItem, "custom2heading") %></span>
<span class="itemname"><%# DataBinder.Eval(Container.DataItem, "custom2text") %></span>
<span class="messages"><%# DataBinder.Eval(Container.DataItem, "custom3heading") %></span>
<span class="itemname"><%# DataBinder.Eval(Container.DataItem, "custom3text") %></span>
<% if pd.hideitemprice<>"ON" then %>
<span class="messages"><%=pd.getsystext("sys16")%><br></span>
<span class="price"><%# DataBinder.Eval(Container.DataItem, "baseprice") %><br></span>
<span class="price"><%# Container.DataItem("qtydiscounts") %></span><br>
<% end if %>
<% end if %>
<span class="itemdescription"><%# DataBinder.Eval(Container.DataItem, "description") %><span>
</td>
</tr>
<% if pd.hideitemheading<>"ON" then%>
<tr>
<td width="100%"><%# DataBinder.Eval(Container.DataItem, "imagenowrap") %></td>
</tr>
<!-- ITEM OPTIONS BELOW -->
<tr>
<td width="100%"><a name="itemoptions"></a>
<%# DataBinder.Eval(Container.DataItem, "optionheader") %>
<asp:repeater runat="server" datasource='<%# Container.DataItem.Row.GetChildRows("OptionCats") %>'>
<itemtemplate>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td class="itemformheadings" width="100%"><%# Container.DataItem("groupname") %></td>
</tr>
<tr>
<td width="100%"><%# Container.DataItem("groupoptions") %></td>
</tr>
<tr>
<td width="100%" height="5"></td>
</tr>
</table>
</itemtemplate>
</asp:Repeater>
<%# DataBinder.Eval(Container.DataItem, "optionfooter") %>
<% if pd.hideitemprice<>"ON" then %>
<tr>
<td width="100%"><%# DataBinder.Eval(Container.DataItem, "optionheader2") %>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td class="messages" width="100%"><%# Container.DataItem("finalpriceheading") %></td>
</tr>
<tr>
<td width="100%" class=price><%# Container.DataItem("finalprice") %></td>
</tr>
</table>
<%# DataBinder.Eval(Container.DataItem, "optionfooter2") %> </td>
</tr>
<% end if %>
<!-- ITEM OPTIONS ABOVE -->
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" cellborder="0">
<tr>
<td class=messages><%# DataBinder.Eval(Container.DataItem, "stockmessage") %></td>
<td></td>
</tr>
</table>
</td>
</tr>
<% if pd.inventoryerror="No" then %>
<% if pd.hideitemprice<>"ON" then %>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" cellborder="0">
<tr>
<td class=messages><%=pd.getsystext("sys15")%></td>
<td><input class="iteminput" type="text" name="qty" value="<%# DataBinder.Eval(Container.DataItem, "addqty") %>" size="3"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" cellborder="0">
<tr>
<td><%# DataBinder.Eval(Container.DataItem, "updatebutton") %></td>
<td><%# DataBinder.Eval(Container.DataItem, "savebutton") %></td>
<td><%# DataBinder.Eval(Container.DataItem, "buybutton") %></td>
<td></td>
</tr>
</table>
</td>
</tr>
<%end if%>
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" cellborder="0">
<tr>
<td><%# DataBinder.Eval(Container.DataItem, "emailbutton") %></td>
<td><%# DataBinder.Eval(Container.DataItem, "wishbutton") %></td>
<td></td>
<td></td>
</tr>
</table>
</td>
</tr>
<% end if %>
<tr>
<td width="100%"><%# DataBinder.Eval(Container.DataItem, "hiddeninput") %></td>
</tr>
<%end if %>
</itemtemplate>
</asp:Repeater>
</table>
<%=pd.getsecspace()%>
<%=pd.getBottomHtml(pd.pg6)%>
Comment