I realized that Category.ascx.vb file needs to be modified first. I believe the following part :
.
.
Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
Dim p As Catalog.Product = CType(e.Item.DataItem, Catalog.Product)
If p IsNot Nothing Then
Dim destinationLink As String = Utilities.UrlRewriter.BuildUrlForProduct(p, Me.Page.Request)
Dim imageUrl As String
imageUrl = Page.ResolveUrl(Utilities.ImageHelper.GetValidImage(p.ImageFileSmall, True))
DirectCast(e.Item.FindControl("ImageAnchor"), HtmlAnchor).HRef = destinationLink
Dim ProductImage As HtmlImage = DirectCast(e.Item.FindControl("ProductImage"), HtmlImage)
ProductImage.Src = imageUrl
ProductImage.Alt = p.ProductName & " " & p.Sku
' Force Image Size
ViewUtilities.ForceImageSize(ProductImage, p.ImageFileSmall, ViewUtilities.Sizes.Small, Me.Page)
Dim NameAnchor As HtmlAnchor = DirectCast(e.Item.FindControl("NameAnchor"), HtmlAnchor)
NameAnchor.HRef = destinationLink
NameAnchor.InnerHtml = p.ProductName
Dim SkuAnchor As HtmlAnchor = DirectCast(e.Item.FindControl("SkuAnchor"), HtmlAnchor)
SkuAnchor.HRef = destinationLink
SkuAnchor.InnerText = p.Sku
Dim PriceAnchor As HtmlAnchor = DirectCast(e.Item.FindControl("PriceAnchor"), HtmlAnchor)
PriceAnchor.HRef = destinationLink
PriceAnchor.InnerText = p.GetSitePriceForDisplay(0D)
Else
Dim NameAnchor As HtmlAnchor = DirectCast(e.Item.FindControl("NameAnchor"), HtmlAnchor)
NameAnchor.InnerHtml = "Product Could Not Be Located."
End If
End If
End Sub
.
.
.
How do I modify this to make the link come up as follows?
<a href="/link.com/example.aspx">
<img src="/images/Product/example.jpg" alt="name" border="0" width="180">
<br />
Product Name
</a>