ASP.NET

<br />
'Class Definition<br />
<br />
<Serializable()> _<br />
Public Class SitePhotos<br />
    Private _Outdoordesc As String<br />
    Public Property Outdoordesc() As String<br />
        Get<br />
            Return _Outdoordesc<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _Outdoordesc = value<br />
        End Set<br />
    End Property<br />
<br />
    Private _ShelterEntrance As String<br />
    Public Property ShelterEntrance() As String<br />
        Get<br />
            Return _ShelterEntrance<br />
        End Get<br />
        Set(ByVal value As String)<br />
            _ShelterEntrance = value<br />
        End Set<br />
    End Property<br />
    <br />
'Arraylist to store photo descriptions<br />
<br />
    Public _PhotoList As New System.Collections.ArrayList<br />
<br />
    Public Sub AddPhoto(ByVal photoObj As Photos)<br />
        _PhotoList.Add(photoObj)<br />
    End Sub<br />
<br />
    Public Sub RemovePhoto(ByVal range As String)<br />
        Dim _pht As Photos<br />
        'Dim i As Integer<br />
<br />
<br />
        For Each _pht In _PhotoList<br />
<br />
            If _pht.posRange = range Then<br />
                _PhotoList.RemoveAt(_PhotoList.IndexOf(_pht))<br />
            End If<br />
<br />
        Next<br />
<br />
    End Sub<br />
<br />
   <br />
    Public ReadOnly Property PhotoList() As ArrayList<br />
        Get<br />
            Return _PhotoList<br />
        End Get<br />
    End Property<br />
<br />
End Class<br />
<br />
'Structure of each photo description<br />
Public Structure Photos<br />
    Public Pos As Integer<br />
    Public Desc As String<br />
    Public posRange As String<br />
End Structure<br />
<br />
<br />
<br />
'Code for serialization<br />
<br />
        Dim extraTypes(0) As Type<br />
<br />
        extraTypes(0) = GetType(SitePhotos)<br />
<br />
        Dim xSerializer As XmlSerializer = New<br />
XmlSerializer(GetType(GeneralSiteInfo.SitePhotos), extraTypes)<br />
       <br />
        Dim xWriter As StringWriter = New StringWriter()<br />
      <br />
        ' Since the serialization can exception, we'll encase it in a try/catch<br />
        ' mechanism, so we can report the error properly<br />
<br />
        Try<br />
            xSerializer.Serialize(xWriter, objPhotos)<br />
<br />
  'xmlSitePhotos is a hidden control to which i can store value. <br />
<br />
            _xmlSitePhotos.Value = xWriter.ToString()<br />
<br />
        Catch ex As Exception<br />
<br />
            MsgBox(ex.ToString())<br />
            'MsgBox("Could not serialize Site Photos", MsgBoxStyle.Critical, "Error<br />
Saving Site Photos")<br />
<br />
        End Try<br />
<br />
        xWriter.Close()<br />
<br />