or
If System.Web.HttpContext.Current.Session("state") IsNot Nothing Then If System.Web.HttpContext.Current.Session("state").ToString = "SaveAsDraft" Then If TypeOf e.Item Is GridDataItem Then Dim item As GridDataItem = TryCast(e.Item, GridDataItem) ViewState("EmailIdValue") = item("id").Text End If If TypeOf e.Item Is GridEditFormItem And e.Item.IsInEditMode Then If e.Item.OwnerTableView.IsItemInserted Then Dim record As New DataTable If ViewState("EmailIdValue") <> "" Then record = GetDataTable("select * from t_EmailFiling where id='" & ViewState("EmailIdValue") & "'") End If If record.Rows.Count > 0 Then Dim insertItem As GridEditFormInsertItem = DirectCast(e.Item, GridEditFormInsertItem) CType(insertItem.FindControl("Recipient"), RadTextBox).Text = record.Rows(0)("Recipient").ToString() CType(insertItem.FindControl("RecipientCC"), RadTextBox).Text = record.Rows(0)("RecipientCC").ToString() CType(insertItem.FindControl("RecipientBCC"), RadTextBox).Text = record.Rows(0)("RecipientBCC").ToString() CType(insertItem.FindControl("Subject"), RadTextBox).Text = record.Rows(0)("Subject").ToString() CType(insertItem.FindControl("Message"), RadEditor).Content = record.Rows(0)("Message").ToString() End If End If End If End If End IfContentFilters="RemoveScripts,FixUlBoldItalic,IECleanAnchors,MozEmStrong,ConvertFontToSpan,ConvertToXhtml,IndentHTMLContent,ConvertCharactersToEntities,FixEnclosingP"
Would anyone be able to offer some advice on how this problem can be resolved?

<telerik:RadWindowManager ID="rwm" runat="server" ShowContentDuringLoad="false" Behaviors="Close,Move"
VisibleStatusbar="false" Skin="Gray" Modal="true" KeepInScreenBounds = "true">
<Windows>
<telerik:RadWindow ID="rwAuditCredentials" runat="server" NavigateUrl="~/Pages/Audits/AuditCredentials.aspx"
Title="Audit Credentials" Height="230px" Width="360px" KeepInScreenBounds="true">
</telerik:RadWindow>
</Windows>
</telerik:RadWindowManager>
<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server"> <script type="text/javascript"> function openRadWindow(email) { var oWnd = radopen("appuntamento.aspx?email=" + email, "RadWindowAppuntamento"); } </script> </telerik:RadCodeBlock> <telerik:RadWindowManager ID="RadWindow_Conferma" runat="server" Modal="True" Skin="Office2010Silver"> <Windows> <telerik:RadWindow ID="RadWindowAppuntamento" runat="server" Style="z-index: 8000" ShowContentDuringLoad="false" Behaviors="None" AutoSize="true" Modal="True" Behavior="None" Font-Names="Verdana" Font-Size="Small" ReloadOnShow="True" IconUrl="/image/iconlogo.png" Width="200px" Height="100px" VisibleStatusbar="False" Skin="Office2010Silver" NavigateUrl="appuntamento.aspx" EnableViewState="False" InitialBehaviors="Close"> </telerik:RadWindow> </Windows> </telerik:RadWindowManager>Private Sub Btn3_Click(sender As Object, e As System.EventArgs) Handles Btn3.Click ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "key", "openRadWindow('" & contenitoredati.Value & "');", True)End Subfunction ViewRating(sender, args) { PageMethods.set_path('default.aspx'); PageMethods.OpenRating();}<System.Web.Services.WebMethod()> _Public Shared Sub OpenRating() Dim currPg As Page = DirectCast(HttpContext.Current.Handler, Page) Dim mgr As RadWindowManager = DirectCast(currPg.FindControl("wndMgrDefault"), RadWindowManager) Dim wndRatings As New RadWindow Dim ht As Integer = CInt(HttpContext.Current.Session("WND_HT").ToString) Dim wd As Integer = CInt(HttpContext.Current.Session("WND_WD").ToString) With wndRatings ... End With mgr.Windows.Add(wndRatings)End Sub