**************
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