ASPX
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="C_Test.aspx.vb" Inherits="SMARTmig.C_Test" %>
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>C Test</title>
<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR" />
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE" />
<meta content="JavaScript" name="vs_defaultClientScript" />
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema" />
<script type="text/javascript">
function onTabSelecting(sender, args)
{
if (args.get_tab().get_pageViewID())
{
args.get_tab().set_postBack(false);
//--alert(args.get_tab().get_pageViewID())
//--alert(args.get_tab().get_postBack())
}
}
</script>
</head>
<body>
<form id="form1" method="post" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
</telerik:RadScriptManager>
<telerik:RadAjaxLoadingPanel ID="LoadingPanel1" runat="server">
<table cellspacing="0" cellpadding="15" width="100%" border="0">
<tr>
<td bgcolor="#f3f3f3">
</td>
</tr>
<tr>
<td bgcolor="#f3f3f3">
</td>
</tr>
<tr>
<td bgcolor="#f3f3f3">
</td>
</tr>
<tr>
<td bgcolor="#f3f3f3">
</td>
</tr>
<tr>
<td bgcolor="#f3f3f3">
<asp:Image runat="server" ID="LoadingImage1" ImageUrl="../images/loading.gif" AlternateText="Loading..." />
</td>
</tr>
</table>
</telerik:RadAjaxLoadingPanel>
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="RadTabStrip1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadTabStrip1" />
<telerik:AjaxUpdatedControl ControlID="RadMultiPage1" LoadingPanelID="LoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadMultiPage1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadMultiPage1" LoadingPanelID="LoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<table cellspacing="0" cellpadding="15" width="100%" border="0">
<tr>
<td bgcolor="#f3f3f3">
<font face="Arial, Helvetica, sans-serif" color="#732928" size="2"><strong>Click the
tabs below for further details on each phase of the SMART process.</strong></font></td>
</tr>
</table>
<table cellspacing="0" cellpadding="15" width="100%" border="0">
<tr>
<td bgcolor="#f3f3f3" colspan="2">
<telerik:RadTabStrip OnClientTabSelecting="onTabSelecting" ID="RadTabStrip1"
SelectedIndex="0" runat="server" MultiPageID="RadMultiPage1" Skin="Gray" Align="Justify"
Width="800px" Orientation="HorizontalTop">
</telerik:RadTabStrip>
<telerik:RadMultiPage ID="RadMultiPage1" runat="server" SelectedIndex="0"
CssClass="MultiPage" Width="800px">
</telerik:RadMultiPage>
</td>
</tr>
</table>
</form>
</body>
</html>
VB.NET
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports Telerik.Web.UI
Imports Microsoft.VisualBasic
Namespace SMARTmig
Partial Class C_Test
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
AddTab("TabOne")
AddTab("TabTwo")
AddTab("TabThree")
AddPageView(RadTabStrip1.FindTabByText("TabOne"))
End If
End Sub
Private Sub AddTab(ByVal tabName As String)
Dim tab As RadTab = New RadTab
tab.Text = tabName
RadTabStrip1.Tabs.Add(tab)
End Sub
Protected Sub RadTabStrip1_TabClick(ByVal sender As Object, ByVal e As RadTabStripEventArgs) Handles RadTabStrip1.TabClick
AddPageView(e.Tab)
e.Tab.PageView.Selected = True
End Sub
Private Sub AddPageView(ByVal tab As RadTab)
Dim pageView As RadPageView = New RadPageView
pageView.ID = tab.Text
RadMultiPage1.PageViews.Add(pageView)
pageView.CssClass = "pageView"
tab.PageViewID = pageView.ID
End Sub
Protected Sub RadMultiPage1_PageViewCreated(ByVal sender As Object, ByVal e As RadMultiPageEventArgs) Handles RadMultiPage1.PageViewCreated
Dim userControlName As String = e.PageView.ID + "VB.ascx"
Dim userControl As Control = Page.LoadControl(userControlName)
userControl.ID = e.PageView.ID & "_userControl"
e.PageView.Controls.Add(userControl)
End Sub
End Class
End Namespace
ASCX for tab one
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="TabOneVB.ascx.vb" Inherits="Admin_TabOneVB" %>
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<table cellspacing="0" cellpadding="15" width="100%" border="1">
<tr>
<td bgcolor="#f3f3f3">
<img href="#" alt="" src="../images/org_assess_bckgrd.gif" /><br />
<br />
<font face="Arial, Helvetica, sans-serif" color="#732928" size="2"><strong>Assessment!</strong><br />
<br />
<strong>When to clients:</strong><ul>
<li>They are looking whom.</li>
<li>They want to align skills </li>
<li>They want to develop an.</li>
<li>They want to costs.</li>
<li>They want to document</li>
<li>They know that requirements.</li>
</ul>
</font>
<asp:Label runat="server" ID="asmt"></asp:Label>
</td>
</tr>
</table>
ASCX.VB for tab one
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports Telerik.Web.UI
Imports Microsoft.VisualBasic
Partial Class Admin_TabOneVB
Inherits System.Web.UI.UserControl
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Call RunOne()
End Sub
Public Sub RunOne()
'SQL Database connection
Dim sConnect As New SMARTmig.ConnectSMART.Connections
Dim cn As New SqlConnection
cn.ConnectionString = sConnect.GetConnectionString
Dim ta As String = Request.QueryString("ta")
Dim myCM As New SqlCommand
myCM.Connection = cn
myCM.CommandType = CommandType.StoredProcedure
myCM.CommandText = "Query_TA_RegStatsV2"
Dim myParm As New SqlParameter("@BeginDT", SqlDbType.VarChar)
myParm.Value = "1/1/2009"
myParm.Direction = ParameterDirection.Input
myCM.Parameters.Add(myParm)
myParm = New SqlParameter("@EndDT", SqlDbType.VarChar)
myParm.Value = "3/1/2009"
myParm.Direction = ParameterDirection.Input
myCM.Parameters.Add(myParm)
myParm = New SqlParameter("@TA", SqlDbType.VarChar)
myParm.Value = "%gretz%"
myParm.Direction = ParameterDirection.Input
myCM.Parameters.Add(myParm)
Dim myCMD As New SqlDataAdapter
myCMD.SelectCommand = myCM
Dim es As DataSet = New DataSet
myCMD.Fill(es, "dAP")
Dim myDataTable As DataTable
myDataTable = es.Tables("dAP")
cn.Close()
'Response.Write("test")
Dim myRow As DataRow
Dim currRows() As DataRow = myDataTable.Select(Nothing, Nothing, DataViewRowState.CurrentRows)
For Each myRow In currRows
asmt.Text = myRow("lastname")
Exit For
Next
End Sub
End Class
ASCX for Tab Two
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="TabTwoVB.ascx.vb" Inherits="Admin_TabTwoVB" %>
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
<table cellspacing="0" cellpadding="15" width="100%" border="1">
<tr>
<td bgcolor="#f3f3f3">
<img href="#" alt="" src="../images/org_assess_bckgrd.gif" /><br />
<br />
<font face="Arial, Helvetica, sans-serif" color="#732928" size="2"><strong>Definition!</strong><br />
<br />
<strong>When to clients:</strong><ul>
<li>They are looking whom.</li>
<li>They want to align skills </li>
<li>They want to develop an.</li>
<li>They want to costs.</li>
<li>They want to document</li>
<li>They know that requirements.</li>
</ul>
</font>
<asp:Label runat="server" ID="def"></asp:Label>
</td>
</tr>
</table>
ASCX.VB for tab two
Imports Microsoft.VisualBasic
Partial Class Admin_TabTwoVB
Inherits System.Web.UI.UserControl
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
RunTwo()
End Sub
Public Sub RunTwo()
'SQL Database connection
Dim sConnect As New SMARTmig.ConnectSMART.Connections
Dim cn As New SqlConnection
cn.ConnectionString = sConnect.GetConnectionString
Dim ta As String = Request.QueryString("ta")
Dim myCM As New SqlCommand
myCM.Connection = cn
myCM.CommandType = CommandType.StoredProcedure
myCM.CommandText = "Query_TA_RegStatsV2"
Dim myParm As New SqlParameter("@BeginDT", SqlDbType.VarChar)
myParm.Value = "1/1/2009"
myParm.Direction = ParameterDirection.Input
myCM.Parameters.Add(myParm)
myParm = New SqlParameter("@EndDT", SqlDbType.VarChar)
myParm.Value = "3/1/2009"
myParm.Direction = ParameterDirection.Input
myCM.Parameters.Add(myParm)
myParm = New SqlParameter("@TA", SqlDbType.VarChar)
myParm.Value = "%larson%"
myParm.Direction = ParameterDirection.Input
myCM.Parameters.Add(myParm)
Dim myCMD As New SqlDataAdapter
myCMD.SelectCommand = myCM
Dim es As DataSet = New DataSet
myCMD.Fill(es, "dAP")
Dim myDataTable As DataTable
myDataTable = es.Tables("dAP")
cn.Close()
'Response.Write("test")
Dim myRow As DataRow
Dim currRows() As DataRow = myDataTable.Select(Nothing, Nothing, DataViewRowState.CurrentRows)
For Each myRow In currRows
def.Text = myRow("lastname")
Exit For
Next
End Sub
End Class
var
doc=this._textIframe.contentWindow.document;
javascript:'<html></html>

radNotes.CssFiles.Add(new EditorCssFile("~/Styles/" + radEditorCSS));p { margin: 0px; } P { margin: 0px; } body{ font-family: Courier New !important; font-size: 10pt !important;}<telerik:RadGrid ID="RadGrid1" AutoGenerateColumns="False" AutoGenerateHierarchy="True" AllowMultiRowEdit="true" Width="70%" OnNeedDataSource="RadGrid1_NeedDataSource" runat="server"> <ClientSettings EnableAlternatingItems="false"> <Scrolling UseStaticHeaders="true" /> </ClientSettings> <MasterTableView DataKeyNames="CategoryId" EditMode="InPlace" TableLayout="Fixed"> <DetailTables> <telerik:GridTableView DataKeyNames="CategoryId,TypeId" runat="server"> <ParentTableRelation> <telerik:GridRelationFields DetailKeyField="CategoryId" MasterKeyField="CategoryId" /> </ParentTableRelation> <DetailTables> <telerik:GridTableView DataKeyNames="TypeId,ContactName" runat="server"> <ParentTableRelation> <telerik:GridRelationFields DetailKeyField="TypeId" MasterKeyField="TypeId" /> </ParentTableRelation> <Columns> <telerik:GridBoundColumn DataField="TypeId" DataType="System.String" ReadOnly="true" Visible="false" UniqueName="TypeId" /> <telerik:GridBoundColumn DataField="ContactName" DataType="System.String" HeaderText="Contact Name" ReadOnly="true" UniqueName="ContactName" /> <telerik:GridCheckBoxColumn DataField="Email" DataType="System.Boolean" HeaderText="Email" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center" ReadOnly="false" UniqueName="Email" /> <telerik:GridCheckBoxColumn DataField="SMS" DataType="System.Boolean" HeaderText="SMS" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center" ReadOnly="false" UniqueName="SMS" /> <telerik:GridCheckBoxColumn DataField="NotifyByEmail" DataType="System.Boolean" HeaderText="Notify By Email" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center" ReadOnly="false" UniqueName="NotifyByEmail" /> </Columns> </telerik:GridTableView> </DetailTables> <Columns> <telerik:GridBoundColumn DataField="CategoryId" DataType="System.String" ReadOnly="true" Visible="false" UniqueName="CategoryId" /> <telerik:GridBoundColumn DataField="TypeId" DataType="System.String" ReadOnly="true" Visible="false" UniqueName="TypeId" /> <telerik:GridBoundColumn DataField="TypeName" DataType="System.String" HeaderText="Type Name" ReadOnly="true" UniqueName="TypeName" /> <telerik:GridCheckBoxColumn DataField="NoEncryption" DataType="System.Boolean" HeaderText="Encryption Not Required" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center" ReadOnly="false" UniqueName="NoEncryption" /> </Columns> </telerik:GridTableView> </DetailTables> <Columns> <telerik:GridBoundColumn DataField="CategoryId" DataType="System.String" ReadOnly="true" Visible="false" UniqueName="CategoryId" /> <telerik:GridBoundColumn DataField="CategoryName" DataType="System.String" HeaderText="Category Name" ReadOnly="true" UniqueName="CategoryName" /> </Columns> </MasterTableView></telerik:RadGrid>public partial class HierarchyWithDS : System.Web.UI.Page{ private DataSet _dataSet = null; protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { if (_dataSet == null) _dataSet = CreateDataSet(); Session["DATASET"] = _dataSet; } else { _dataSet = (DataSet)Session["DATASET"]; } SetEditMode(); } protected void RadGrid1_NeedDataSource(object source, GridNeedDataSourceEventArgs e) { this.RadGrid1.DataSource = _dataSet; } private void SetEditMode() { int size = 0; for (int i = 0; i < _dataSet.Tables.Count; i++) { size += _dataSet.Tables[i].Rows.Count; } for (int i = 0; i < size; i++) { this.RadGrid1.EditIndexes.Add(i); } } private DataSet CreateDataSet() { DataSet dataSet = new DataSet(); // Category table DataTable dtCategory = new DataTable("Category"); dtCategory.Columns.Add("CategoryId", typeof(string)); dtCategory.Columns.Add("CategoryName", typeof(string)); dataSet.Tables.Add(dtCategory); foreach (Category category in Category.Load()) { DataRow row = dataSet.Tables["Category"].NewRow(); row["CategoryId"] = category.CategoryId; row["CategoryName"] = category.CategoryName; dataSet.Tables["Category"].Rows.Add(row); } // Type table DataTable dtType = new DataTable("Type"); dtType.Columns.Add("CategoryId", typeof(string)); dtType.Columns.Add("TypeId", typeof(string)); dtType.Columns.Add("TypeName", typeof(string)); dtType.Columns.Add("NoEncryption", typeof(bool)); dataSet.Tables.Add(dtType); foreach (Category category in Category.Load()) { foreach (Type type in Type.Load()) { if (category.CategoryId == type.CategoryId) { DataRow row = dataSet.Tables["Type"].NewRow(); row["CategoryId"] = type.CategoryId; row["TypeId"] = type.TypeId; row["TypeName"] = type.TypeName; row["NoEncryption"] = type.NoEncryption; dataSet.Tables["Type"].Rows.Add(row); } } } // Subscription table DataTable dtSubscription = new DataTable("Subscription"); dtSubscription.Columns.Add("TypeId", typeof(string)); dtSubscription.Columns.Add("ContactName", typeof(string)); dtSubscription.Columns.Add("Email", typeof(bool)); dtSubscription.Columns.Add("SMS", typeof(bool)); dtSubscription.Columns.Add("NotifyByEmail", typeof(bool)); dataSet.Tables.Add(dtSubscription); foreach (Type type in Type.Load()) { foreach (Subscription subscription in Subscription.Load()) { if (type.TypeId == subscription.TypeId) { DataRow row = dataSet.Tables["Subscription"].NewRow(); row["TypeId"] = subscription.TypeId; row["ContactName"] = subscription.ContactName; row["Email"] = subscription.Email; row["SMS"] = subscription.SMS; row["NotifyByEmail"] = subscription.NotifyByEmail; dataSet.Tables["Subscription"].Rows.Add(row); } } } // Table relations dataSet.Relations.Add(new DataRelation("Category-Type", dataSet.Tables["Category"].Columns["CategoryId"], dataSet.Tables["Type"].Columns["CategoryId"])); dataSet.Relations.Add(new DataRelation("Type-Subscription", dataSet.Tables["Type"].Columns["TypeId"], dataSet.Tables["Subscription"].Columns["TypeId"])); return dataSet; }}public class Category{ public string CategoryId { get; set; } public string CategoryName { get; set; } public Category(string categoryId = null, string categoryName = null) { CategoryId = categoryId; CategoryName = categoryName; } public static List<Category> Load() { List<Category> category = new List<Category>(); category.Add(new Category("NEM_STATEMENTS", "NEM Statements")); return category; }}public class Type{ public string CategoryId { get; set; } public string TypeId { get; set; } public string TypeName { get; set; } public bool NoEncryption { get; set; } public Type(string categoryId = null, string typeId = null, string typeName = null, bool noEncryption = false) { CategoryId = categoryId; TypeId = typeId; TypeName = typeName; NoEncryption = noEncryption; } public static List<Type> Load() { List<Type> type = new List<Type>(); type.Add(new Type("NEM_STATEMENTS", "NEM_STMT_PRELIM", "Preliminary")); type.Add(new Type("NEM_STATEMENTS", "NEM_STMT_FINAL", "Final")); type.Add(new Type("NEM_STATEMENTS", "NEM_STMT_REVISION", "Revision")); return type; }}public class Subscription{ public string TypeId { get; set; } public string ContactName { get; set; } public bool Email { get; set; } public bool SMS { get; set; } public bool NotifyByEmail { get; set; } public Subscription(string typeId = null, string contactName = null, bool email = false, bool sms = false, bool notifyByEmail = false) { TypeId = typeId; ContactName = contactName; Email = email; SMS = sms; NotifyByEmail = notifyByEmail; } public static List<Subscription> Load() { List<Subscription> subscription = new List<Subscription>(); subscription.Add(new Subscription("NEM_STMT_PRELIM", "Inger Wills")); subscription.Add(new Subscription("NEM_STMT_PRELIM", "Keith Armstrong")); subscription.Add(new Subscription("NEM_STMT_PRELIM", "Lance McMinn")); subscription.Add(new Subscription("NEM_STMT_FINAL", "Inger Wills")); subscription.Add(new Subscription("NEM_STMT_FINAL", "Keith Armstrong")); subscription.Add(new Subscription("NEM_STMT_FINAL", "Lance McMinn")); subscription.Add(new Subscription("NEM_STMT_REVISION", "Inger Wills")); subscription.Add(new Subscription("NEM_STMT_REVISION", "Keith Armstrong")); subscription.Add(new Subscription("NEM_STMT_REVISION", "Lance McMinn")); return subscription; }}

RadWindowManager1.OnClientClose = "FuncName";which generates this in the client: