Here is the method. This is strictly boiler plate from the Starter Kit. I didn't write a line of this....
I will try the caching and see if that works.
Thanks,
Keith
Protected Sub lstContent_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles lstContent.ItemDataBound
Dim strContent As String = strTemplate
Dim strValue As String
' add content to template
Dim objProperties As ArrayList = Common.Utilities.CBO.GetPropertyInfo(GetType(JATFirstInfo))
Dim intProperty As Integer
Dim objPropertyInfo As PropertyInfo
For intProperty = 0 To objProperties.Count - 1
objPropertyInfo = CType(objProperties(intProperty), PropertyInfo)
If strContent.IndexOf("[" & objPropertyInfo.Name.ToUpper & "]") <> -1 Then
strValue = Server.HtmlDecode(DataBinder.Eval(e.Item.DataItem, objPropertyInfo.Name).ToString())
strContent = strContent.Replace("[" & objPropertyInfo.Name.ToUpper & "]", strValue)
End If
Next intProperty
' assign the content
Dim lblContent As Label = CType(e.Item.FindControl("lblContent"), Label)
lblContent.Text = strContent
End Sub