ASP.NET

Member 8217517 wrote:

   Is there a way to display the error message once the foucs has moved from the checkboxlist control to the next item on the web page? If so, can you explain how this would occur and point me to a reference that would explain this process?

oujeboland wrote:

File.Copy(source, pathToNewPost);

Dim DataLocation As String = Nothing
        DataLocation = Context.Server.MapPath("~/App_Data/CompanyInfo/ShippingLocations.xml")

        'XML Data routines go here
        Dim request_serializer As New XmlSerializer(GetType(Shipping_Origin_Data))
        AddHandler request_serializer.UnknownNode, AddressOf serializer_UnknownNode
        AddHandler request_serializer.UnknownAttribute, AddressOf serializer_UnknownAttribute

        Dim Reader As XmlTextReader = Nothing
        Dim XmlRequest As New Shipping_Origin_Data

        Try
            Reader = New XmlTextReader(DataLocation)
            XmlRequest = CType(request_serializer.Deserialize(Reader), Shipping_Origin_Data)
            Reader.Close()
            Reader = Nothing

        Catch ex As Exception
            FirstRecordFlag = True
        End Try

'Now Lets Write out the file as a MemoryStream
               Dim serializer As XmlSerializer
               serializer = New XmlSerializer(GetType(Shipping_Origin_Data))

               Dim XmlResponse As New Shipping_Origin_Data
               XmlResponse.Version = "1.4.2"
               XmlResponse.CreationDate = DateTime.Now.ToString("yyyy-MM-dd")
               XmlResponse.Geographic_Record = MyLocation

               'Now we have to write out a file for certification
               Dim response_serializer As XmlSerializer = Nothing
               response_serializer = New XmlSerializer(GetType(Shipping_Origin_Data))

               Dim response_writer As StreamWriter = Nothing
               response_writer = New StreamWriter(DataLocation)
               response_serializer.Serialize(response_writer, XmlResponse)

               response_writer.Close()
               response_writer = Nothing

               request_serializer = Nothing
               serializer = Nothing

Protected Sub serializer_UnknownNode(ByVal sender As Object, ByVal e As XmlNodeEventArgs)

        Dim Context As HttpContext = HttpContext.Current
        'Context.Response.Write("Unknown Node:" & e.Name & ControlChars.Tab & e.Text)

    End Sub
    Protected Sub serializer_UnknownAttribute(ByVal sender As Object, ByVal e As XmlAttributeEventArgs)

        Dim Context As HttpContext = HttpContext.Current
        Dim attr As System.Xml.XmlAttribute = e.Attr
        'Context.Response.Write("Unknown attribute " & attr.Name & "='" & attr.Value & "'")

    End Sub

public static class CheckBoxListExtension
{
   public static bool IsChecked(this CheckBoxList cbl)
   {
      ListItemCollection selectedItems = cbl.Items.Where(li => li.Selected);
      return (selectedItems.Length > 0);
   }
}

if (myCheckBoxList.IsChecked())
{
   // ...
}