Our web server has 1 gig of memory and the perf logs don't usually show the
memory going about 600 MB. It's usually at around 400-500 MB.
Here's the code where we're searching the cache:

Public Function GetStoreTillsByName_FromCache(ByVal piStoreId As Integer,
ByVal psTillTypeDescription As String) As ncsStoreTills
       Dim lsMethodName As String = "GetStoreTillsByName_FromCache"
       Try
           Dim loTransMgr As ncsTransactionManager = New
ncsTransactionManager
           'Get the Tills from Cache
           Dim ldtTills As DataTable =
loTransMgr.GetTillTranTypes_FromCache
           Dim ldrStoreTills() As DataRow
           Dim ldrRow As DataRow
           Dim lsFilter, lsSort As String
           Dim loTill As ncsStoreTill
           Dim loTillsCollection As ncsStoreTills = New ncsStoreTills
           Dim liHoldTillId As Integer = 0

           If Not ldtTills Is Nothing Then

               'Set filter expression to select by StoreId and Description
               lsFilter = "iStoreId = " & piStoreId.ToString & " AND
TillType LIKE '%" & Replace(psTillTypeDescription, "'", "''") & "%'"
               'Set sort expression to TillNbr
               lsSort = "tiTillNum"
               'Invoke the Select method on the Tills DataTable we got from
Cache
               '   to get a collection of DataRows meeting the filter
criteria
               ldrStoreTills = ldtTills.Select(lsFilter, lsSort)

               'Loop through the DataRows
               If Not ldrStoreTills Is Nothing Then 'pjo 02/21/05

                   For Each ldrRow In ldrStoreTills
                       'Note:Due to how the Cache is setup, we'll likely
have multiple records with the same till
                       '   in our DataRows collection.
                       'We'll test for duplicate TillIDs and skip those.
                       If Not ldrRow Is Nothing Then 'pjo 02/21/05

                           If ldrRow("iStoreTillId") <> liHoldTillId Then
                               'We have a new TillId
                               'create a new instance of a store till
                               loTill = New ncsStoreTill
                               'set the properties from the current DataRow
                               With loTill
                                   .TillDescription = ldrRow("TillType")
                                   .TillId = ldrRow("iStoreTillId")
                                   .TillNumber = ldrRow("tiTillNum")
                                   .TillTypeId = ldrRow("iTillTypeId")
                               End With
                               'Add the till to the store tills collection
                               loTillsCollection.Add(loTill)
                               'Save the TillId we just added to our
collection
                               liHoldTillId = ldrRow("iStoreTillId")
                           End If
                       End If

                   Next
               End If

           End If

           ldtTills = Nothing 'pjo 02/21/05
           ldrRow = Nothing 'pjo 02/21/05
           'Return the StoreTills Collection
           Return loTillsCollection

       Catch ex As Exception
           Dim loExpMgr As ExceptionMgr = New ExceptionMgr
           loExpMgr.Publish(ex, Err.Number, Err.Description, gmodName,
lsMethodName)
       End Try

   End Function

Thank you,
Keith