Imports SpectrumWiki.BusinessComponent Imports System Imports System.Collections Imports System.Collections.Generic Imports System.Reflection Imports System.IO Partial Public Class _New Inherits BasePage Dim wiki_text_id As Integer = 0 Dim temp_wiki_text_id As Integer = 0 Dim mainHeading As String Dim descrp As String Dim temp_text_id As Integer = 0 Dim arrayList As New ArrayList() Dim countArray As Integer Dim fileName As String #Region "Private Member Variables" Private _imgPath As String = "~/wiki/Graphics/" Private _thumbNailPath As String = "~/wiki/GraphicsThumbnail/" Private _thumbNailHeight As Integer = Convert.ToInt32(ConfigurationManager.AppSettings("ThumbnailHeight")) Private _thumbNailWidth As Integer = Convert.ToInt32(ConfigurationManager.AppSettings("ThumbnailWidth")) Private _validPhotoFormats As String() = New String(9) {} Private _photoformat As String = ConfigurationSettings.AppSettings("validPhotoFormats") Private _seperator As Char() = {","c} Private _seperatorSlash As Char() = {"/"c} Private _split As Char() = {"."c} Private _imagename As String() = New String(5) {} Private _isflag As Boolean Private _dbPath As String Private _validFileFormat As String() = New String() {} Private _fileFormat As String = ConfigurationSettings.AppSettings("FileFormat") Dim nbCount As Integer = 0 #End Region Protected Sub Page_Init(ByVal Sender As Object, ByVal e As EventArgs) Handles Me.Init 'End If End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load mainHeading = txtMainHeading.Text descrp = txtDescription.Text 'Dim c As Control = GetPostBackControl(Page) 'If Not IsNothing(c) Then ' 'If the add button was clicked, increase the count to let the page know we want ' 'to display an additional user control ' If c.ID.ToString = "btnAdd" Then ' ViewState("nb") = ViewState("nb") + 1 ' End If 'End If 'If ViewState("nb") = Nothing Then Dim nb As Integer = CInt(Request.QueryString("nb")) ''For i As Integer = 1 To nb '' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") '' ctrl.FrequencyRangeNumber = i '' pnlBandEntries.Controls.Add(ctrl) '' AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand ''Next 'Else 'pnlBandEntries.Controls.Clear() 'For i As Integer = 1 To CInt(ViewState("nb")) ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.FrequencyRangeNumber = i ' pnlBandEntries.Controls.Add(ctrl) ' AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand 'Next 'End If Dim nbp As Integer = CInt(Request.QueryString("nbp")) For i As Integer = 1 To nbp Dim ctrlPairedFrequency As PairedFrequencyBand = LoadControl("~/controls/PairedFrequencyBand.ascx") ctrlPairedFrequency.PairedFrequencyNumber = i pnlBandEntries.Controls.Add(ctrlPairedFrequency) Next Dim nf As Integer = CInt(Request.QueryString("nf")) For i As Integer = 1 To nf Dim ctrlFrequency As SpecificFrequency = LoadControl("~/controls/SpecificFrequency.ascx") ctrlFrequency.FrequencyNumber = i pnlBandEntries.Controls.Add(ctrlFrequency) Next Dim nfp As Integer = CInt(Request.QueryString("nfp")) For i As Integer = 1 To nfp Dim ctrlPairFrequency As PairedFrequency = LoadControl("~/controls/PairedFrequency.ascx") ctrlPairFrequency.PairedNumber = i pnlBandEntries.Controls.Add(ctrlPairFrequency) Next Dim nc As Integer = CInt(Request.QueryString("nc")) For i As Integer = 1 To nc Dim ctrlChannel As ChannelizedSpecificFrequency = LoadControl("~/controls/ChannelizedSpecificFrequency.ascx") ctrlChannel.ChannelizedFrequencyNumber = i pnlBandEntries.Controls.Add(ctrlChannel) Next Dim ncp As Integer = CInt(Request.QueryString("ncp")) For i As Integer = 1 To ncp Dim ctrlChannelPairFrequency As ChannelizedPairedFrequency = LoadControl("~/controls/ChannelizedPairedFrequency.ascx") ctrlChannelPairFrequency.ChannelPairNumber = i pnlBandEntries.Controls.Add(ctrlChannelPairFrequency) Next Dim nbc As Integer = CInt(Request.QueryString("nbc")) For i As Integer = 1 To nbc Dim ctrlChannelBand As ChannelizedFrequencyBand = LoadControl("~/controls/ChannelizedFrequencyBand.ascx") ctrlChannelBand.ChannelizedBandNumber = i pnlBandEntries.Controls.Add(ctrlChannelBand) Next Dim nbcp As Integer = CInt(Request.QueryString("nbcp")) For i As Integer = 1 To nbcp Dim ctrlPairedChannelFrequency As ChannelizedPairedFrequencyBand = LoadControl("~/controls/ChannelizedPairedFrequencyBand.ascx") ctrlPairedChannelFrequency.PairedChannelNumber = i pnlBandEntries.Controls.Add(ctrlPairedChannelFrequency) Next 'Restore the value on Corresponding Place On Click the AddEditPicture BACK Button ' wiki_text_id = Convert.ToInt32(Request.QueryString("WikiId")) 'If Not String.IsNullOrEmpty(Request.QueryString("Mode")) AndAlso Request.QueryString("Mode") = "Edit" Then If Not String.IsNullOrEmpty(Session("id")) Then wiki_text_id = Session("id") End If 'If Not String.IsNullOrEmpty(Session("TempWikiID")) Then ' temp_wiki_text_id = Session("TempWikiID") ' 'Convert.ToInt32(Request.QueryString("TempWikiId")) 'End If If Not String.IsNullOrEmpty(Request.QueryString("Id")) Then temp_wiki_text_id = Convert.ToInt32(Request.QueryString("Id")) 'Convert.ToInt32(Request.QueryString("TempWikiId")) End If 'End If 'If (wiki_text_id > 0) Then ' Dim dt As DataTable = WikiTextBLL.GetWikiText(wiki_text_id) ' txtMainHeading.Text = dt.Rows(0)("head") ' txtDescription.Text = dt.Rows(0)("description") ' Dim ib As Integer = 1 ' Dim ibp As Integer = 1 ' Dim if1 As Integer = 1 ' Dim ifp As Integer = 1 ' Dim ic As Integer = 1 ' Dim icp As Integer = 1 ' Dim ibc As Integer = 1 ' Dim ibcp As Integer = 1 ' Dim frequency As List(Of WikiFrequency) = WikiFrequencyBLL.GetAllFrequencies(wiki_text_id) ' Dim count As Integer = frequency.Count ' For i As Integer = 0 To count - 1 ' Select Case frequency(i).FrequencyType.ToString() ' Case "b" ' 'Done ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrl.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrl.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrl.BriefDescription = frequency(i).Description1.ToString() ' ctrl.RadioService1 = frequency(i).Service1.ToString() ' ctrl.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrl.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' Dim bfrequencyType As String = frequency(i).FrequencyType ' If bfrequencyType = "b" Then ' ctrl.FrequencyRangeNumber = ib ' ib = ib + 1 ' End If ' AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand ' pnlBandEntries.Controls.Add(ctrl) ' Case "bp" ' 'Done ' Dim ctrlPairedFrequency As PairedFrequencyBand = LoadControl("~/controls/PairedFrequencyBand.ascx") ' ctrlPairedFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bpfrequencyType As String = frequency(i).FrequencyType ' If bpfrequencyType = "bp" Then ' ctrlPairedFrequency.PairedFrequencyNumber = ibp ' ibp = ibp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedFrequency) ' Case "f" ' 'Done ' Dim ctrlFrequency As SpecificFrequency = LoadControl("~/controls/SpecificFrequency.ascx") ' ctrlFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlFrequency.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim f1frequencyType As String = frequency(i).FrequencyType ' If f1frequencyType = "f" Then ' ctrlFrequency.FrequencyNumber = if1 ' if1 = if1 + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlFrequency) ' Case "fp" ' 'Done ' Dim ctrlPairFrequency As PairedFrequency = LoadControl("~/controls/PairedFrequency.ascx") ' ctrlPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairFrequency.BriefDescription1 = frequency(i).Description1.ToString() ' ctrlPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim fpfrequencyType As String = frequency(i).FrequencyType ' If fpfrequencyType = "fp" Then ' ctrlPairFrequency.PairedNumber = ifp ' ifp = ifp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairFrequency) ' Case "c" ' 'Done ' Dim ctrlChannel As ChannelizedSpecificFrequency = LoadControl("~/controls/ChannelizedSpecificFrequency.ascx") ' ctrlChannel.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannel.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannel.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannel.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannel.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim cfrequencyType As String = frequency(i).FrequencyType ' If cfrequencyType = "c" Then ' ctrlChannel.ChannelizedFrequencyNumber = ic ' ic = ic + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannel) ' Case "cp" ' 'Done ' Dim ctrlChannelPairFrequency As ChannelizedPairedFrequency = LoadControl("~/controls/ChannelizedPairedFrequency.ascx") ' ctrlChannelPairFrequency.ChannelFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.ChannelBriefDescription = frequency(i).Description1.ToString() ' ctrlChannelPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlChannelPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlChannelPairFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelPairFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlChannelPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlChannelPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim cpfrequencyType As String = frequency(i).FrequencyType ' If cpfrequencyType = "cp" Then ' ctrlChannelPairFrequency.ChannelPairNumber = icp ' icp = icp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelPairFrequency) ' Case "bc" ' 'Done ' Dim ctrlChannelBand As ChannelizedFrequencyBand = LoadControl("~/controls/ChannelizedFrequencyBand.ascx") ' ctrlChannelBand.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelBand.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlChannelBand.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannelBand.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelBand.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelBand.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim bcfrequencyType As String = frequency(i).FrequencyType ' If bcfrequencyType = "bc" Then ' ctrlChannelBand.ChannelizedBandNumber = ibc ' ibc = ibc + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelBand) ' Case "bcp" ' 'Done ' Dim ctrlPairedChannelFrequency As ChannelizedPairedFrequencyBand = LoadControl("~/controls/ChannelizedPairedFrequencyBand.ascx") ' ctrlPairedChannelFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedChannelFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedChannelFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedChannelFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedChannelFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlPairedChannelFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlPairedChannelFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedChannelFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedChannelFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedChannelFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedChannelFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bcpfrequencyType As String = frequency(i).FrequencyType ' If bcpfrequencyType = "bcp" Then ' ctrlPairedChannelFrequency.PairedChannelNumber = ibcp ' ibcp = ibcp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedChannelFrequency) ' End Select ' Next 'ElseIf (temp_wiki_text_id > 0) Then ' Dim dt As DataTable = WikiTextBLL.TempGetWikiText(temp_wiki_text_id) ' If dt.Rows.Count > 0 Then ' txtMainHeading.Text = dt.Rows(0)("head") ' txtDescription.Text = dt.Rows(0)("description") ' End If ' Dim ib As Integer = 1 ' Dim ibp As Integer = 1 ' Dim if1 As Integer = 1 ' Dim ifp As Integer = 1 ' Dim ic As Integer = 1 ' Dim icp As Integer = 1 ' Dim ibc As Integer = 1 ' Dim ibcp As Integer = 1 ' Dim frequency As List(Of WikiFrequency) = WikiFrequencyBLL.TempGetAllFrequencies(temp_wiki_text_id) ' Dim count As Integer = frequency.Count ' For i As Integer = 0 To count - 1 ' Select Case frequency(i).FrequencyType.ToString() ' Case "b" ' 'Done ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrl.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrl.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrl.BriefDescription = frequency(i).Description1.ToString() ' ctrl.RadioService1 = frequency(i).Service1.ToString() ' ctrl.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrl.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrl.wikiFrequencyId = frequency(i).WikiFrequencyId ' Dim bfrequencyType As String = frequency(i).FrequencyType ' If bfrequencyType = "b" Then ' ctrl.FrequencyRangeNumber = ib ' ib = ib + 1 ' End If ' AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand ' pnlBandEntries.Controls.Add(ctrl) ' Case "bp" ' 'Done ' Dim ctrlPairedFrequency As PairedFrequencyBand = LoadControl("~/controls/PairedFrequencyBand.ascx") ' ctrlPairedFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bpfrequencyType As String = frequency(i).FrequencyType ' If bpfrequencyType = "bp" Then ' ctrlPairedFrequency.PairedFrequencyNumber = ibp ' ibp = ibp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedFrequency) ' Case "f" ' 'Done ' Dim ctrlFrequency As SpecificFrequency = LoadControl("~/controls/SpecificFrequency.ascx") ' ctrlFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlFrequency.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim f1frequencyType As String = frequency(i).FrequencyType ' If f1frequencyType = "f" Then ' ctrlFrequency.FrequencyNumber = if1 ' if1 = if1 + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlFrequency) ' Case "fp" ' 'Done ' Dim ctrlPairFrequency As PairedFrequency = LoadControl("~/controls/PairedFrequency.ascx") ' ctrlPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairFrequency.BriefDescription1 = frequency(i).Description1.ToString() ' ctrlPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim fpfrequencyType As String = frequency(i).FrequencyType ' If fpfrequencyType = "fp" Then ' ctrlPairFrequency.PairedNumber = ifp ' ifp = ifp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairFrequency) ' Case "c" ' 'Done ' Dim ctrlChannel As ChannelizedSpecificFrequency = LoadControl("~/controls/ChannelizedSpecificFrequency.ascx") ' ctrlChannel.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannel.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannel.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannel.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannel.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim cfrequencyType As String = frequency(i).FrequencyType ' If cfrequencyType = "c" Then ' ctrlChannel.ChannelizedFrequencyNumber = ic ' ic = ic + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannel) ' Case "cp" ' 'Done ' Dim ctrlChannelPairFrequency As ChannelizedPairedFrequency = LoadControl("~/controls/ChannelizedPairedFrequency.ascx") ' ctrlChannelPairFrequency.ChannelFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.ChannelBriefDescription = frequency(i).Description1.ToString() ' ctrlChannelPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlChannelPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlChannelPairFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelPairFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlChannelPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlChannelPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim cpfrequencyType As String = frequency(i).FrequencyType ' If cpfrequencyType = "cp" Then ' ctrlChannelPairFrequency.ChannelPairNumber = icp ' icp = icp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelPairFrequency) ' Case "bc" ' 'Done ' Dim ctrlChannelBand As ChannelizedFrequencyBand = LoadControl("~/controls/ChannelizedFrequencyBand.ascx") ' ctrlChannelBand.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelBand.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlChannelBand.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannelBand.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelBand.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelBand.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim bcfrequencyType As String = frequency(i).FrequencyType ' If bcfrequencyType = "bc" Then ' ctrlChannelBand.ChannelizedBandNumber = ibc ' ibc = ibc + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelBand) ' Case "bcp" ' 'Done ' Dim ctrlPairedChannelFrequency As ChannelizedPairedFrequencyBand = LoadControl("~/controls/ChannelizedPairedFrequencyBand.ascx") ' ctrlPairedChannelFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedChannelFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedChannelFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedChannelFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedChannelFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlPairedChannelFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlPairedChannelFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedChannelFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedChannelFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedChannelFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedChannelFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bcpfrequencyType As String = frequency(i).FrequencyType ' If bcpfrequencyType = "bcp" Then ' ctrlPairedChannelFrequency.PairedChannelNumber = ibcp ' ibcp = ibcp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedChannelFrequency) ' End Select ' Next 'End If 'If Not String.IsNullOrEmpty(Session("update_wiki_text_id") > 0) Then 'BindGrid(CInt(Session("update_wiki_text_id"))) 'ViewState("FileCategory") = Nothing 'End If 'If temp_wiki_text_id > 0 Then BindGrid(temp_wiki_text_id) ViewState("FileCategory") = Nothing AddAndRemoveDynamicControls() '_validFileFormat = _fileFormat.Split(_seperator) 'GetPostBackControl(Page) 'mainHeading = txtMainHeading.Text 'descrp = txtDescription.Text 'If ViewState("nb") = Nothing Then ' Dim nb As Integer = CInt(Request.QueryString("nb")) ' For i As Integer = 1 To nb ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.FrequencyRangeNumber = i ' pnlBandEntries.Controls.Add(ctrl) ' AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand ' Next 'Else ' ' pnlBandEntries.Controls.Clear() ' For i As Integer = 1 To CInt(ViewState("nb")) ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.FrequencyRangeNumber = i ' pnlBandEntries.Controls.Add(ctrl) ' AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand ' Next 'End If 'Dim nbp As Integer = CInt(Request.QueryString("nbp")) 'For i As Integer = 1 To nbp ' Dim ctrlPairedFrequency As PairedFrequencyBand = LoadControl("~/controls/PairedFrequencyBand.ascx") ' ctrlPairedFrequency.PairedFrequencyNumber = i ' pnlBandEntries.Controls.Add(ctrlPairedFrequency) 'Next 'Dim nf As Integer = CInt(Request.QueryString("nf")) 'For i As Integer = 1 To nf ' Dim ctrlFrequency As SpecificFrequency = LoadControl("~/controls/SpecificFrequency.ascx") ' ctrlFrequency.FrequencyNumber = i ' pnlBandEntries.Controls.Add(ctrlFrequency) 'Next 'Dim nfp As Integer = CInt(Request.QueryString("nfp")) 'For i As Integer = 1 To nfp ' Dim ctrlPairFrequency As PairedFrequency = LoadControl("~/controls/PairedFrequency.ascx") ' ctrlPairFrequency.PairedNumber = i ' pnlBandEntries.Controls.Add(ctrlPairFrequency) 'Next 'Dim nc As Integer = CInt(Request.QueryString("nc")) 'For i As Integer = 1 To nc ' Dim ctrlChannel As ChannelizedSpecificFrequency = LoadControl("~/controls/ChannelizedSpecificFrequency.ascx") ' ctrlChannel.ChannelizedFrequencyNumber = i ' pnlBandEntries.Controls.Add(ctrlChannel) 'Next 'Dim ncp As Integer = CInt(Request.QueryString("ncp")) 'For i As Integer = 1 To ncp ' Dim ctrlChannelPairFrequency As ChannelizedPairedFrequency = LoadControl("~/controls/ChannelizedPairedFrequency.ascx") ' ctrlChannelPairFrequency.ChannelPairNumber = i ' pnlBandEntries.Controls.Add(ctrlChannelPairFrequency) 'Next 'Dim nbc As Integer = CInt(Request.QueryString("nbc")) 'For i As Integer = 1 To nbc ' Dim ctrlChannelBand As ChannelizedFrequencyBand = LoadControl("~/controls/ChannelizedFrequencyBand.ascx") ' ctrlChannelBand.ChannelizedBandNumber = i ' pnlBandEntries.Controls.Add(ctrlChannelBand) 'Next 'Dim nbcp As Integer = CInt(Request.QueryString("nbcp")) 'For i As Integer = 1 To nbcp ' Dim ctrlPairedChannelFrequency As ChannelizedPairedFrequencyBand = LoadControl("~/controls/ChannelizedPairedFrequencyBand.ascx") ' ctrlPairedChannelFrequency.PairedChannelNumber = i ' pnlBandEntries.Controls.Add(ctrlPairedChannelFrequency) 'Next ''Restore the value on Corresponding Place On Click the AddEditPicture BACK Button '' wiki_text_id = Convert.ToInt32(Request.QueryString("WikiId")) ''If Not String.IsNullOrEmpty(Request.QueryString("Mode")) AndAlso Request.QueryString("Mode") = "Edit" Then 'If Not String.IsNullOrEmpty(Session("id")) Then ' wiki_text_id = Session("id") 'End If ''If Not String.IsNullOrEmpty(Session("TempWikiID")) Then '' temp_wiki_text_id = Session("TempWikiID") '' 'Convert.ToInt32(Request.QueryString("TempWikiId")) ''End If 'If Not String.IsNullOrEmpty(Request.QueryString("Id")) Then ' temp_wiki_text_id = Convert.ToInt32(Request.QueryString("Id")) ' 'Convert.ToInt32(Request.QueryString("TempWikiId")) 'End If ''End If 'If (wiki_text_id > 0) Then ' Dim dt As DataTable = WikiTextBLL.GetWikiText(wiki_text_id) ' txtMainHeading.Text = dt.Rows(0)("head") ' txtDescription.Text = dt.Rows(0)("description") ' Dim ib As Integer = 1 ' Dim ibp As Integer = 1 ' Dim if1 As Integer = 1 ' Dim ifp As Integer = 1 ' Dim ic As Integer = 1 ' Dim icp As Integer = 1 ' Dim ibc As Integer = 1 ' Dim ibcp As Integer = 1 ' Dim frequency As List(Of WikiFrequency) = WikiFrequencyBLL.GetAllFrequencies(wiki_text_id) ' Dim count As Integer = frequency.Count ' For i As Integer = 0 To count - 1 ' Select Case frequency(i).FrequencyType.ToString() ' Case "b" ' 'Done ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrl.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrl.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrl.BriefDescription = frequency(i).Description1.ToString() ' ctrl.RadioService1 = frequency(i).Service1.ToString() ' ctrl.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrl.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' Dim bfrequencyType As String = frequency(i).FrequencyType ' If bfrequencyType = "b" Then ' ctrl.FrequencyRangeNumber = ib ' ib = ib + 1 ' End If ' pnlBandEntries.Controls.Add(ctrl) ' Case "bp" ' 'Done ' Dim ctrlPairedFrequency As PairedFrequencyBand = LoadControl("~/controls/PairedFrequencyBand.ascx") ' ctrlPairedFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bpfrequencyType As String = frequency(i).FrequencyType ' If bpfrequencyType = "bp" Then ' ctrlPairedFrequency.PairedFrequencyNumber = ibp ' ibp = ibp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedFrequency) ' Case "f" ' 'Done ' Dim ctrlFrequency As SpecificFrequency = LoadControl("~/controls/SpecificFrequency.ascx") ' ctrlFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlFrequency.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim f1frequencyType As String = frequency(i).FrequencyType ' If f1frequencyType = "f" Then ' ctrlFrequency.FrequencyNumber = if1 ' if1 = if1 + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlFrequency) ' Case "fp" ' 'Done ' Dim ctrlPairFrequency As PairedFrequency = LoadControl("~/controls/PairedFrequency.ascx") ' ctrlPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairFrequency.BriefDescription1 = frequency(i).Description1.ToString() ' ctrlPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim fpfrequencyType As String = frequency(i).FrequencyType ' If fpfrequencyType = "fp" Then ' ctrlPairFrequency.PairedNumber = ifp ' ifp = ifp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairFrequency) ' Case "c" ' 'Done ' Dim ctrlChannel As ChannelizedSpecificFrequency = LoadControl("~/controls/ChannelizedSpecificFrequency.ascx") ' ctrlChannel.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannel.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannel.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannel.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannel.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim cfrequencyType As String = frequency(i).FrequencyType ' If cfrequencyType = "c" Then ' ctrlChannel.ChannelizedFrequencyNumber = ic ' ic = ic + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannel) ' Case "cp" ' 'Done ' Dim ctrlChannelPairFrequency As ChannelizedPairedFrequency = LoadControl("~/controls/ChannelizedPairedFrequency.ascx") ' ctrlChannelPairFrequency.ChannelFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.ChannelBriefDescription = frequency(i).Description1.ToString() ' ctrlChannelPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlChannelPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlChannelPairFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelPairFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlChannelPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlChannelPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim cpfrequencyType As String = frequency(i).FrequencyType ' If cpfrequencyType = "cp" Then ' ctrlChannelPairFrequency.ChannelPairNumber = icp ' icp = icp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelPairFrequency) ' Case "bc" ' 'Done ' Dim ctrlChannelBand As ChannelizedFrequencyBand = LoadControl("~/controls/ChannelizedFrequencyBand.ascx") ' ctrlChannelBand.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelBand.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlChannelBand.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannelBand.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelBand.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelBand.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim bcfrequencyType As String = frequency(i).FrequencyType ' If bcfrequencyType = "bc" Then ' ctrlChannelBand.ChannelizedBandNumber = ibc ' ibc = ibc + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelBand) ' Case "bcp" ' 'Done ' Dim ctrlPairedChannelFrequency As ChannelizedPairedFrequencyBand = LoadControl("~/controls/ChannelizedPairedFrequencyBand.ascx") ' ctrlPairedChannelFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedChannelFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedChannelFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedChannelFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedChannelFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlPairedChannelFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlPairedChannelFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedChannelFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedChannelFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedChannelFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedChannelFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bcpfrequencyType As String = frequency(i).FrequencyType ' If bcpfrequencyType = "bcp" Then ' ctrlPairedChannelFrequency.PairedChannelNumber = ibcp ' ibcp = ibcp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedChannelFrequency) ' End Select ' Next 'ElseIf (temp_wiki_text_id > 0) Then ' Dim dt As DataTable = WikiTextBLL.TempGetWikiText(temp_wiki_text_id) ' If dt.Rows.Count > 0 Then ' txtMainHeading.Text = dt.Rows(0)("head") ' txtDescription.Text = dt.Rows(0)("description") ' End If ' Dim ib As Integer = 1 ' Dim ibp As Integer = 1 ' Dim if1 As Integer = 1 ' Dim ifp As Integer = 1 ' Dim ic As Integer = 1 ' Dim icp As Integer = 1 ' Dim ibc As Integer = 1 ' Dim ibcp As Integer = 1 ' Dim frequency As List(Of WikiFrequency) = WikiFrequencyBLL.TempGetAllFrequencies(temp_wiki_text_id) ' Dim count As Integer = frequency.Count ' For i As Integer = 0 To count - 1 ' Select Case frequency(i).FrequencyType.ToString() ' Case "b" ' 'Done ' Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' ctrl.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrl.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrl.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrl.BriefDescription = frequency(i).Description1.ToString() ' ctrl.RadioService1 = frequency(i).Service1.ToString() ' ctrl.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrl.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' Dim bfrequencyType As String = frequency(i).FrequencyType ' If bfrequencyType = "b" Then ' ctrl.FrequencyRangeNumber = ib ' ib = ib + 1 ' End If ' pnlBandEntries.Controls.Add(ctrl) ' Case "bp" ' 'Done ' Dim ctrlPairedFrequency As PairedFrequencyBand = LoadControl("~/controls/PairedFrequencyBand.ascx") ' ctrlPairedFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bpfrequencyType As String = frequency(i).FrequencyType ' If bpfrequencyType = "bp" Then ' ctrlPairedFrequency.PairedFrequencyNumber = ibp ' ibp = ibp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedFrequency) ' Case "f" ' 'Done ' Dim ctrlFrequency As SpecificFrequency = LoadControl("~/controls/SpecificFrequency.ascx") ' ctrlFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlFrequency.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim f1frequencyType As String = frequency(i).FrequencyType ' If f1frequencyType = "f" Then ' ctrlFrequency.FrequencyNumber = if1 ' if1 = if1 + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlFrequency) ' Case "fp" ' 'Done ' Dim ctrlPairFrequency As PairedFrequency = LoadControl("~/controls/PairedFrequency.ascx") ' ctrlPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairFrequency.BriefDescription1 = frequency(i).Description1.ToString() ' ctrlPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairFrequency.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim fpfrequencyType As String = frequency(i).FrequencyType ' If fpfrequencyType = "fp" Then ' ctrlPairFrequency.PairedNumber = ifp ' ifp = ifp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairFrequency) ' Case "c" ' 'Done ' Dim ctrlChannel As ChannelizedSpecificFrequency = LoadControl("~/controls/ChannelizedSpecificFrequency.ascx") ' ctrlChannel.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannel.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannel.Frequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannel.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannel.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannel.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim cfrequencyType As String = frequency(i).FrequencyType ' If cfrequencyType = "c" Then ' ctrlChannel.ChannelizedFrequencyNumber = ic ' ic = ic + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannel) ' Case "cp" ' 'Done ' Dim ctrlChannelPairFrequency As ChannelizedPairedFrequency = LoadControl("~/controls/ChannelizedPairedFrequency.ascx") ' ctrlChannelPairFrequency.ChannelFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.PairedWithFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.ChannelBriefDescription = frequency(i).Description1.ToString() ' ctrlChannelPairFrequency.PairedWithBriefDescription = frequency(i).Description2.ToString() ' ctrlChannelPairFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelPairFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlChannelPairFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelPairFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlChannelPairFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelPairFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelPairFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlChannelPairFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlChannelPairFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim cpfrequencyType As String = frequency(i).FrequencyType ' If cpfrequencyType = "cp" Then ' ctrlChannelPairFrequency.ChannelPairNumber = icp ' icp = icp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelPairFrequency) ' Case "bc" ' 'Done ' Dim ctrlChannelBand As ChannelizedFrequencyBand = LoadControl("~/controls/ChannelizedFrequencyBand.ascx") ' ctrlChannelBand.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlChannelBand.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlChannelBand.BriefDescription = frequency(i).Description1.ToString() ' ctrlChannelBand.ChannelName = frequency(i).Channel1.ToString() ' ctrlChannelBand.RadioService1 = frequency(i).Service1.ToString() ' ctrlChannelBand.RadioFrequency = CDbl(frequency(i).Frequency1Low) ' ctrlChannelBand.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' Dim bcfrequencyType As String = frequency(i).FrequencyType ' If bcfrequencyType = "bc" Then ' ctrlChannelBand.ChannelizedBandNumber = ibc ' ibc = ibc + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlChannelBand) ' Case "bcp" ' 'Done ' Dim ctrlPairedChannelFrequency As ChannelizedPairedFrequencyBand = LoadControl("~/controls/ChannelizedPairedFrequencyBand.ascx") ' ctrlPairedChannelFrequency.FromFrequencyRange1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.ToFrequencyRange1 = CDbl(frequency(i).Frequency1High) ' ctrlPairedChannelFrequency.FromPairedFrequency = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.ToPairedFrequency = CDbl(frequency(i).Frequency2High) ' ctrlPairedChannelFrequency.BriefDescription = frequency(i).Description1.ToString() ' ctrlPairedChannelFrequency.PairedBriefDescription = frequency(i).Description2.ToString() ' ctrlPairedChannelFrequency.ChannelName = frequency(i).Channel1.ToString() ' ctrlPairedChannelFrequency.PairedWithChannelName = frequency(i).Channel2.ToString() ' ctrlPairedChannelFrequency.AllocationTable = frequency(i).AllocationTable.ToString() ' ctrlPairedChannelFrequency.RadioService1 = frequency(i).Service1.ToString() ' ctrlPairedChannelFrequency.RadioService2 = frequency(i).Service2.ToString() ' ctrlPairedChannelFrequency.RadioFrequency1 = CDbl(frequency(i).Frequency1Low) ' ctrlPairedChannelFrequency.RadioFrequency2 = CDbl(frequency(i).Frequency2Low) ' ctrlPairedChannelFrequency.RadioQualifier1 = frequency(i).Qualifier1.ToString() ' ctrlPairedChannelFrequency.RadioQualifier2 = frequency(i).Qualifier2.ToString() ' Dim bcpfrequencyType As String = frequency(i).FrequencyType ' If bcpfrequencyType = "bcp" Then ' ctrlPairedChannelFrequency.PairedChannelNumber = ibcp ' ibcp = ibcp + 1 ' End If ' pnlBandEntries.Controls.Add(ctrlPairedChannelFrequency) ' End Select ' Next 'End If ''If Not String.IsNullOrEmpty(Session("update_wiki_text_id") > 0) Then ''BindGrid(CInt(Session("update_wiki_text_id"))) ''ViewState("FileCategory") = Nothing ''End If ''If temp_wiki_text_id > 0 Then 'BindGrid(temp_wiki_text_id) 'ViewState("FileCategory") = Nothing ''End If End Sub Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSubmit.Click ltlValues.Text = "" For Each c As Control In pnlBandEntries.Controls 'Find the specific user control that we added to this placeholder, and then get the selected values 'for the dropdownlist, checkbox, and textbox and print them to the screen. If c.GetType.Name.ToLower = "controls_frequencyband_ascx" Then Dim uc As UserControl = CType(c, UserControl) Dim tbx1 As TextBox = uc.FindControl("txtFromFrequency") Dim sb As New System.Text.StringBuilder sb.Append("Textbox value: " & tbx1.Text & "
") 'sb.Append("Dropdown value: " & ddl1.SelectedValue & "
") 'sb.AppendLine("Checkbox values: ") 'For Each li As ListItem In cbx1.Items ' If li.Selected = True Then ' sb.Append(li.Value & "
") ' End If 'Next 'sb.Append("
") ltlValues.Text &= sb.ToString End If Next Dim id As Integer 'Dim heading As String = txtMainHeading.Text 'txtMainHeading.Text = mainHeading 'txtDescription.Text = descrp 'Dim wikiText As WikiText = New WikiText() 'wikiText.Head = heading 'wikiText.Description = description 'Dim dt As DataTable = WikiTextBLL.GetWikiText(wiki_text_id) 'If (temp_wiki_text_id = 0) Then 'If (Request.QueryString.Count > 0) Then 'If wiki_text_id = 0 Then 'commented on aug 1,2011 'Try ' WikiTextBLL.TempDeleteWikiText(temp_wiki_text_id) ' WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) 'Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If 'End Try Dim heading As String = mainHeading Dim description As String = descrp Dim wikiText As WikiText = New WikiText() wikiText.Head = heading wikiText.Description = description If (temp_wiki_text_id = 0) Then Try id = WikiTextBLL.TempInsertWikiText(wikiText) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try Else wikiText.WikiTextId = temp_wiki_text_id Try WikiTextBLL.TempUpdateWikiText(wikiText) 'WikiTextBLL.TempDeleteWikiText(temp_wiki_text_id) WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) 'WikiTextBLL.TempInsertWikiText(wikiText) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'End If 'Else 'wikiText.WikiTextId = temp_wiki_text_id 'Try ' WikiTextBLL.TempUpdateWikiText(wikiText) ' 'WikiTextBLL.TempDeleteWikiText(temp_wiki_text_id) ' WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) ' 'WikiTextBLL.TempInsertWikiText(wikiText) 'Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If 'End Try 'End If 'txtMainHeading.Text = String.Empty 'txtDescription.Text = String.Empty For Each c As Control In pnlBandEntries.Controls 'frequency band nb If (TryCast(c, FrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim table As String Dim fb As FrequencyBand = TryCast(c, FrequencyBand) Dim txtBriefDescription As String = fb.BriefDescription Dim allocationTable As String = fb.AllocationTable Dim frequencyUnit As String = fb.RadioFrequency Dim radioService As String = fb.RadioService1 Dim radioQualifier As String = fb.RadioQualifier1 'createradioqualifier If (fb.FromFrequencyRange1 <> "0.0") Then If (frequencyUnit = "kHz") Then fromFrequency = CLng(fb.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(fb.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(fb.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(fb.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "b" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If End If 'inserting values of paired frequency band nbp If (TryCast(c, PairedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim fromPairedFrequency As Long Dim toPairedFrequency As Long Dim table As String Dim bp As PairedFrequencyBand = TryCast(c, PairedFrequencyBand) Dim txtBriefDescription As String = bp.BriefDescription Dim radioCommunicationService As String = bp.RadioService1 Dim radioQualifier1 As String = bp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bp.AllocationTable Dim frequencyUnit As String = bp.RadioFrequency1 Dim pairedToFrequency As Integer = bp.ToPairedFrequency Dim pairedBreifDescription As String = bp.PairedBriefDescription Dim radioCommunicationService2 As String = bp.RadioService2 Dim radioQualifier2 As String = bp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = bp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(bp.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bp.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bp.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bp.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000) Else fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000000) End If If (frequencyUnit2 = "kHz") Then toPairedFrequency = CLng(bp.ToPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000) Else toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.Frequency2Low = fromPairedFrequency wikiFrequency.Frequency2High = toPairedFrequency wikiFrequency.Description2 = pairedBreifDescription wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in specific frequency nf If (TryCast(c, SpecificFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim table As String Dim f As SpecificFrequency = TryCast(c, SpecificFrequency) Dim txtBriefDescription As String = f.BriefDescription Dim radioCommunicationService As String = f.RadioService1 Dim radioQualifier As String = f.RadioQualifier1 'createradioqualifier Dim allocationTable As String = f.AllocationTable Dim frequencyUnit As String = f.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(f.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(f.Frequency * 1000000) Else fromFrequency = CLng(f.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "f" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in paired frequency nfp If (TryCast(c, PairedFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim pairedFromFrequency As Long Dim table As String Dim fp As PairedFrequency = TryCast(c, PairedFrequency) Dim txtBriefDescription As String = fp.BriefDescription1 Dim radioCommunicationService As String = fp.RadioService1 Dim radioQualifier1 As String = fp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = fp.AllocationTable Dim frequencyUnit As String = fp.RadioFrequency1 Dim txtBriefDescription2 As String = fp.PairedWithBriefDescription Dim radioCommunicationService2 As String = fp.RadioService2 Dim radioQualifier2 As String = fp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = fp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(fp.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(fp.Frequency * 1000000) Else fromFrequency = CLng(fp.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000) Else pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "fp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If wikiFrequency.Frequency2Low = pairedFromFrequency wikiFrequency.Description2 = txtBriefDescription2 wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in Channelizedspecificfrequency nc If (TryCast(c, ChannelizedSpecificFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim table As String Dim nc As ChannelizedSpecificFrequency = TryCast(c, ChannelizedSpecificFrequency) Dim txtBriefDescription As String = nc.BriefDescription Dim txtChannelName As String = nc.ChannelName Dim radioCommunicationService As String = nc.RadioService1 Dim radioQualifier As String = nc.RadioQualifier1 'createradioqualifier Dim allocationTable As String = nc.AllocationTable Dim frequencyUnit As String = nc.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(nc.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(nc.Frequency * 1000000) Else fromFrequency = CLng(nc.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "c" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in channelizedPairedfrequency ncp If (TryCast(c, ChannelizedPairedFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim pairedFromFrequency As Long Dim table As String Dim cp As ChannelizedPairedFrequency = TryCast(c, ChannelizedPairedFrequency) Dim txtBriefDescription As String = cp.ChannelBriefDescription Dim txtChannelName As String = cp.ChannelName Dim radioCommunicationService As String = cp.RadioService1 Dim radioQualifier1 As String = cp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = cp.AllocationTable Dim frequencyUnit As String = cp.RadioFrequency1 Dim txtBriefDescription2 As String = cp.PairedWithBriefDescription Dim pairedChannelName As String = cp.PairedWithChannelName Dim radioCommunicationService2 As String = cp.RadioService2 Dim radioQualifier2 As String = cp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = cp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(cp.ChannelFrequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(cp.ChannelFrequency * 1000000) Else fromFrequency = CLng(cp.ChannelFrequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000) Else pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "cp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If wikiFrequency.Frequency2Low = pairedFromFrequency wikiFrequency.Description2 = txtBriefDescription2 wikiFrequency.Channel2 = pairedChannelName wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'channelized frequency band nbc If (TryCast(c, ChannelizedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim table As String Dim bc As ChannelizedFrequencyBand = TryCast(c, ChannelizedFrequencyBand) Dim txtBriefDescription As String = bc.BriefDescription Dim txtChannelName As String = bc.ChannelName Dim radioCommunicationService As String = bc.RadioService1 Dim radioQualifier As String = bc.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bc.AllocationTable Dim frequencyUnit As String = bc.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(bc.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bc.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bc.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bc.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bc" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'inserting values of channelized paired frequency band nbcp If (TryCast(c, ChannelizedPairedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim fromPairedFrequency As Long Dim toPairedFrequency As Long Dim table As String Dim bcp As ChannelizedPairedFrequencyBand = TryCast(c, ChannelizedPairedFrequencyBand) Dim txtBriefDescription As String = bcp.BriefDescription Dim txtChannelName As String = bcp.ChannelName Dim radioCommunicationService As String = bcp.RadioService1 Dim radioQualifier1 As String = bcp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bcp.AllocationTable Dim frequencyUnit As String = bcp.RadioFrequency1 Dim pairedBreifDescription As String = bcp.PairedBriefDescription Dim pairedChannelName As String = bcp.PairedWithChannelName Dim radioCommunicationService2 As String = bcp.RadioService2 Dim radioQualifier2 As String = bcp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = bcp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bcp.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000) Else fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000000) End If If (frequencyUnit2 = "kHz") Then toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000) Else toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bcp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.Frequency2Low = fromPairedFrequency wikiFrequency.Frequency2High = toPairedFrequency wikiFrequency.Description2 = pairedBreifDescription wikiFrequency.Channel2 = pairedChannelName wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier wikiFrequency.AllocationTable = table If (temp_wiki_text_id > 0) Then wikiFrequency.WikiTextId = temp_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.TempInsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If Next Session.Remove("id") If (id > 0) Then Response.Redirect("~/wiki/AddEditPicture.aspx?TempWikiId=" + id.ToString() & "&nbCount=" & nbCount) ElseIf (temp_wiki_text_id > 0) Then Response.Redirect("~/wiki/AddEditPicture.aspx?TempWikiId=" + temp_wiki_text_id.ToString() & "&nbCount=" & nbCount) End If 'Else ' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + wiki_text_id.ToString()) 'End If End Sub 'Protected Sub BindGrid(ByVal wiki_text_id As Integer) ' Try ' gvAddEditPicture.DataSource = WikiGraphicsBLL.GetWikiGraphics(wiki_text_id) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' gvAddEditPicture.DataBind() 'End Sub Protected Sub BindGrid(ByVal wiki_text_id As Integer) Try gvAddEditPicture.DataSource = WikiGraphicsBLL.GetTempWikiGraphics(wiki_text_id) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try gvAddEditPicture.DataBind() End Sub Protected Sub gvAddEditPicture_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvAddEditPicture.RowDataBound _validFileFormat = _fileFormat.Split(_seperator) If (e.Row.RowType = DataControlRowType.DataRow) Then Dim fileName As String = DataBinder.Eval(e.Row.DataItem, "file_name").ToString() Dim fileExt As String = DataBinder.Eval(e.Row.DataItem, "file_extension").ToString() Dim pictureId As String = DataBinder.Eval(e.Row.DataItem, "wiki_graphic_id").ToString() Dim lblFileCategory As System.Web.UI.WebControls.Label = CType(e.Row.FindControl("lblFileCategory"), System.Web.UI.WebControls.Label) Dim strval As String = DirectCast(lblFileCategory, Label).Text Dim title As String = DirectCast(ViewState("FileCategory"), String) If title = strval Then lblFileCategory.Visible = False lblFileCategory.Text = String.Empty Else title = strval ViewState("FileCategory") = title lblFileCategory.Visible = True lblFileCategory.Text = title End If 'Dim imageFile As System.Web.UI.WebControls.Image = CType(e.Row.FindControl("imgPicture"), System.Web.UI.WebControls.Image) 'imageFile.ImageUrl = _thumbNailPath & fileName + fileExt End If 'If (e.Row.RowType = DataControlRowType.DataRow) Then ' Dim lblFileCategory As Label = DirectCast(e.Row.FindControl("lblFileCategory"), Label) ' 'Dim lnkImageName As LinkButton = DirectCast(e.Row.FindControl("lnkImageName"), LinkButton) ' 'Dim lbtnRemove As LinkButton = DirectCast(e.Row.FindControl("lbtnRemove"), LinkButton) 'End If End Sub Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSave.Click Dim id As Integer Dim heading As String = txtMainHeading.Text Dim description As String = txtDescription.Text wiki_text_id = Convert.ToInt32(Request.QueryString("WikiId")) Dim update_wiki_text_id As Integer = 0 Dim wikiText As WikiText = New WikiText() 'wikiText.Head = heading 'wikiText.Description = description wikiText.Head = mainHeading wikiText.Description = descrp txtDescription.Text = descrp txtMainHeading.Text = mainHeading If String.IsNullOrEmpty(Session("update_wiki_text_id")) Then 'If (wiki_text_id = 0) Then 'If (Request.QueryString.Count > 0) Then Try id = WikiTextBLL.InsertWikiText(wikiText) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try 'End If Else update_wiki_text_id = Session("update_wiki_text_id") wikiText.WikiTextId = update_wiki_text_id Try WikiTextBLL.UpdateWikiText(wikiText) WikiFrequencyBLL.DeleteWikiFrequency(update_wiki_text_id) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'txtMainHeading.Text = String.Empty 'txtDescription.Text = String.Empty For Each c As Control In pnlBandEntries.Controls 'frequency band nb If (TryCast(c, FrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim table As String Dim fb As FrequencyBand = TryCast(c, FrequencyBand) Dim txtBriefDescription As String = fb.BriefDescription Dim allocationTable As String = fb.AllocationTable Dim frequencyUnit As String = fb.RadioFrequency Dim radioService As String = fb.RadioService1 Dim radioQualifier As String = fb.RadioQualifier1 'createradioqualifier If (fb.FromFrequencyRange1 <> "0.0") Then If (frequencyUnit = "kHz") Then fromFrequency = CLng(fb.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(fb.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(fb.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(fb.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "b" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If End If 'inserting values of paired frequency band nbp If (TryCast(c, PairedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim fromPairedFrequency As Long Dim toPairedFrequency As Long Dim table As String Dim bp As PairedFrequencyBand = TryCast(c, PairedFrequencyBand) Dim txtBriefDescription As String = bp.BriefDescription Dim radioCommunicationService As String = bp.RadioService1 Dim radioQualifier1 As String = bp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bp.AllocationTable Dim frequencyUnit As String = bp.RadioFrequency1 Dim pairedToFrequency As Integer = bp.ToPairedFrequency Dim pairedBreifDescription As String = bp.PairedBriefDescription Dim radioCommunicationService2 As String = bp.RadioService2 Dim radioQualifier2 As String = bp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = bp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(bp.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bp.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bp.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bp.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000) Else fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000000) End If If (frequencyUnit2 = "kHz") Then toPairedFrequency = CLng(bp.ToPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000) Else toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.Frequency2Low = fromPairedFrequency wikiFrequency.Frequency2High = toPairedFrequency wikiFrequency.Description2 = pairedBreifDescription wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in specific frequency nf If (TryCast(c, SpecificFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim table As String Dim f As SpecificFrequency = TryCast(c, SpecificFrequency) Dim txtBriefDescription As String = f.BriefDescription Dim radioCommunicationService As String = f.RadioService1 Dim radioQualifier As String = f.RadioQualifier1 'createradioqualifier Dim allocationTable As String = f.AllocationTable Dim frequencyUnit As String = f.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(f.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(f.Frequency * 1000000) Else fromFrequency = CLng(f.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "f" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in paired frequency nfp If (TryCast(c, PairedFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim pairedFromFrequency As Long Dim table As String Dim fp As PairedFrequency = TryCast(c, PairedFrequency) Dim txtBriefDescription As String = fp.BriefDescription1 Dim radioCommunicationService As String = fp.RadioService1 Dim radioQualifier1 As String = fp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = fp.AllocationTable Dim frequencyUnit As String = fp.RadioFrequency1 Dim txtBriefDescription2 As String = fp.PairedWithBriefDescription Dim radioCommunicationService2 As String = fp.RadioService2 Dim radioQualifier2 As String = fp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = fp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(fp.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(fp.Frequency * 1000000) Else fromFrequency = CLng(fp.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000) Else pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "fp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If wikiFrequency.Frequency2Low = pairedFromFrequency wikiFrequency.Description2 = txtBriefDescription2 wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in Channelizedspecificfrequency nc If (TryCast(c, ChannelizedSpecificFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim table As String Dim nc As ChannelizedSpecificFrequency = TryCast(c, ChannelizedSpecificFrequency) Dim txtBriefDescription As String = nc.BriefDescription Dim txtChannelName As String = nc.ChannelName Dim radioCommunicationService As String = nc.RadioService1 Dim radioQualifier As String = nc.RadioQualifier1 'createradioqualifier Dim allocationTable As String = nc.AllocationTable Dim frequencyUnit As String = nc.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(nc.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(nc.Frequency * 1000000) Else fromFrequency = CLng(nc.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "c" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in channelizedPairedfrequency ncp If (TryCast(c, ChannelizedPairedFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim pairedFromFrequency As Long Dim table As String Dim cp As ChannelizedPairedFrequency = TryCast(c, ChannelizedPairedFrequency) Dim txtBriefDescription As String = cp.ChannelBriefDescription Dim txtChannelName As String = cp.ChannelName Dim radioCommunicationService As String = cp.RadioService1 Dim radioQualifier1 As String = cp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = cp.AllocationTable Dim frequencyUnit As String = cp.RadioFrequency1 Dim txtBriefDescription2 As String = cp.PairedWithBriefDescription Dim pairedChannelName As String = cp.PairedWithChannelName Dim radioCommunicationService2 As String = cp.RadioService2 Dim radioQualifier2 As String = cp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = cp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(cp.ChannelFrequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(cp.ChannelFrequency * 1000000) Else fromFrequency = CLng(cp.ChannelFrequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000) Else pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "cp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If wikiFrequency.Frequency2Low = pairedFromFrequency wikiFrequency.Description2 = txtBriefDescription2 wikiFrequency.Channel2 = pairedChannelName wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'channelized frequency band nbc If (TryCast(c, ChannelizedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim table As String Dim bc As ChannelizedFrequencyBand = TryCast(c, ChannelizedFrequencyBand) Dim txtBriefDescription As String = bc.BriefDescription Dim txtChannelName As String = bc.ChannelName Dim radioCommunicationService As String = bc.RadioService1 Dim radioQualifier As String = bc.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bc.AllocationTable Dim frequencyUnit As String = bc.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(bc.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bc.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bc.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bc.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bc" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'inserting values of channelized paired frequency band nbcp If (TryCast(c, ChannelizedPairedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim fromPairedFrequency As Long Dim toPairedFrequency As Long Dim table As String Dim bcp As ChannelizedPairedFrequencyBand = TryCast(c, ChannelizedPairedFrequencyBand) Dim txtBriefDescription As String = bcp.BriefDescription Dim txtChannelName As String = bcp.ChannelName Dim radioCommunicationService As String = bcp.RadioService1 Dim radioQualifier1 As String = bcp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bcp.AllocationTable Dim frequencyUnit As String = bcp.RadioFrequency1 Dim pairedBreifDescription As String = bcp.PairedBriefDescription Dim pairedChannelName As String = bcp.PairedWithChannelName Dim radioCommunicationService2 As String = bcp.RadioService2 Dim radioQualifier2 As String = bcp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = bcp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bcp.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000) Else fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000000) End If If (frequencyUnit2 = "kHz") Then toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000) Else toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bcp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.Frequency2Low = fromPairedFrequency wikiFrequency.Frequency2High = toPairedFrequency wikiFrequency.Description2 = pairedBreifDescription wikiFrequency.Channel2 = pairedChannelName wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If Next If temp_wiki_text_id > 0 Then Try If id > 0 Then WikiGraphicsBLL.DeleteWikiGraphicsByTextId(temp_wiki_text_id) WikiGraphicsBLL.InsertWikiGraphicsOriginal(temp_wiki_text_id) WikiGraphicsBLL.UpdateWikiGraphics(temp_wiki_text_id, id) Else WikiGraphicsBLL.DeleteWikiGraphicsByTextId(update_wiki_text_id) WikiGraphicsBLL.InsertWikiGraphicsOriginal(temp_wiki_text_id) WikiGraphicsBLL.UpdateWikiGraphics(temp_wiki_text_id, update_wiki_text_id) End If 'WikiGraphicsBLL.TempDeleteWikiGraphics(temp_wiki_text_id) 'ToDo: use bindgrid function 'BindGrid(temp_wiki_text_id) 'Session("WikiID") = temp_wiki_text_id 'WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) 'WikiTextBLL.TempDeleteWikiText(temp_wiki_text_id) 'WikiGraphicsBLL.TempDeleteWikiGraphics(temp_wiki_text_id) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If If (id > 0) Then Session("update_wiki_text_id") = id End If 'Dim isreadonly As PropertyInfo = GetType(System.Collections.Specialized.NameValueCollection).GetProperty("IsReadOnly", BindingFlags.Instance Or BindingFlags.NonPublic) '' make collection editable 'isreadonly.SetValue(Me.Request.QueryString, False, Nothing) '' remove 'Me.Request.QueryString.Remove("TempWikiId") 'Me.Request.QueryString.Remove("TempWikiId") 'If (id > 0) Then ' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + id.ToString()) 'ElseIf (wiki_text_id > 0) Then ' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + wiki_text_id.ToString()) 'End If 'BindGrid(temp_wiki_text_id) 'If id > 0 Then ' BindGrid(id) 'Else ' BindGrid(Convert.ToInt32(Session("update_wiki_text_id"))) 'End If temp_wiki_text_id BindGrid(temp_wiki_text_id) End Sub Protected Sub gvAddEditPicture_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvAddEditPicture.RowCommand 'If e.CommandName = "RemovePicture" Then ' Dim wikiGraphicId As Integer = Convert.ToInt32(gvAddEditPicture.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()) ' Dim wikiGraphic As WikiGraphic = Nothing ' Try ' wikiGraphic = WikiGraphicsBLL.GetByWikiGraphicId(wikiGraphicId) ' WikiGraphicsBLL.DeleteWikiGraphics(wikiGraphicId) ' Catch ex As Exception ' 'TODO: Show user friendly error here ' ' Log here ' If ex.InnerException IsNot Nothing Then ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' Else ' Logger.WriteToErrorLog(ex.Message) ' End If ' End Try ' If wikiGraphic IsNot Nothing Then ' Dim fileName As String = wikiGraphic.FileName ' Dim fileExtension As String = wikiGraphic.FileExtension ' Dim imagePath As String = Server.MapPath(_imgPath & fileName + fileExtension) ' Dim thumbNailPath As String = Server.MapPath(_thumbNailPath & fileName + fileExtension) ' If System.IO.File.Exists(imagePath) Then ' System.IO.File.Delete(imagePath) ' End If ' If System.IO.File.Exists(thumbNailPath) Then ' System.IO.File.Delete(thumbNailPath) ' End If ' End If 'ElseIf e.CommandName = "Download" Then ' Dim wikiGraphicId As Integer = Convert.ToInt32(gvAddEditPicture.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()) ' Dim wikiGraphic As WikiGraphic = Nothing ' Try ' wikiGraphic = WikiGraphicsBLL.GetByWikiGraphicId(wikiGraphicId) ' Catch ex As Exception ' 'TODO: Show user friendly error here ' ' Log here ' If ex.InnerException IsNot Nothing Then ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' Else ' Logger.WriteToErrorLog(ex.Message) ' End If ' End Try ' Dim fileName As String = wikiGraphic.FileName ' Dim fileExtension As String = wikiGraphic.FileExtension ' Dim imagePath As String = Server.MapPath(_imgPath & fileName + fileExtension) ' Dim thumbNailPath As String = Server.MapPath(_thumbNailPath & fileName + fileExtension) ' If System.IO.File.Exists(imagePath) Then ' ' System.IO.File.Delete(imagePath) ' 'End If ' 'If System.IO.File.Exists(thumbNailPath) Then ' ' System.IO.File.Delete(thumbNailPath) ' Dim strRequest As String = imagePath '-- if something was passed to the file querystring ' If strRequest <> "" Then 'get absolute path of the file ' 'Dim path As String = Server.MapPath(strRequest) 'get file object as FileInfo ' Dim file As System.IO.FileInfo = New System.IO.FileInfo(strRequest) '-- if the file exists on the server ' If file.Exists Then 'set appropriate headers ' Response.Clear() ' Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name) ' Response.AddHeader("Content-Length", file.Length.ToString()) ' Response.ContentType = ReturnExtension(file.Extension.ToLower()) ' Response.WriteFile(file.FullName) ' Response.End() 'if file does not exist ' Else ' Response.Write("This file does not exist.") ' End If 'nothing in the URL as HTTP GET ' Else ' Response.Write("Please provide a file to download.") ' End If ' End If 'End If '' BindGrid(temp_wiki_text_id) 'BindGrid(Convert.ToInt32(Session("update_wiki_text_id"))) 'If e.CommandName = "RemovePicture" Then ' Dim wikiGraphicId As Integer = Convert.ToInt32(gvAddEditPicture.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()) ' Dim wikiGraphic As WikiGraphic = Nothing ' Try ' wikiGraphic = WikiGraphicsBLL.GetByTempWikiGraphicId(wikiGraphicId) ' WikiGraphicsBLL.TempDeleteWikiGraphicsbyGraphicID(wikiGraphicId) ' Catch ex As Exception ' 'TODO: Show user friendly error here ' ' Log here ' If ex.InnerException IsNot Nothing Then ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' Else ' Logger.WriteToErrorLog(ex.Message) ' End If ' End Try ' If wikiGraphic IsNot Nothing Then ' Dim fileName As String = wikiGraphic.FileName ' Dim fileExtension As String = wikiGraphic.FileExtension ' Dim imagePath As String = Server.MapPath(_imgPath & fileName + fileExtension) ' Dim thumbNailPath As String = Server.MapPath(_thumbNailPath & fileName + fileExtension) ' If System.IO.File.Exists(imagePath) Then ' System.IO.File.Delete(imagePath) ' End If ' If System.IO.File.Exists(thumbNailPath) Then ' System.IO.File.Delete(thumbNailPath) ' End If ' End If 'ElseIf e.CommandName = "Download" Then ' Dim wikiGraphicId As Integer = Convert.ToInt32(gvAddEditPicture.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()) ' Dim wikiGraphic As WikiGraphic = Nothing ' Try ' wikiGraphic = WikiGraphicsBLL.GetByTempWikiGraphicId(wikiGraphicId) ' Catch ex As Exception ' 'TODO: Show user friendly error here ' ' Log here ' If ex.InnerException IsNot Nothing Then ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' Else ' Logger.WriteToErrorLog(ex.Message) ' End If ' End Try ' Dim fullFileName As String ' fullFileName = wikiGraphic.FileName ' Dim toDownload As FileInfo = New FileInfo(fullFileName) ' Dim userAgent As String = Request.Headers.Get("User-Agent") ' Dim filename As String = toDownload.Name ' 'If userAgent.Contains("MSIE 7.0") Then ' ' filename = toDownload.Name.Replace(" ", "%20") ' 'End If ' 'Dim fileName As String = wikiGraphic.FileName ' Dim fileExtension As String = wikiGraphic.FileExtension ' Dim imagePath As String = Server.MapPath(_imgPath & filename + fileExtension) ' Dim thumbNailPath As String = Server.MapPath(_thumbNailPath & filename + fileExtension) ' If System.IO.File.Exists(imagePath) Then ' ' System.IO.File.Delete(imagePath) ' 'End If ' 'If System.IO.File.Exists(thumbNailPath) Then ' ' System.IO.File.Delete(thumbNailPath) ' Dim strRequest As String = imagePath '-- if something was passed to the file querystring ' If strRequest <> "" Then 'get absolute path of the file ' 'Dim path As String = Server.MapPath(strRequest) 'get file object as FileInfo ' Dim file As System.IO.FileInfo = New System.IO.FileInfo(strRequest) '-- if the file exists on the server ' If file.Exists Then 'set appropriate headers ' Response.Clear() ' 'Response.AddHeader("Content-Disposition", "attachment; filename=\"" + filename + "\""); ' Response.AddHeader("Content-Disposition", "attachment; filename=""" & file.Name & """") ' 'Response.AddHeader("Content-Disposition", "attachment; filename=\"" & file.Name & " \ "") ' Response.AddHeader("Content-Length", file.Length.ToString()) ' Response.ContentType = ReturnExtension(file.Extension.ToLower()) ' Response.WriteFile(file.FullName) ' Response.End() 'if file does not exist ' Else ' Response.Write("This file does not exist.") ' End If 'nothing in the URL as HTTP GET ' Else ' Response.Write("Please provide a file to download.") ' End If ' End If ' End If If e.CommandName = "RemovePicture" Then Dim wikiGraphicId As Integer = Convert.ToInt32(gvAddEditPicture.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()) Dim wikiGraphic As WikiGraphic = Nothing Try wikiGraphic = WikiGraphicsBLL.GetByTempWikiGraphicId(wikiGraphicId) WikiGraphicsBLL.TempDeleteWikiGraphicsbyGraphicID(wikiGraphicId) Catch ex As Exception 'TODO: Show user friendly error here ' Log here If ex.InnerException IsNot Nothing Then Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) Else Logger.WriteToErrorLog(ex.Message) End If End Try If wikiGraphic IsNot Nothing Then Dim fileName As String = wikiGraphic.FileName Dim fileExtension As String = wikiGraphic.FileExtension Dim physicalFileName As String = wikiGraphic.PhysicalFileName Dim imagePath As String = Server.MapPath(_imgPath & physicalFileName + fileExtension) Dim thumbNailPath As String = Server.MapPath(_thumbNailPath & physicalFileName + fileExtension) If System.IO.File.Exists(imagePath) Then System.IO.File.Delete(imagePath) End If If System.IO.File.Exists(thumbNailPath) Then System.IO.File.Delete(thumbNailPath) End If End If ElseIf e.CommandName = "Download" Then Dim wikiGraphicId As Integer = Convert.ToInt32(gvAddEditPicture.DataKeys(Convert.ToInt32(e.CommandArgument)).Value.ToString()) Dim wikiGraphic As WikiGraphic = Nothing Try wikiGraphic = WikiGraphicsBLL.GetByTempWikiGraphicId(wikiGraphicId) Catch ex As Exception 'TODO: Show user friendly error here ' Log here If ex.InnerException IsNot Nothing Then Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) Else Logger.WriteToErrorLog(ex.Message) End If End Try Dim fileName As String = wikiGraphic.FileName Dim fileExtension As String = wikiGraphic.FileExtension Dim physicalFileName As String = wikiGraphic.PhysicalFileName Dim imagePath As String = Server.MapPath(_imgPath & physicalFileName + fileExtension) Dim thumbNailPath As String = Server.MapPath(_thumbNailPath & physicalFileName + fileExtension) If System.IO.File.Exists(imagePath) Then ' System.IO.File.Delete(imagePath) 'End If 'If System.IO.File.Exists(thumbNailPath) Then ' System.IO.File.Delete(thumbNailPath) Dim strRequest As String = imagePath '-- if something was passed to the file querystring If strRequest <> "" Then 'get absolute path of the file 'Dim path As String = Server.MapPath(strRequest) 'get file object as FileInfo Dim file As System.IO.FileInfo = New System.IO.FileInfo(strRequest) '-- if the file exists on the server If file.Exists Then 'set appropriate headers Response.Clear() Response.AddHeader("Content-Disposition", "attachment;filename=""" & fileName & fileExtension & """") Response.AddHeader("Content-Length", file.Length.ToString()) Response.ContentType = ReturnExtension(file.Extension.ToLower()) Response.WriteFile(file.FullName) Response.End() 'if file does not exist Else Response.Write("This file does not exist.") End If 'nothing in the URL as HTTP GET Else Response.Write("Please provide a file to download.") End If End If End If 'End If 'If Not String.IsNullOrEmpty(Session("update_wiki_text_id")) Then 'BindGridFromOrg(CInt(Session("update_wiki_text_id"))) 'Else BindGrid(temp_wiki_text_id) End Sub Private Function ReturnExtension(ByVal fileExtension As String) As String Select Case fileExtension Case ".htm", ".html", ".log" Return "text/HTML" Case ".txt" Return "text/plain" Case ".doc", ".docx" Return "application/ms-word" Case ".docx" Return "application/octet-stream" Case ".tiff", ".tif" Return "image/tiff" Case ".png", ".png" Return "image/png" Case ".asf" Return "video/x-ms-asf" Case ".avi" Return "video/avi" Case ".zip" Return "application/zip" Case ".xls", ".csv" Return "application/vnd.ms-excel" Case ".gif" Return "image/gif" Case ".jpg", "jpeg" Return "image/jpeg" Case ".bmp" Return "image/bmp" Case ".wav" Return "audio/wav" Case ".mp3" Return "audio/mpeg3" Case ".mpg", "mpeg" Return "video/mpeg" Case ".rtf" Return "application/rtf" Case ".asp" Return "text/asp" Case ".pdf" Return "application/pdf" Case ".fdf" Return "application/vnd.fdf" Case ".ppt" Return "application/mspowerpoint" Case ".dwg" Return "image/vnd.dwg" Case ".msg" Return "application/msoutlook" Case ".xml", ".sdxl" Return "application/xml" Case ".xdp" Return "application/vnd.adobe.xdp+xml" Case Else Return "application/octet-stream" End Select End Function Protected Sub btnSavePreview_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSavePreview.Click 'Dim id As Integer 'Dim heading As String = txtMainHeading.Text 'Dim description As String = txtDescription.Text 'Dim wikiText As WikiText = New WikiText() ''wikiText.Head = heading ''wikiText.Description = description 'wikiText.Head = mainHeading 'wikiText.Description = descrp 'txtDescription.Text = descrp 'txtMainHeading.Text = mainHeading 'If (wiki_text_id = 0) Then ' 'If (Request.QueryString.Count > 0) Then ' Try ' id = WikiTextBLL.InsertWikiText(wikiText) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' 'End If 'Else ' wikiText.WikiTextId = wiki_text_id ' Try ' WikiTextBLL.UpdateWikiText(wikiText) ' WikiFrequencyBLL.DeleteWikiFrequency(wiki_text_id) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try 'End If ''txtMainHeading.Text = String.Empty ''txtDescription.Text = String.Empty 'For Each c As Control In pnlBandEntries.Controls ' 'frequency band nb ' If (TryCast(c, FrequencyBand) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim toFrequency As Long ' Dim table As String ' Dim fb As FrequencyBand = TryCast(c, FrequencyBand) ' Dim txtBriefDescription As String = fb.BriefDescription ' Dim allocationTable As String = fb.AllocationTable ' Dim frequencyUnit As String = fb.RadioFrequency ' Dim radioService As String = fb.RadioService1 ' Dim radioQualifier As String = fb.RadioQualifier1 'createradioqualifier ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(fb.FromFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000) ' Else ' fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000000) ' End If ' If (frequencyUnit = "kHz") Then ' toFrequency = CLng(fb.ToFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' toFrequency = CLng(fb.ToFrequencyRange1 * 1000000) ' Else ' toFrequency = CLng(fb.ToFrequencyRange1 * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "b" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Frequency1High = toFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Service1 = radioService ' wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'inserting values of paired frequency band nbp ' If (TryCast(c, PairedFrequencyBand) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim toFrequency As Long ' Dim fromPairedFrequency As Long ' Dim toPairedFrequency As Long ' Dim table As String ' Dim bp As PairedFrequencyBand = TryCast(c, PairedFrequencyBand) ' Dim txtBriefDescription As String = bp.BriefDescription ' Dim radioCommunicationService As String = bp.RadioService1 ' Dim radioQualifier1 As String = bp.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = bp.AllocationTable ' Dim frequencyUnit As String = bp.RadioFrequency1 ' Dim pairedToFrequency As Integer = bp.ToPairedFrequency ' Dim pairedBreifDescription As String = bp.PairedBriefDescription ' Dim radioCommunicationService2 As String = bp.RadioService2 ' Dim radioQualifier2 As String = bp.RadioQualifier2 'createradioqualifier ' Dim frequencyUnit2 As String = bp.RadioFrequency2 ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(bp.FromFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000) ' Else ' fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000000) ' End If ' If (frequencyUnit = "kHz") Then ' toFrequency = CLng(bp.ToFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' toFrequency = CLng(bp.ToFrequencyRange1 * 1000000) ' Else ' toFrequency = CLng(bp.ToFrequencyRange1 * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' If (frequencyUnit2 = "kHz") Then ' fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000) ' ElseIf (frequencyUnit2 = "MHz") Then ' fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000) ' Else ' fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000000) ' End If ' If (frequencyUnit2 = "kHz") Then ' toPairedFrequency = CLng(bp.ToPairedFrequency * 1000) ' ElseIf (frequencyUnit2 = "MHz") Then ' toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000) ' Else ' toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000000) ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "bp" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Frequency1High = toFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier ' wikiFrequency.Frequency2Low = fromPairedFrequency ' wikiFrequency.Frequency2High = toPairedFrequency ' wikiFrequency.Description2 = pairedBreifDescription ' wikiFrequency.Service2 = radioCommunicationService2 ' wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'insert values in specific frequency nf ' If (TryCast(c, SpecificFrequency) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim table As String ' Dim f As SpecificFrequency = TryCast(c, SpecificFrequency) ' Dim txtBriefDescription As String = f.BriefDescription ' Dim radioCommunicationService As String = f.RadioService1 ' Dim radioQualifier As String = f.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = f.AllocationTable ' Dim frequencyUnit As String = f.RadioFrequency ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(f.Frequency * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(f.Frequency * 1000000) ' Else ' fromFrequency = CLng(f.Frequency * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "f" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'insert values in paired frequency nfp ' If (TryCast(c, PairedFrequency) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim pairedFromFrequency As Long ' Dim table As String ' Dim fp As PairedFrequency = TryCast(c, PairedFrequency) ' Dim txtBriefDescription As String = fp.BriefDescription1 ' Dim radioCommunicationService As String = fp.RadioService1 ' Dim radioQualifier1 As String = fp.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = fp.AllocationTable ' Dim frequencyUnit As String = fp.RadioFrequency1 ' Dim txtBriefDescription2 As String = fp.PairedWithBriefDescription ' Dim radioCommunicationService2 As String = fp.RadioService2 ' Dim radioQualifier2 As String = fp.RadioQualifier2 'createradioqualifier ' Dim frequencyUnit2 As String = fp.RadioFrequency2 ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(fp.Frequency * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(fp.Frequency * 1000000) ' Else ' fromFrequency = CLng(fp.Frequency * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' If (frequencyUnit2 = "kHz") Then ' pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000) ' ElseIf (frequencyUnit2 = "MHz") Then ' pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000) ' Else ' pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000000) ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "fp" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' wikiFrequency.Frequency2Low = pairedFromFrequency ' wikiFrequency.Description2 = txtBriefDescription2 ' wikiFrequency.Service2 = radioCommunicationService2 ' wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'insert values in Channelizedspecificfrequency nc ' If (TryCast(c, ChannelizedSpecificFrequency) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim table As String ' Dim nc As ChannelizedSpecificFrequency = TryCast(c, ChannelizedSpecificFrequency) ' Dim txtBriefDescription As String = nc.BriefDescription ' Dim txtChannelName As String = nc.ChannelName ' Dim radioCommunicationService As String = nc.RadioService1 ' Dim radioQualifier As String = nc.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = nc.AllocationTable ' Dim frequencyUnit As String = nc.RadioFrequency ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(nc.Frequency * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(nc.Frequency * 1000000) ' Else ' fromFrequency = CLng(nc.Frequency * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "c" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Channel1 = txtChannelName ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'insert values in channelizedPairedfrequency ncp ' If (TryCast(c, ChannelizedPairedFrequency) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim pairedFromFrequency As Long ' Dim table As String ' Dim cp As ChannelizedPairedFrequency = TryCast(c, ChannelizedPairedFrequency) ' Dim txtBriefDescription As String = cp.ChannelBriefDescription ' Dim txtChannelName As String = cp.ChannelName ' Dim radioCommunicationService As String = cp.RadioService1 ' Dim radioQualifier1 As String = cp.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = cp.AllocationTable ' Dim frequencyUnit As String = cp.RadioFrequency1 ' Dim txtBriefDescription2 As String = cp.PairedWithBriefDescription ' Dim pairedChannelName As String = cp.PairedWithChannelName ' Dim radioCommunicationService2 As String = cp.RadioService2 ' Dim radioQualifier2 As String = cp.RadioQualifier2 'createradioqualifier ' Dim frequencyUnit2 As String = cp.RadioFrequency2 ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(cp.ChannelFrequency * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(cp.ChannelFrequency * 1000000) ' Else ' fromFrequency = CLng(cp.ChannelFrequency * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' If (frequencyUnit2 = "kHz") Then ' pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000) ' ElseIf (frequencyUnit2 = "MHz") Then ' pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000) ' Else ' pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000000) ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "cp" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Channel1 = txtChannelName ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' wikiFrequency.Frequency2Low = pairedFromFrequency ' wikiFrequency.Description2 = txtBriefDescription2 ' wikiFrequency.Channel2 = pairedChannelName ' wikiFrequency.Service2 = radioCommunicationService2 ' wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'channelized frequency band nbc ' If (TryCast(c, ChannelizedFrequencyBand) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim toFrequency As Long ' Dim table As String ' Dim bc As ChannelizedFrequencyBand = TryCast(c, ChannelizedFrequencyBand) ' Dim txtBriefDescription As String = bc.BriefDescription ' Dim txtChannelName As String = bc.ChannelName ' Dim radioCommunicationService As String = bc.RadioService1 ' Dim radioQualifier As String = bc.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = bc.AllocationTable ' Dim frequencyUnit As String = bc.RadioFrequency ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(bc.FromFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000) ' Else ' fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000000) ' End If ' If (frequencyUnit = "kHz") Then ' toFrequency = CLng(bc.ToFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' toFrequency = CLng(bc.ToFrequencyRange1 * 1000000) ' Else ' toFrequency = CLng(bc.ToFrequencyRange1 * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "bc" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Frequency1High = toFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Channel1 = txtChannelName ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If ' 'inserting values of channelized paired frequency band nbcp ' If (TryCast(c, ChannelizedPairedFrequencyBand) IsNot Nothing) Then ' Dim fromFrequency As Long ' Dim toFrequency As Long ' Dim fromPairedFrequency As Long ' Dim toPairedFrequency As Long ' Dim table As String ' Dim bcp As ChannelizedPairedFrequencyBand = TryCast(c, ChannelizedPairedFrequencyBand) ' Dim txtBriefDescription As String = bcp.BriefDescription ' Dim txtChannelName As String = bcp.ChannelName ' Dim radioCommunicationService As String = bcp.RadioService1 ' Dim radioQualifier1 As String = bcp.RadioQualifier1 'createradioqualifier ' Dim allocationTable As String = bcp.AllocationTable ' Dim frequencyUnit As String = bcp.RadioFrequency1 ' Dim pairedBreifDescription As String = bcp.PairedBriefDescription ' Dim pairedChannelName As String = bcp.PairedWithChannelName ' Dim radioCommunicationService2 As String = bcp.RadioService2 ' Dim radioQualifier2 As String = bcp.RadioQualifier2 'createradioqualifier ' Dim frequencyUnit2 As String = bcp.RadioFrequency2 ' If (frequencyUnit = "kHz") Then ' fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000) ' Else ' fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000000) ' End If ' If (frequencyUnit = "kHz") Then ' toFrequency = CLng(bcp.ToFrequencyRange1 * 1000) ' ElseIf (frequencyUnit = "MHz") Then ' toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000) ' Else ' toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000000) ' End If ' If (allocationTable = "NonFederal") Then ' table = "N" ' ElseIf (allocationTable = "Federal") Then ' table = "F" ' Else ' table = String.Empty ' End If ' If (frequencyUnit2 = "kHz") Then ' fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000) ' ElseIf (frequencyUnit2 = "MHz") Then ' fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000) ' Else ' fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000000) ' End If ' If (frequencyUnit2 = "kHz") Then ' toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000) ' ElseIf (frequencyUnit2 = "MHz") Then ' toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000) ' Else ' toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000000) ' End If ' Dim wikiFrequency As WikiFrequency = New WikiFrequency() ' wikiFrequency.FrequencyType = "bcp" ' wikiFrequency.Frequency1Low = fromFrequency ' wikiFrequency.Frequency1High = toFrequency ' wikiFrequency.Description1 = txtBriefDescription ' wikiFrequency.Channel1 = txtChannelName ' wikiFrequency.Service1 = radioCommunicationService ' wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier ' wikiFrequency.Frequency2Low = fromPairedFrequency ' wikiFrequency.Frequency2High = toPairedFrequency ' wikiFrequency.Description2 = pairedBreifDescription ' wikiFrequency.Channel2 = pairedChannelName ' wikiFrequency.Service2 = radioCommunicationService2 ' wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier ' wikiFrequency.AllocationTable = table ' If (wiki_text_id > 0) Then ' wikiFrequency.WikiTextId = wiki_text_id ' Else ' wikiFrequency.WikiTextId = id ' End If ' Try ' WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try ' End If 'Next 'If temp_wiki_text_id > 0 Then ' Try ' WikiGraphicsBLL.InsertWikiGraphicsOriginal(temp_wiki_text_id) ' WikiGraphicsBLL.UpdateWikiGraphics(temp_wiki_text_id, id) ' 'WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) ' 'WikiTextBLL.TempDeleteWikiText(temp_wiki_text_id) ' 'WikiGraphicsBLL.TempDeleteWikiGraphics(temp_wiki_text_id) ' Catch ex As Exception ' If ex.InnerException Is Nothing Then ' Logger.WriteToErrorLog(ex.Message) ' Else ' Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) ' End If ' End Try 'End If ''Session.Abandon() ''Session.Clear() 'Session("wiki_text_idd") = id ''Session.Remove("TempWikiID") '' Session("id") = id ''Dim isreadonly As PropertyInfo = GetType(System.Collections.Specialized.NameValueCollection).GetProperty("IsReadOnly", BindingFlags.Instance Or BindingFlags.NonPublic) ' '' make collection editable ''isreadonly.SetValue(Me.Request.QueryString, False, Nothing) ' '' remove ''Me.Request.QueryString.Remove("TempWikiId") ''Me.Request.QueryString.Remove("TempWikiId") ''If (id > 0) Then '' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + id.ToString()) ''ElseIf (wiki_text_id > 0) Then '' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + wiki_text_id.ToString()) ''End If Dim id As Integer Dim heading As String = txtMainHeading.Text Dim description As String = txtDescription.Text wiki_text_id = Convert.ToInt32(Request.QueryString("WikiId")) Dim update_wiki_text_id As Integer = 0 Dim wikiText As WikiText = New WikiText() 'wikiText.Head = heading 'wikiText.Description = description wikiText.Head = mainHeading wikiText.Description = descrp txtDescription.Text = descrp txtMainHeading.Text = mainHeading If String.IsNullOrEmpty(Session("update_wiki_text_id")) Then 'If (wiki_text_id = 0) Then 'If (Request.QueryString.Count > 0) Then Try id = WikiTextBLL.InsertWikiText(wikiText) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try 'End If Else update_wiki_text_id = Session("update_wiki_text_id") wikiText.WikiTextId = update_wiki_text_id Try WikiTextBLL.UpdateWikiText(wikiText) WikiFrequencyBLL.DeleteWikiFrequency(update_wiki_text_id) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'txtMainHeading.Text = String.Empty 'txtDescription.Text = String.Empty For Each c As Control In pnlBandEntries.Controls 'frequency band nb If (TryCast(c, FrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim table As String Dim fb As FrequencyBand = TryCast(c, FrequencyBand) Dim txtBriefDescription As String = fb.BriefDescription Dim allocationTable As String = fb.AllocationTable Dim frequencyUnit As String = fb.RadioFrequency Dim radioService As String = fb.RadioService1 Dim radioQualifier As String = fb.RadioQualifier1 'createradioqualifier If (fb.FromFrequencyRange1 <> "0.0") Then If (frequencyUnit = "kHz") Then fromFrequency = CLng(fb.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(fb.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(fb.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(fb.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(fb.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "b" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioService 'If radioService = "NONE" Then 'wikiFrequency.Qualifier1 = "" ' Else wikiFrequency.Qualifier1 = radioQualifier 'End If 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If End If 'inserting values of paired frequency band nbp If (TryCast(c, PairedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim fromPairedFrequency As Long Dim toPairedFrequency As Long Dim table As String Dim bp As PairedFrequencyBand = TryCast(c, PairedFrequencyBand) Dim txtBriefDescription As String = bp.BriefDescription Dim radioCommunicationService As String = bp.RadioService1 Dim radioQualifier1 As String = bp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bp.AllocationTable Dim frequencyUnit As String = bp.RadioFrequency1 Dim pairedToFrequency As Integer = bp.ToPairedFrequency Dim pairedBreifDescription As String = bp.PairedBriefDescription Dim radioCommunicationService2 As String = bp.RadioService2 Dim radioQualifier2 As String = bp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = bp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(bp.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bp.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bp.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bp.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bp.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000) Else fromPairedFrequency = CLng(bp.FromPairedFrequency * 1000000000) End If If (frequencyUnit2 = "kHz") Then toPairedFrequency = CLng(bp.ToPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000) Else toPairedFrequency = CLng(bp.ToPairedFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.Frequency2Low = fromPairedFrequency wikiFrequency.Frequency2High = toPairedFrequency wikiFrequency.Description2 = pairedBreifDescription wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in specific frequency nf If (TryCast(c, SpecificFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim table As String Dim f As SpecificFrequency = TryCast(c, SpecificFrequency) Dim txtBriefDescription As String = f.BriefDescription Dim radioCommunicationService As String = f.RadioService1 Dim radioQualifier As String = f.RadioQualifier1 'createradioqualifier Dim allocationTable As String = f.AllocationTable Dim frequencyUnit As String = f.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(f.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(f.Frequency * 1000000) Else fromFrequency = CLng(f.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "f" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in paired frequency nfp If (TryCast(c, PairedFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim pairedFromFrequency As Long Dim table As String Dim fp As PairedFrequency = TryCast(c, PairedFrequency) Dim txtBriefDescription As String = fp.BriefDescription1 Dim radioCommunicationService As String = fp.RadioService1 Dim radioQualifier1 As String = fp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = fp.AllocationTable Dim frequencyUnit As String = fp.RadioFrequency1 Dim txtBriefDescription2 As String = fp.PairedWithBriefDescription Dim radioCommunicationService2 As String = fp.RadioService2 Dim radioQualifier2 As String = fp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = fp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(fp.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(fp.Frequency * 1000000) Else fromFrequency = CLng(fp.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000) Else pairedFromFrequency = CLng(fp.PairedWithFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "fp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If wikiFrequency.Frequency2Low = pairedFromFrequency wikiFrequency.Description2 = txtBriefDescription2 wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in Channelizedspecificfrequency nc If (TryCast(c, ChannelizedSpecificFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim table As String Dim nc As ChannelizedSpecificFrequency = TryCast(c, ChannelizedSpecificFrequency) Dim txtBriefDescription As String = nc.BriefDescription Dim txtChannelName As String = nc.ChannelName Dim radioCommunicationService As String = nc.RadioService1 Dim radioQualifier As String = nc.RadioQualifier1 'createradioqualifier Dim allocationTable As String = nc.AllocationTable Dim frequencyUnit As String = nc.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(nc.Frequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(nc.Frequency * 1000000) Else fromFrequency = CLng(nc.Frequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "c" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'insert values in channelizedPairedfrequency ncp If (TryCast(c, ChannelizedPairedFrequency) IsNot Nothing) Then Dim fromFrequency As Long Dim pairedFromFrequency As Long Dim table As String Dim cp As ChannelizedPairedFrequency = TryCast(c, ChannelizedPairedFrequency) Dim txtBriefDescription As String = cp.ChannelBriefDescription Dim txtChannelName As String = cp.ChannelName Dim radioCommunicationService As String = cp.RadioService1 Dim radioQualifier1 As String = cp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = cp.AllocationTable Dim frequencyUnit As String = cp.RadioFrequency1 Dim txtBriefDescription2 As String = cp.PairedWithBriefDescription Dim pairedChannelName As String = cp.PairedWithChannelName Dim radioCommunicationService2 As String = cp.RadioService2 Dim radioQualifier2 As String = cp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = cp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(cp.ChannelFrequency * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(cp.ChannelFrequency * 1000000) Else fromFrequency = CLng(cp.ChannelFrequency * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000) Else pairedFromFrequency = CLng(cp.PairedWithFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "cp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If wikiFrequency.Frequency2Low = pairedFromFrequency wikiFrequency.Description2 = txtBriefDescription2 wikiFrequency.Channel2 = pairedChannelName wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'channelized frequency band nbc If (TryCast(c, ChannelizedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim table As String Dim bc As ChannelizedFrequencyBand = TryCast(c, ChannelizedFrequencyBand) Dim txtBriefDescription As String = bc.BriefDescription Dim txtChannelName As String = bc.ChannelName Dim radioCommunicationService As String = bc.RadioService1 Dim radioQualifier As String = bc.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bc.AllocationTable Dim frequencyUnit As String = bc.RadioFrequency If (frequencyUnit = "kHz") Then fromFrequency = CLng(bc.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bc.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bc.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bc.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bc.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bc" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If 'inserting values of channelized paired frequency band nbcp If (TryCast(c, ChannelizedPairedFrequencyBand) IsNot Nothing) Then Dim fromFrequency As Long Dim toFrequency As Long Dim fromPairedFrequency As Long Dim toPairedFrequency As Long Dim table As String Dim bcp As ChannelizedPairedFrequencyBand = TryCast(c, ChannelizedPairedFrequencyBand) Dim txtBriefDescription As String = bcp.BriefDescription Dim txtChannelName As String = bcp.ChannelName Dim radioCommunicationService As String = bcp.RadioService1 Dim radioQualifier1 As String = bcp.RadioQualifier1 'createradioqualifier Dim allocationTable As String = bcp.AllocationTable Dim frequencyUnit As String = bcp.RadioFrequency1 Dim pairedBreifDescription As String = bcp.PairedBriefDescription Dim pairedChannelName As String = bcp.PairedWithChannelName Dim radioCommunicationService2 As String = bcp.RadioService2 Dim radioQualifier2 As String = bcp.RadioQualifier2 'createradioqualifier Dim frequencyUnit2 As String = bcp.RadioFrequency2 If (frequencyUnit = "kHz") Then fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000) Else fromFrequency = CLng(bcp.FromFrequencyRange1 * 1000000000) End If If (frequencyUnit = "kHz") Then toFrequency = CLng(bcp.ToFrequencyRange1 * 1000) ElseIf (frequencyUnit = "MHz") Then toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000) Else toFrequency = CLng(bcp.ToFrequencyRange1 * 1000000000) End If If (allocationTable = "NonFederal") Then table = "N" ElseIf (allocationTable = "Federal") Then table = "F" Else table = String.Empty End If If (frequencyUnit2 = "kHz") Then fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000) Else fromPairedFrequency = CLng(bcp.FromPairedFrequency * 1000000000) End If If (frequencyUnit2 = "kHz") Then toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000) ElseIf (frequencyUnit2 = "MHz") Then toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000) Else toPairedFrequency = CLng(bcp.ToPairedFrequency * 1000000000) End If Dim wikiFrequency As WikiFrequency = New WikiFrequency() wikiFrequency.FrequencyType = "bcp" wikiFrequency.Frequency1Low = fromFrequency wikiFrequency.Frequency1High = toFrequency wikiFrequency.Description1 = txtBriefDescription wikiFrequency.Channel1 = txtChannelName wikiFrequency.Service1 = radioCommunicationService wikiFrequency.Qualifier1 = radioQualifier1 'for radio qualifier wikiFrequency.Frequency2Low = fromPairedFrequency wikiFrequency.Frequency2High = toPairedFrequency wikiFrequency.Description2 = pairedBreifDescription wikiFrequency.Channel2 = pairedChannelName wikiFrequency.Service2 = radioCommunicationService2 wikiFrequency.Qualifier2 = radioQualifier2 'for radio qualifier wikiFrequency.AllocationTable = table If (update_wiki_text_id > 0) Then wikiFrequency.WikiTextId = update_wiki_text_id Else wikiFrequency.WikiTextId = id End If Try WikiFrequencyBLL.InsertWikiFrequency(wikiFrequency) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If Next If temp_wiki_text_id > 0 Then Try If id > 0 Then WikiGraphicsBLL.DeleteWikiGraphicsByTextId(temp_wiki_text_id) WikiGraphicsBLL.InsertWikiGraphicsOriginal(temp_wiki_text_id) WikiGraphicsBLL.UpdateWikiGraphics(temp_wiki_text_id, id) Else WikiGraphicsBLL.DeleteWikiGraphicsByTextId(update_wiki_text_id) WikiGraphicsBLL.InsertWikiGraphicsOriginal(temp_wiki_text_id) WikiGraphicsBLL.UpdateWikiGraphics(temp_wiki_text_id, update_wiki_text_id) End If 'WikiGraphicsBLL.TempDeleteWikiGraphics(temp_wiki_text_id) 'ToDo: use bindgrid function 'BindGrid(temp_wiki_text_id) 'Session("WikiID") = temp_wiki_text_id 'WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) 'WikiTextBLL.TempDeleteWikiText(temp_wiki_text_id) 'WikiGraphicsBLL.TempDeleteWikiGraphics(temp_wiki_text_id) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try End If '______________________ 'commen on AUG 6 If (id > 0) Then Session("update_wiki_text_id") = id End If '______________________ 'Dim isreadonly As PropertyInfo = GetType(System.Collections.Specialized.NameValueCollection).GetProperty("IsReadOnly", BindingFlags.Instance Or BindingFlags.NonPublic) '' make collection editable 'isreadonly.SetValue(Me.Request.QueryString, False, Nothing) '' remove 'Me.Request.QueryString.Remove("TempWikiId") 'Me.Request.QueryString.Remove("TempWikiId") 'If (id > 0) Then ' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + id.ToString()) 'ElseIf (wiki_text_id > 0) Then ' Response.Redirect("~/wiki/AddEditPicture.aspx?WikiId=" + wiki_text_id.ToString()) 'End If 'BindGrid(temp_wiki_text_id) 'If id > 0 Then ' BindGrid(id) 'Else ' BindGrid(Convert.ToInt32(Session("update_wiki_text_id"))) 'End If temp_wiki_text_id BindGrid(temp_wiki_text_id) If id > 0 Then Response.Redirect("~/wiki/Preview.aspx?WikiTextId=" + id.ToString() + "&Id=" + CStr(temp_wiki_text_id) & "&nbCount=" & nbCount) Else Response.Redirect("~/wiki/Preview.aspx?WikiTextId=" + update_wiki_text_id.ToString() + "&Id=" + CStr(temp_wiki_text_id) & "&nbCount=" & nbCount) End If End Sub Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click Try WikiFrequencyBLL.TempDeleteWikiFrequency(temp_wiki_text_id) WikiGraphicsBLL.TempDeleteWikiGraphics(temp_wiki_text_id) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try Session.Remove("TempWikiID") Session.Remove("id") Session.Remove("update_wiki_text_id") Response.Redirect("~/wiki/Start.aspx") End Sub 'Sub HandleRemoveFrequencyBand(ByVal sender As Object, ByVal e As EventArgs) ' 'This handles delete event fired from the user control ' 'Get the user control that fired this event, and remove it ' Dim DynamicFreqBand As FrequencyBand = sender.parent ' pnlBandEntries.Controls.Remove(sender.parent) ' Dim nb As Integer = CInt(Request.QueryString("nb")) ' ViewState("nb") = nb - 1 'End Sub 'Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAdd.Click ' 'ViewState("nb") = ViewState("nb") + 1 ' 'Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") ' 'ctrl.FrequencyRangeNumber = ViewState("nb") + 1 ' 'pnlBandEntries.Controls.Add(ctrl) ' 'AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand 'End Sub Public Function GetPostBackControl(ByVal page As Page) As Control Dim control As Control = Nothing Dim ctrlname As String = page.Request.Params.[Get]("__EVENTTARGET") If Not IsNothing(ctrlname) And ctrlname <> String.Empty Then control = page.FindControl(ctrlname) Else For Each ctl As String In page.Request.Form Dim c As Control = page.FindControl(ctl) If TypeOf c Is System.Web.UI.WebControls.Button Then control = c Exit For End If Next End If Return control End Function Private Sub AddAndRemoveDynamicControls() 'Determine which control fired the postback event. Dim nb As Integer = 0 Dim c As Control = GetPostBackControl(Page) nb = CInt(Request.QueryString("nb")) If Not IsNothing(c) Then 'If the add button was clicked, increase the count to let the page know we want 'to display an additional user control If c.ID.ToString = "btnAdd" Then If ddlAdd.Text = "Frequency band" Then ltlCount.Text = Convert.ToInt16(ltlCount.Text) + 1 End If End If End If 'Be sure everything in the placeholder control is cleared out ' pnlBandEntries.Controls.Clear() Dim ControlID As Integer = 0 If nb <> Nothing Then 'Since these are dynamic user controls, re-add them every time the page loads. nbCount = (Convert.ToInt16(ltlCount.Text) + nb) For i As Integer = 1 To (nbCount) Dim DynamicUserControl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") DynamicUserControl.FrequencyRangeNumber = i 'If this particular control id has been deleted from the page, DO NOT use it again. If we do, it will 'pick up the viewstate data from the old item that had this control id, instead of generating 'a completely new control. Instead, increment the control id so we're guaranteed to get a "new" 'control that doesn't have any lingering information in the viewstate. While InDeletedList("uc" & ControlID) = True ControlID += 1 End While 'Note that if the item has not been deleted from the page, we DO want it to use the same control id 'as it used before, so it will automatically maintain the viewstate information of the user control 'for us. DynamicUserControl.ID = "uc" & ControlID 'Add an event handler to this control to raise an event when the delete button is clicked 'on the user control AddHandler DynamicUserControl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand 'Finally, add the user control to the panel pnlBandEntries.Controls.Add(DynamicUserControl) 'Increment the control id for the next round through the loop ControlID += 1 Next Else nbCount = (Convert.ToInt16(ltlCount.Text)) + Convert.ToInt32(Request.QueryString("nbCount")) For i As Integer = 1 To (nbCount) Dim ctrl As FrequencyBand = LoadControl("~/controls/FrequencyBand.ascx") If (wiki_text_id > 0) Then If Not IsPostBack Then Dim dt As DataTable = WikiTextBLL.GetWikiText(wiki_text_id) txtMainHeading.Text = dt.Rows(0)("head") txtDescription.Text = dt.Rows(0)("description") End If ctrl.FrequencyRangeNumber = i Dim count = 0 Dim frequency As List(Of WikiFrequency) = WikiFrequencyBLL.GetAllFrequencies(wiki_text_id) count = frequency.Count If count > i - 1 Then Select Case frequency(i - 1).FrequencyType.ToString() Case "b" 'Done ctrl.AllocationTable = frequency(i - 1).AllocationTable.ToString() ctrl.FromFrequencyRange1 = CDbl(frequency(i - 1).Frequency1Low) ctrl.ToFrequencyRange1 = CDbl(frequency(i - 1).Frequency1High) ctrl.BriefDescription = frequency(i - 1).Description1.ToString() ctrl.RadioService1 = frequency(i - 1).Service1.ToString() ctrl.RadioQualifier1 = frequency(i - 1).Qualifier1.ToString() ctrl.RadioFrequency = CDbl(frequency(i - 1).Frequency1Low) ctrl.wikiFrequencyId = frequency(i - 1).WikiFrequencyId Dim bfrequencyType As String = frequency(i - 1).FrequencyType 'If bfrequencyType = "b" Then ' ctrl.FrequencyRangeNumber = ib ' ib = ib + 1 'End If End Select End If ElseIf (temp_wiki_text_id > 0) Then If Not IsPostBack Then Dim dt As DataTable = WikiTextBLL.TempGetWikiText(temp_wiki_text_id) If dt.Rows.Count > 0 Then txtMainHeading.Text = dt.Rows(0)("head") txtDescription.Text = dt.Rows(0)("description") End If End If ctrl.FrequencyRangeNumber = i Dim count = 0 Dim frequency As List(Of WikiFrequency) = WikiFrequencyBLL.TempGetAllFrequencies(temp_wiki_text_id) count = frequency.Count If count > i - 1 Then Select Case frequency(i - 1).FrequencyType.ToString() Case "b" 'Done ctrl.AllocationTable = frequency(i - 1).AllocationTable.ToString() ctrl.FromFrequencyRange1 = CDbl(frequency(i - 1).Frequency1Low) ctrl.ToFrequencyRange1 = CDbl(frequency(i - 1).Frequency1High) ctrl.BriefDescription = frequency(i - 1).Description1.ToString() ctrl.RadioService1 = frequency(i - 1).Service1.ToString() ctrl.RadioQualifier1 = frequency(i - 1).Qualifier1.ToString() ctrl.RadioFrequency = CDbl(frequency(i - 1).Frequency1Low) ctrl.wikiFrequencyId = frequency(i - 1).WikiFrequencyId Dim bfrequencyType As String = frequency(i - 1).FrequencyType 'If bfrequencyType = "b" Then ' ctrl.FrequencyRangeNumber = ib ' ib = ib + 1 'End If End Select End If End If While InDeletedList("uc" & ControlID) = True ControlID += 1 End While ctrl.ID = "uc" & ControlID 'Add an event handler to this control to raise an event when the delete button is clicked 'on the user control AddHandler ctrl.RemoveFrequencyBand, AddressOf Me.HandleRemoveFrequencyBand 'Finally, add the user control to the panel pnlBandEntries.Controls.Add(ctrl) 'Increment the control id for the next round through the loop ControlID += 1 Dim freqRangecount As Integer = 0 Response.Clear() For Each cNb As Control In pnlBandEntries.Controls 'Find the specific user control that we added to this placeholder, and then get the selected values 'for the dropdownlist, checkbox, and textbox and print them to the screen. If cNb.GetType.Name.ToLower = "controls_frequencyband_ascx" Then freqRangecount = freqRangecount + 1 ctrl.FrequencyRangeNumber = freqRangecount End If Next Next End If End Sub Sub HandleRemoveFrequencyBand(ByVal sender As Object, ByVal e As EventArgs) 'This handles delete event fired from the user control Dim nb As Integer = CInt(Request.QueryString("nb")) If (nb <> Nothing) Then 'Get the user control that fired this event, and remove it Dim DynamicUserControll As FrequencyBand = sender.parent pnlBandEntries.Controls.Remove(sender.parent) 'Keep a pipe delimited list of which user controls were removed. This will increase the 'viewstate size if the user keeps removing dynamic controls, but under normal use 'this is such a small increase in size that it shouldn't be an issue. ltlRemoved.Text &= DynamicUserControll.ID & "|" 'Also, now that we've removed a user control decrement the count of total user controls on the page ltlCount.Text = Convert.ToInt16(ltlCount.Text) - 1 Else Dim DynamicUserControll As FrequencyBand = sender.parent pnlBandEntries.Controls.Remove(sender.parent) Try WikiFrequencyBLL.DeleteWikiFrequencyId(DynamicUserControll.wikiFrequencyId) Catch ex As Exception If ex.InnerException Is Nothing Then Logger.WriteToErrorLog(ex.Message) Else Logger.WriteToErrorLog(ex.Message, ex.InnerException.Message) End If End Try ltlRemoved.Text &= DynamicUserControll.ID & "|" 'Also, now that we've removed a user control decrement the count of total user controls on the page ltlCount.Text = Convert.ToInt16(ltlCount.Text) - 1 End If Dim freqRangecount As Integer = 0 Response.Clear() For Each cNb As Control In pnlBandEntries.Controls 'Find the specific user control that we added to this placeholder, and then get the selected values 'for the dropdownlist, checkbox, and textbox and print them to the screen. If cNb.GetType.Name.ToLower = "controls_frequencyband_ascx" Then Dim ucNb As UserControl = CType(cNb, UserControl) Dim lblFreqRangeNumber As Label = ucNb.FindControl("lblFrequencyRangeNumber") freqRangecount = freqRangecount + 1 lblFreqRangeNumber.Text = freqRangecount End If Next End Sub Private Function InDeletedList(ByVal ControlID As String) As Boolean 'Determine if the passed in user control id has been stored in the list of controls that 'were previously deleted off the page Dim DeletedList() As String = ltlRemoved.Text.Split("|") For i As Integer = 0 To DeletedList.GetLength(0) - 1 If ControlID.ToLower = DeletedList(i).ToLower Then Return True End If Next Return False End Function End Class