sub btnSave_Click(sender As Object, e As EventArgs)

    Dim strAssetType As string = lstAssetType.SelectedIndex
    Dim TrackStatus As string = rbtnAssetType.SelectedIndex
    Dim Quantity As string = txtQuantity.Text
    Dim Name As string = txtName.Text
    Dim Description As string = txtDesc.Text
    Dim Status As string = selectStatus.SelectedIndex

   If lstAssetType.SelectedIndex  = 0 and rbtnAssetType.SelectedIndex = 0 and txtQuantity.Text = "" _
    and txtName.Text = "" and txtDesc.Text = "" and selectStatus.SelectedIndex = 0 Then

    lblMessage.Text = "Please Complete the form."

   Else if lstAssetType.SelectedIndex  <> "0" and rbtnAssetType.SelectedIndex <> "0" and txtQuantity.Text <> "" _
    and txtName.Text <> "" and txtDesc.Text <> "" and selectStatus.SelectedIndex <> "0" Then

    InsertNewItems(strAssetType,trackStatus, name,description, status)
    lblMessage.Text = "You have submitted your form successfully"
    Clear()

   End if

End Sub