If Not Page.IsPostBack Then ViewState("testme") = "test view state" Else TestLabel.Text = "--" & ViewState("testme") End IfPrivate pPageStatePersister As PageStatePersister' DB/Disk persisted viewstateProtected Overrides ReadOnly Property PageStatePersister As PageStatePersister Get If pPageStatePersister Is Nothing Then If Not String.IsNullOrEmpty(GlobalAppSettings.ViewStatePersister) Then pPageStatePersister = New ViewStatePersister(Me) Else pPageStatePersister = New HiddenFieldPageStatePersister(Me) End If End If Return pPageStatePersister End GetEnd Property<telerik:RadGrid ID="RadGridPendingCorrespondence" runat="server"
AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False"
Font-Size="Larger" ShowStatusBar="True" Skin="Outlook" GridLines="None"
onitemcommand="RadGridPendingCorrespondence_ItemCommand" Width="970px">
<AlternatingItemStyle BackColor="#80FFFF" />
<
MasterTableView TableLayout="Fixed">
<
RowIndicatorColumn>
<
HeaderStyle Width="20px"></HeaderStyle>
</
RowIndicatorColumn>
<
ExpandCollapseColumn>
<
HeaderStyle Width="20px"></HeaderStyle>
</
ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="CORRESPONDENCEID" Display="False"
HeaderText="Corr ID" UniqueName="column">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="FIRSTNAME" HeaderText="Name"
UniqueName="NAME">
<HeaderStyle Width="100px" />
<ItemStyle />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="LASTNAME" UniqueName="column6">
<ItemStyle Width="100px"/>
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="ConstituentTypeID"
HeaderText="Constituent Type" UniqueName="column2">
<ItemStyle />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Subject" HeaderText="Subject"
UniqueName="Subject">
<HeaderStyle Width="125px" />
<ItemStyle Width="125px" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Description"
HeaderText="Correspondence Type" UniqueName="column4">
<HeaderStyle Width="100px" />
<ItemStyle />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Due Date" HeaderText="Due Date"
UniqueName="column5">
<HeaderStyle Width="75px" />
<ItemStyle />
</telerik:GridBoundColumn>
<telerik:GridButtonColumn FooterText="" DataTextFormatString="Reply E-mail"
UniqueName="EMAIL" HeaderText="Action to Take " CommandName="EMAIL"
DataTextField="ID">
<ItemStyle Width="75px" />
</telerik:GridButtonColumn>
<telerik:GridButtonColumn FooterText="" DataTextFormatString="Reply Letter"
UniqueName="LETTER" HeaderText="" CommandName="LETTER"
DataTextField="ID">
<ItemStyle Width="75px" />
</telerik:GridButtonColumn>
</Columns>
An unhandled exception was generated during the execution of the
current web request. Information regarding the origin and location of the
exception can be identified using the exception stack trace below.
|
|
<telerik:RadRotator ID="RadRotator1" runat="server" DataSource="LinqDataSource1" FrameDuration="2000" Height="20px" ItemHeight="20" Width="570px" ItemWidth="570" ScrollDuration="2000" ScrollDirection="Up"> <ItemTemplate> <div class="results"> <table class="rTable"> <tr> <td class="leftCell"> <asp:Literal ID="lit_Title" runat="server" Text='<%= Bind("Title")%>'></asp:Literal> </td> <td class="figure"> <asp:Literal ID="lit_Total" runat="server" Text='<%= Bind("Total") %>'></asp:Literal> </td> <td class="figure"> <asp:Literal ID="lit_TypeA" runat="server" Text='<%= Bind("TypeA") %>'></asp:Literal> </td> <td class="figure"> <asp:Literal ID="lit_TypeB" runat="server" Text='<%= Bind("TypeB") %>'></asp:Literal> </td> <td class="figure"> <asp:Literal ID="lit_TypeC" runat="server" Text='<%= Bind("TypeC")%>'></asp:Literal> </td> <td class="figure"> <asp:Literal ID="lit_TypeD" runat="server" Text='<%= Bind("TypeD") %>'></asp:Literal> </td> <td class="figure"> <asp:Literal ID="lit_TypeE" runat="server" Text='<%= Bind("TypeE") %>'></asp:Literal> </td> </tr> </table> </div> </ItemTemplate> </telerik:RadRotator> <asp:LinqDataSource ID="LinqDataSource1" runat="server" OnSelecting="LinqDataSource1_Selecting"> </asp:LinqDataSource>Protected Sub LinqDataSource1_Selecting(sender As Object, e As LinqDataSourceSelectEventArgs) Handles LinqDataSource1.Selecting Dim db As New TestDataContext Dim tickerquery As New StringBuilder tickerquery.Append("DECLARE @ALL_Total int ") tickerquery.Append("DECLARE @ABC_Total int ") tickerquery.Append("DECLARE @XYZ_Total int ") tickerquery.Append("DECLARE @ALL_TypeA int ") tickerquery.Append("DECLARE @ABC_TypeA int ") tickerquery.Append("DECLARE @XYZ_TypeA int ") tickerquery.Append("DECLARE @ALL_TypeB int ") tickerquery.Append("DECLARE @ABC_TypeB int ") tickerquery.Append("DECLARE @XYZ_TypeB int ") tickerquery.Append("DECLARE @ALL_TypeC int ") tickerquery.Append("DECLARE @ABC_TypeC int ") tickerquery.Append("DECLARE @XYZ_TypeC int ") tickerquery.Append("DECLARE @ALL_TypeD int ") tickerquery.Append("DECLARE @ABC_TypeD int ") tickerquery.Append("DECLARE @XYZ_TypeD int ") tickerquery.Append("DECLARE @ALL_TypeE int ") tickerquery.Append("DECLARE @ABC_TypeE int ") tickerquery.Append("DECLARE @XYZ_TypeE int ") tickerquery.Append("DECLARE @ALL_Title nvarchar(3) ") tickerquery.Append("DECLARE @ABC_Title nvarchar(3) ") tickerquery.Append("DECLARE @XYZ_Title nvarchar(3) ") tickerquery.Append("SET @ALL_Title = 'ALL' ") tickerquery.Append("SET @ABC_Title = 'ABC' ") tickerquery.Append("SET @XYZ_Title = 'XYZ' ") tickerquery.Append("DECLARE @Count_Tbl table (Title nvarchar(3), Total int, TypeA int, TypeB int, TypeC int, TypeD int, TypeE int) ") tickerquery.Append("SELECT @ALL_Total = (SELECT Count(ProdID) FROM Products) ") tickerquery.Append("SELECT @ABC_Total = (SELECT Count(ProdID) FROM Products WHERE Category = 'ABC') ") tickerquery.Append("SELECT @XYZ_Total = (SELECT Count(ProdID) FROM Products WHERE Category = 'XYZ') ") tickerquery.Append("SELECT @ALL_TypeA = (SELECT Count(ProdID) FROM Products WHERE Productstatus = 'TypeA') ") tickerquery.Append("SELECT @ABC_TypeA = (SELECT Count(ProdID) FROM Products WHERE Category = 'ABC' AND Productstatus = 'TypeA') ") tickerquery.Append("SELECT @XYZ_TypeA = (SELECT Count(ProdID) FROM Products WHERE Category = 'XYZ' AND Productstatus = 'TypeA') ") tickerquery.Append("SELECT @ALL_TypeB = (SELECT Count(ProdID) FROM Products WHERE Productstatus = 'TypeB') ") tickerquery.Append("SELECT @ABC_TypeB = (SELECT Count(ProdID) FROM Products WHERE Category = 'ABC' AND Productstatus = 'TypeB') ") tickerquery.Append("SELECT @XYZ_TypeB = (SELECT Count(ProdID) FROM Products WHERE Category = 'XYZ' AND Productstatus = 'TypeB') ") tickerquery.Append("SELECT @ALL_TypeC = (SELECT Count(ProdID) FROM Products WHERE Productstatus = 'TypeC') ") tickerquery.Append("SELECT @ABC_TypeC = (SELECT Count(ProdID) FROM Products WHERE Category = 'ABC' AND Productstatus = 'TypeC') ") tickerquery.Append("SELECT @XYZ_TypeC = (SELECT Count(ProdID) FROM Products WHERE Category = 'XYZ' AND Productstatus = 'TypeC') ") tickerquery.Append("SELECT @ALL_TypeD = (SELECT Count(ProdID) FROM Products WHERE Productstatus = 'TypeD') ") tickerquery.Append("SELECT @ABC_TypeD = (SELECT Count(ProdID) FROM Products WHERE Category = 'ABC' AND Productstatus = 'TypeD') ") tickerquery.Append("SELECT @XYZ_TypeD = (SELECT Count(ProdID) FROM Products WHERE Category = 'XYZ' AND Productstatus = 'TypeD') ") tickerquery.Append("SELECT @ALL_TypeE = (SELECT Count(ProdID) FROM Products WHERE Productstatus <> 'TypeD') ") tickerquery.Append("SELECT @ABC_TypeE = (SELECT Count(ProdID) FROM Products WHERE Category = 'ABC' AND Productstatus = 'TypeE') ") tickerquery.Append("SELECT @XYZ_TypeE = (SELECT Count(ProdID) FROM Products WHERE Category = 'XYZ' AND Productstatus = 'TypeE') ") tickerquery.Append("INSERT INTO @Count_Tbl (Title, Total, TypeA, TypeB, TypeC, TypeD, TypeE SELECT @ALL_Title, @ALL_Total, @ALL_TypeA, @ALL_TypeB, @ALL_TypeC, @ALL_TypeD, @ALL_TypeE ") tickerquery.Append("INSERT INTO @Count_Tbl (Title, Total, TypeA, TypeB, TypeC, TypeD, TypeE SELECT @ABC_Title, @ABC_Total, @ABC_TypeA, @ABC_TypeB, @ABC_TypeC, @ABC_TypeD, @ABC_TypeE ") tickerquery.Append("INSERT INTO @Count_Tbl (Title, Total, TypeA, TypeB, TypeC, TypeD, TypeE SELECT @XYZ_Title, @XYZ_Total, @XYZ_TypeA, @XYZ_TypeB, @XYZ_TypeC, @XYZ_TypeD, @XYZ_TypeE ") tickerquery.Append("SELECT Title, Total, TypeA, TypeB, TypeC, TypeD, TypeE FROM @Count_Tbl") Dim results As IEnumerable(Of ProductCount) = _ db.ExecuteQuery(Of ProductCount) _ (tickerquery.ToString) e.Result = results End SubThe 'DataSource' property cannot be set declaratively ..... any help appreciated.


