<div class="wishlistproductimage"><asp:HyperLink ID="imgProduct" runat="server"></asp:HyperLink></div>
<div class="wishlistproductlink"><asp:HyperLink ID="lnkProduct" runat="server"></asp:HyperLink></div>
<div class="wishlistprice"><asp:HyperLink id="lnkProductPrice" runat="server"></asp:HyperLink></div>

<div class="wishlistmodifier"><asp:HyperLink id="lnkModifiers" runat="server"></asp:HyperLink></div>

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound

End Sub

If e.Row.RowType = DataControlRowType.DataRow Then

Dim DeleteButton As System.Web.UI.WebControls.ImageButton
DeleteButton = e.Row.FindControl("DeleteButton")
If Not DeleteButton Is Nothing Then
DeleteButton.ImageUrl = PersonalizationServices.GetThemedButton("Delete")
End If

Dim AddToCartImageButton As ImageButton = e.Row.FindControl("AddToCartImageButton")
If AddToCartImageButton IsNot Nothing Then
AddToCartImageButton.ImageUrl = PersonalizationServices.GetThemedButton("AddToCart")
End If

Dim localWishList As Catalog.WishList = CType(e.Row.DataItem, Catalog.WishList)

Dim localP As Catalog.Product = Catalog.InternalProduct.FindByBvin(localWishList.ProductBvin)

If localP IsNot Nothing Then

Dim imgProduct As HyperLink = e.Row.FindControl("imgProduct")
Dim lnkProduct As HyperLink = e.Row.FindControl("lnkProduct")
Dim lnkProductPrice As HyperLink = e.Row.FindControl("lnkProductPrice")
Dim lnkModifiers As HyperLink = e.Row.FindControl("lnkModifiers")

Dim c As Collection(Of Orders.LineItemModifier) = localWishList.Modifiers
Dim sb As New StringBuilder

If localP.ChoicesAndInputs.Count > 0 Then
sb.Append("<ul>")
For Each lim As Orders.LineItemModifier In c
Dim pmo As Catalog.ProductModifierOption = Catalog.ProductModifierOption.FindByBvin(lim.ModifierValue)
sb.Append("<li>")
sb.Append(lim.ModifierName.ToString)
sb.Append(": ")
sb.Append(pmo.DisplayText.ToString)
sb.Append("</li>")
Next
sb.Append("</ul>")
End If

If imgProduct IsNot Nothing Then
imgProduct.ImageUrl = Page.ResolveUrl(Utilities.ImageHelper.GetValidImage(localP.ImageFileSmall, True))
imgProduct.NavigateUrl = Utilities.UrlRewriter.BuildUrlForProduct(localP, Me.Page.Request)
End If
If lnkProduct IsNot Nothing Then
lnkProduct.Text = localP.ProductName
lnkProduct.NavigateUrl = imgProduct.NavigateUrl
End If
If lnkProductPrice IsNot Nothing Then
lnkProductPrice.Text = localP.GetSitePriceForDisplay(localWishList.GetProductPriceAdjustment())
lnkProduct.NavigateUrl = imgProduct.NavigateUrl
End If
If lnkModifiers IsNot Nothing Then
lnkModifiers.Text = sb.ToString
lnkModifiers.NavigateUrl = imgProduct.NavigateUrl
End If

End If
End If