Support forums » Products » Cute Editor for .NET » Failed to load Viewstate Error occurs when using Cute Editor

Failed to load Viewstate Error occurs when using Cute Editor

05-02-2008, 2:54 PM

tavogardo
Joined on 05-02-2008
Posts 3

Failed to load Viewstate Error occurs when using Cute Editor

Reply Quote

I am trying out CuteEditor to see if I can use it on my websites. I first fill a gridview with data from a Sql Table. I then select a detailsview of the item I am interested in. But, when I when I click on the Edit button, it returns to the gridview instead of entering the edit mode of the detailsview. If I then click the select button on the gridview , I get the following error:

Server Error in '/solutions' Application.

Failed to load viewstate. The control tree into which viewstate is being loaded must match the control tree that was used to save viewstate during the previous request. For example, when adding controls dynamically, the controls added during a post-back must match the type and position of the controls added during the initial request.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Web.HttpException: Failed to load viewstate. The control tree into which viewstate is being loaded must match the control tree that was used to save viewstate during the previous request. For example, when adding controls dynamically, the controls added during a post-back must match the type and position of the controls added during the initial request.

Source Error:

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.

Stack Trace:

[HttpException (0x80004005): Failed to load viewstate.  The control tree into which viewstate is being loaded must match the control tree that was used to save viewstate during the previous request.  For example, when adding controls dynamically, the controls added during a post-back must match the type and position of the controls added during the initial request.]
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +310
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +136
            System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +224
            System.Web.UI.Page.LoadAllState() +439
            System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1092

Version Information: Microsoft .NET Framework Version:2.0.50727.1433; ASP.NET Version:2.0.50727.1433

My ASPX page code is listed below:

<%@ Page Language="VB" AutoEventWireup="false" ValidateRequest="false" CodeFile="TextClipsMaintenance.aspx.vb"

Inherits="SysMaint_TextClipsMaintenance" %>

<%@ Register TagPrefix="CE" Namespace="CuteEditor" Assembly="CuteEditor" %>

<%@ Import Namespace="Common.Utility.Utils" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<title>Abilities!: Text Clips Maintenance</title>

var startCal, endCal;

window.onload = function() {

startCal = new Epoch('cal1','popup',document.getElementById('dvClips_tbStartDate'));

endCal = new Epoch('cal1','popup',document.getElementById('dvClips_tbEndDate'));

};

</script>

#maintSection caption

{

font-size: 14pt;

color: #000;

font-weight: bold;

}

.cmdbutton {

border: solid black 1px;

background-color: white;

color: black;

}

DIV.base {

display:block;

width:auto;

margin:0;

padding:0;

}

DIV.left {

display :inline;

width: 18%;

float : left;

margin : 0;

padding : 0;

}

DIV.right {

display :inline;

width:auto;

border : none;

float : left;

margin : 0;

padding : 0;

vertical-align:middle;

}

</style>

</head>

<body>

<a href="#links">skip to links</a></div>

<a href="#content">skip to main content</a></div>

Abilities!</a></div>

</div>

<br />

<h1>

Text Clips Maintenance</h1>

<br />

<asp:Panel ID="pnlListing" runat="server">

<asp:GridView ID="gvClips"

runat="server"

AllowPaging="True"

AllowSorting="True"

AutoGenerateColumns="False"

DataKeyNames="Id"

DataSourceID="SqlDataSource1"

CellPadding="5"

GridLines="Horizontal"

BorderColor="Black"

BorderWidth="1"

Caption="List of Current Text Clips"

CaptionAlign="Top">

<asp:BoundField DataField="Id" Visible="false" />

<asp:TemplateField HeaderText="Entry Type" AccessibleHeaderText="Type of entry being displayed.">

<asp:Label OnDataBinding="convertType" ID="lblType" runat="server" Text='<%#Eval("EntryType")%>'></asp:Label>

</ItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Clip Descriptive Text"

AccessibleHeaderText="The text that will be displayed in the clip box.">

<asp:Label ID="lblClip" runat="server" Text='<%#Eval("ItemDescriptiveText") %>'></asp:Label>

</ItemTemplate>

</asp:TemplateField>

<asp:CommandField ButtonType="Button"

ShowSelectButton="True"

ShowDeleteButton="true"

SelectText="Details"

AccessibleHeaderText="Action buttons">

</asp:CommandField>

</Columns>

</asp:GridView>

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:NCDS %>"

SelectCommand="SELECT [Id], [EntryType], [StartDisplayDate], [EndDisplayDate], [ItemDescriptiveText] FROM [AbilitiesTextClips]"

DeleteCommand="DELETE FROM [AbilitiesTextClips] WHERE [Id] = @Id"></asp:SqlDataSource>

<asp:HyperLink ID="hlReturn" runat="server" NavigateUrl="../MyLinks.aspx"><Return To Maintenance Menu</asp:HyperLink>

</div>

</asp:Panel>

<asp:Panel ID="pnlDetails" runat="server">

<h3>

Selected Clip Details</h3>

(R) Indicates a Required Field.</div>

<asp:ValidationSummary ID="ValidationSummary1" runat="server" />

<br />

<asp:Label ID="lblMesg" runat="server" CssClass="req"></asp:Label>

<asp:DetailsView ID="dvClips"

runat="server"

AutoGenerateRows="False"

DataKeyNames="Id"

DataSourceID="SqlDataSource2"

CellPadding="5"

GridLines="both"

BorderColor="Black"

BorderWidth="1"

OnItemDeleted="detailDeleted"

OnItemInserting="itemInserting"

OnItemInserted="itemInserted"

OnItemUpdating="itemUpdating"

OnItemUpdated="itemUpdated"

Width="100%">

<asp:BoundField DataField="Id" HeaderText="Clip Id:" InsertVisible="False" ReadOnly="True"

SortExpression="Id" />

<asp:TemplateField HeaderText="Clip Entry Type:" AccessibleHeaderText="Type of entry being displayed.">

<asp:DropDownList ID="ddlET" runat="server" SelectedValue='<%#Eval("EntryType")%>'

Enabled="false" DataSourceID="XmlDataSource1"

DataTextField="text" DataValueField="value">

</asp:DropDownList>

<asp:XmlDataSource ID="XmlDataSource1" runat="server" DataFile="~/App_Data/ClipTypes.xml">

</asp:XmlDataSource>

</ItemTemplate>

<asp:DropDownList ID="ddlET" runat="server" SelectedValue='<%#Eval("EntryType")%>' DataSourceID="XmlDataSource1"

DataTextField="text" DataValueField="value">

</asp:DropDownList>

<asp:XmlDataSource ID="XmlDataSource1" runat="server" DataFile="~/App_Data/ClipTypes.xml">

</asp:XmlDataSource>

<asp:RequiredFieldValidator ID="rfv1" ControlToValidate="ddlET" runat="server" ErrorMessage="An entry type must be selected."

CssClass="req">*</asp:RequiredFieldValidator>

</EditItemTemplate>

<asp:DropDownList ID="ddlET" runat="server" DataSourceID="XmlDataSource1"

DataTextField="text" DataValueField="value">

</asp:DropDownList>

<asp:XmlDataSource ID="XmlDataSource1" runat="server" DataFile="~/App_Data/ClipTypes.xml">

</asp:XmlDataSource>

<asp:RequiredFieldValidator ID="rfv1" ControlToValidate="ddlET" runat="server" ErrorMessage="An entry type must be selected."

CssClass="req">*</asp:RequiredFieldValidator>

</InsertItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Start Displaying On:" AccessibleHeaderText="Date to start displaying this clip.">

<%#Eval("StartDisplayDate", "{0:d}")%>

</ItemTemplate>

<asp:TextBox ID="tbStartDate" Columns="10" MaxLength="10" Text='<%#Eval("StartDisplayDate", "{0:d}") %>'

runat="server"></asp:TextBox> 

</div>

<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"

title="Select Date" alt="" onclick="startCal.toggle();" /></div>

</div>

</EditItemTemplate>

<asp:TextBox ID="tbStartDate" Columns="10" MaxLength="10" runat="server"></asp:TextBox> 

</div>

<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"

title="Select Date" alt="" onclick="startCal.toggle();" /></div>

</div>

</InsertItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Stop Displaying On:" AccessibleHeaderText="Date to stop displaying this clip.">

<%#Eval("EndDisplayDate", "{0:d}")%>

</ItemTemplate>

<asp:TextBox ID="tbEndDate" Columns="10" MaxLength="10" Text='<%#Eval("EndDisplayDate", "{0:d}") %>'

runat="server"></asp:TextBox> 

</div>

<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"

title="Select Date" alt="" onclick="endCal.toggle();" />

</div>

</EditItemTemplate>

<asp:TextBox ID="tbEndDate" Columns="10" MaxLength="10" runat="server"></asp:TextBox> 

</div>

<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"

title="Select Date" alt="" onclick="endCal.toggle();" />

</div>

</InsertItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Clip Text:" AccessibleHeaderText="Text that will be contained in the clip.">

<%#Eval("ItemDescriptiveText")%>

</ItemTemplate>

<CE:Editor ID="tbClip"

width="600" MaxTextLength="4000"

height="500"

text='<%#Eval("ItemDescriptiveText")%>'

EditCompleteDocument="true"

AllowPasteHtml="false"

ThemeType="Office2003_BlueTheme"

runat="server">

</CE:Editor>

<br /> <span class="req">(R)</span> <span class="hints">(Unlimited text)</span>

<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="tbClip" ErrorMessage="Clip Text Is Required" CssClass="req" />--%>

</EditItemTemplate>

<CE:Editor ID="tbClip"

width="600" MaxTextLength="4000"

height="500"

EditCompleteDocument="true"

AllowPasteHtml="false"

ThemeType="Office2003_BlueTheme"

runat="server">

</CE:Editor>

<br /> <span class="req">(R)</span> <span class="hints">(Unlimited text)</span>

<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="tbClip" ErrorMessage="Clip Text Is Required" CssClass="req" />--%>

</InsertItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Associate Page URL:" AccessibleHeaderText="URL to be associated with this text.">

<%#Eval("PageLink") %>

</ItemTemplate>

<asp:TextBox ID="tbPageLink" Text='<%#Eval("PageLink") %>' Columns="50" Rows="2"

MaxLength="100" TextMode="MultiLine" runat="server"></asp:TextBox>

<br />

<span class="hints">(100 characters maximum)</span>

</EditItemTemplate>

<asp:TextBox ID="tbPageLink" Columns="50" Rows="2" MaxLength="100" TextMode="MultiLine"

runat="server"></asp:TextBox>

<br />

<span class="hints">(100 characters maximum)</span>

</InsertItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Link Title Information:" AccessibleHeaderText="Title information for the Page URL.">

<%#Eval("PageLinkTitle") %>

</ItemTemplate>

<asp:TextBox ID="tbPageTitle" Text='<%#Eval("PageLinkTitle") %>' Columns="50" Rows="5"

MaxLength="250" TextMode="MultiLine" runat="server"></asp:TextBox> 

<br />

<span class="hints">(250 characters maximum)</span>

</EditItemTemplate>

<asp:TextBox ID="tbPageTitle" Columns="50" Rows="5" MaxLength="250" TextMode="MultiLine"

runat="server"></asp:TextBox> 

<br />

<span class="hints">(250 characters maximum)</span>

</InsertItemTemplate>

</asp:TemplateField>

<asp:BoundField DataField="DateAdded" HeaderText="Date Added:" DataFormatString="{0:d}"

HtmlEncode="false" ReadOnly="true" />

<asp:BoundField DataField="AddedBy" HeaderText="Added By:" ReadOnly="true" />

<asp:CommandField ButtonType="Button" ShowEditButton="True" ShowInsertButton="True">

</asp:CommandField>

</Fields>

</asp:DetailsView>

<asp:SqlDataSource ID="SqlDataSource2" runat="server"

ConnectionString="<%$ ConnectionStrings:NCDS %>"

DeleteCommand="DELETE FROM [AbilitiesTextClips] WHERE [Id] = @Id" InsertCommand="INSERT INTO [AbilitiesTextClips] ([EntryType], [StartDisplayDate], [EndDisplayDate], [ItemDescriptiveText], [PageLink], [PageLinkTitle], [DateAdded], [AddedBy]) VALUES (@EntryType, @StartDisplayDate, @EndDisplayDate, @ItemDescriptiveText, @PageLink, @PageLinkTitle, @DateAdded, @AddedBy)"

SelectCommand="SELECT [Id], [EntryType], [StartDisplayDate], [EndDisplayDate], [ItemDescriptiveText], [PageLink], [PageLinkTitle], [DateAdded], [AddedBy] FROM [AbilitiesTextClips] WHERE ([Id] = @Id)"

UpdateCommand="UPDATE [AbilitiesTextClips] SET [EntryType] = @EntryType, [StartDisplayDate] = @StartDisplayDate, [EndDisplayDate] = @EndDisplayDate, [ItemDescriptiveText] = @ItemDescriptiveText, [PageLink] = @PageLink, [PageLinkTitle] = @PageLinkTitle WHERE [Id] = @Id">

<asp:ControlParameter ControlID="gvClips" Name="Id" PropertyName="SelectedValue"

Type="Int32" />

</SelectParameters>

<asp:Parameter Name="Id" Type="Int32" />

</DeleteParameters>

<asp:Parameter Name="EntryType" Type="String" />

<asp:Parameter Name="StartDisplayDate" Type="DateTime" />

<asp:Parameter Name="EndDisplayDate" Type="DateTime" />

<asp:Parameter Name="ItemDescriptiveText" Type="String" />

<asp:Parameter Name="PageLink" Type="String" />

<asp:Parameter Name="PageLinkTitle" Type="String" />

<asp:Parameter Name="Id" Type="Int32" />

</UpdateParameters>

<asp:Parameter Name="EntryType" Type="String" />

<asp:Parameter Name="StartDisplayDate" Type="DateTime" />

<asp:Parameter Name="EndDisplayDate" Type="DateTime" />

<asp:Parameter Name="ItemDescriptiveText" Type="String" />

<asp:Parameter Name="PageLink" Type="String" />

<asp:Parameter Name="PageLinkTitle" Type="String" />

</InsertParameters>

</asp:SqlDataSource>

<asp:LinkButton ID="lbReturn" runat="server"><Return to the Clip List</asp:LinkButton>

</div>

</asp:Panel>

</div>

</form>

</div>

</body>

</html>

ASPX.VB code below:

Imports Common.Utility.Utils

Partial Class SysMaint_TextClipsMaintenance

Inherits System.Web.UI.Page

Dim slash As Char = ConfigurationManager.AppSettings("slash")

Dim GUID As HttpCookie

Dim row As DetailsViewRow = Nothing

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'incpMeta.FileName = Request.ServerVariables("Appl_Physical_Path") & ConfigurationManager.AppSettings("includeDir") & slash & _

'ConfigurationManager.AppSettings("abilitiesMetaInfo")

'INCPTopNav.FileName = Request.ServerVariables("Appl_Physical_Path") & ConfigurationManager.AppSettings("includeDir") & slash & _

'ConfigurationManager.AppSettings("defaultTopNav")

'INCPTopNav.UserType = Session.Item("UserType")

'INCPTopNav.SpecialTypes = ConfigurationManager.AppSettings("specialUsers")

'incpFooterNav.FileName = Request.ServerVariables("Appl_Physical_Path") & ConfigurationManager.AppSettings("includeDir") & slash & _

'ConfigurationManager.AppSettings("defaultFooterNav")

' get cookie

GUID = Request.Cookies("GUID")

' no cookie called UID found - request one

Select Case IsDBNull(GUID) Or IsNothing(GUID)

Case True : GUID = AddCookie()

End Select

' First Time into the page for this session.

'Select Case Page.IsPostBack

' Case False

' ' No session information found.

' Select Case IsNothing(Session.Item("UserName"))

' Case True

' ' get the users information, if it is on the database

' Dim dtCreated, dtUpdated As Date

' Dim isOk As Boolean = False

' Dim SessionMgr As New SessionManagement.SessionManager

' SessionMgr.getSessionInfo(GUID.Value, dtCreated, dtUpdated, Session.Item("UserName"), _

' Session.Item("UserDisplayName"), Session.Item("UserType"), isOk)

' ' did we find them?

' Select Case isOk

' ' User has not logged in. Force them to login first.

' Case False

' Response.Redirect(getLoginRequest())

' End Select

' Case False

' Dim SessionMgr As New SessionManagement.SessionManager

' Dim isOk As Boolean = False

' SessionMgr.updateSessionInfo(GUID.Value, isOk)

' End Select

' ' insure that the user has permission to even be here.

' Select Case IsUserAuthorized(Session.Item("UserType"), ConfigurationManager.AppSettings("specialUsers"), GetCurrentPageName())

' Case False ' no authority. send to not authorized page

' Server.Transfer("../" & ConfigurationManager.AppSettings("notAuthorized"))

' End Select

' ' start by showing the listing

showListing()

'End Select

End Sub

' when the details link is clicked,

' hide the listing and show the details

Sub detailsSelected(ByVal sender As Object, ByVal e As System.EventArgs) _

Handles gvClips.SelectedIndexChanged

If gvClips.SelectedRow IsNot Nothing Then

showDetails()

End If

End Sub

' when the return link is clicked,

' hide the details and show the listing.

Sub lbReturn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbReturn.Click

showListing()

End Sub

' show the listing and hide the details

Sub showListing()

pnlListing.Visible = True

pnlDetails.Visible = False

End Sub

' show the details and hide the listing

Sub showDetails()

pnlListing.Visible = False

pnlDetails.Visible = True

End Sub

' when a detail is deleted, rebind the listing

' and then show listing

Sub detailDeleted(ByVal sender As Object, _

ByVal e As DetailsViewDeletedEventArgs)

gvClips.DataBind()

showListing()

End Sub

' when an item has been inserted,

' rebuild the listing and show the listing

Sub itemInserted(ByVal sender As Object, _

ByVal e As DetailsViewInsertedEventArgs)

' Refresh the GridView control after a new record is inserted in

' the DetailsView control.

gvClips.DataBind()

dvClips.DataBind()

showListing()

End Sub

' before actually inserting, check to see if the input

' is valid first. if not, give user a message and cancel

' the insert.

Sub itemInserting(ByVal sender As Object, _

ByVal e As DetailsViewInsertEventArgs)

' Iterate though the values entered by the user and HTML encode

' the values. This helps prevent malicious values from being

' stored in the data source.

lblMesg.Text = Nothing

row = dvClips.Rows(0)

Dim fieldArray() As String = getFieldValues(row)

Dim err As Boolean = False

Dim ermsg As String = Nothing

' field length and inclusion checks

Select Case fieldArray(4).Length > 100

Case True

err = True

ermsg += "Page link may only be 100 characters long. Please correct<br />"

End Select

Select Case fieldArray(5).Length > 250

Case True

err = True

ermsg += "Page Link Title information may only be 250 characters long. Please correct<br />"

End Select

Select Case fieldArray(4).Length > 0

Case True

Select Case fieldArray(5).Length > 0

Case False

err = True

ermsg += "If a Page Link has been entered, this Title information must be entered.<br />"

End Select

Case False

Select Case fieldArray(5).Length > 0

Case True

err = True

ermsg += "No Page Link has been entered. Title information is invalid.<br />"

End Select

Select Case fieldArray(3).Length = 0

Case True

err = True

ermsg += "Descriptive text of the clip must be entered."

End Select

' If there is an error, do not complete the action.

Select Case err

Case True

e.Cancel = True

lblMesg.Text = ermsg

Case False

' check the date fields

Select Case IsNothing(fieldArray(1))

Case False ' starting date entered

Select Case IsNothing(fieldArray(2))

Case True ' no ending date entereed - prime date

fieldArray(2) = "12/13/9999"

End Select

Case True ' no starting date entered

Select Case IsNothing(fieldArray(2))

Case False ' ending date entered - prime starting as today

fieldArray(1) = Today.Date()

End Select

e.Values("EntryType") = fieldArray(0)

e.Values("StartDisplayDate") = fieldArray(1)

e.Values("EndDisplayDate") = fieldArray(2)

e.Values("ItemDescriptiveText") = fieldArray(3)

e.Values("PageLink") = fieldArray(4)

e.Values("PageLinkTitle") = fieldArray(5)

e.Values("AddedBy") = Session.Item("UserName")

e.Values("DateAdded") = Date.Now()

End Select

End Sub

' item updated, redisplay the udpated item.

Sub itemUpdated(ByVal sender As Object, _

ByVal e As DetailsViewUpdatedEventArgs)

' Refresh the GridView control after a new record is updated

' in the DetailsView control.

gvClips.DataBind()

dvClips.DataBind()

End Sub

' before the actual update, check the fields

' to insure they are valid. if not, send a message

' to the user and cancel the update.

Sub itemUpdating(ByVal sender As Object, _

ByVal e As DetailsViewUpdateEventArgs)

' Iterate though the values entered by the user and HTML encode

' the values. This helps prevent malicious values from being

' stored in the data source

lblMesg.Text = Nothing

row = dvClips.Rows(0)

Dim fieldArray() As String = getFieldValues(row)

Dim err As Boolean = False

Dim ermsg As String = Nothing

' field length and inclusion checks

Select Case fieldArray(4).Length > 100

Case True

err = True

ermsg += "Page link may only be 100 characters long. Please correct<br />"

End Select

Select Case fieldArray(5).Length > 250

Case True

err = True

ermsg += "Page Link Title information may only be 250 characters long. Please correct<br />"

End Select

Select Case fieldArray(4).Length > 0

Case True

Select Case fieldArray(5).Length > 0

Case False

err = True

ermsg += "If a Page Link has been entered, this Title information must be entered.<br />"

End Select

Case False

Select Case fieldArray(5).Length > 0

Case True

err = True

ermsg += "No Page Link has been entered. Title information is invalid."

End Select

Select Case fieldArray(3).Length = 0

Case True

err = True

ermsg += "Descriptive text of the clip must be entered."

End Select

' If there is an error, do not complete the action.

Select Case err

Case True

e.Cancel = True

lblMesg.Text = ermsg

Case False

' check the date fields

Select Case IsNothing(fieldArray(1))

Case False ' starting date entered

Select Case IsNothing(fieldArray(2))

Case True ' no ending date entereed - prime date

fieldArray(2) = "12/13/9999"

End Select

Case True ' no starting date entered

Select Case IsNothing(fieldArray(2))

Case False ' ending date entered - prime starting as today

fieldArray(1) = Today.Date()

End Select

e.NewValues("EntryType") = fieldArray(0)

e.NewValues("StartDisplayDate") = fieldArray(1)

e.NewValues("EndDisplayDate") = fieldArray(2)

e.NewValues("ItemDescriptiveText") = fieldArray(3)

e.NewValues("PageLink") = fieldArray(4)

e.NewValues("PageLinkTitle") = fieldArray(5)

End Select

End Sub

Function getFieldValues(ByVal row As DetailsViewRow) As Array

Dim valArray(6) As String

Dim ddl1 As DropDownList = CType(row.FindControl("ddlET"), DropDownList)

valArray(0) = ddl1.SelectedValue()

Dim c0 As TextBox = CType(row.FindControl("tbStartDate"), TextBox)

valArray(1) = c0.Text()

Dim c1 As TextBox = CType(row.FindControl("tbEndDate"), TextBox)

valArray(2) = c1.Text()

Dim ftb1 As TextBox = CType(row.FindControl("tbClip"), TextBox)

valArray(3) = ftb1.Text()

Dim tb0 As TextBox = CType(row.FindControl("tbPageLink"), TextBox)

valArray(4) = tb0.Text()

Dim tb1 As TextBox = CType(row.FindControl("tbPageTitle"), TextBox)

valArray(5) = tb1.Text()

Return valArray

End Function

' apply hilights to the keywords

Protected Sub convertType(ByVal sender As Object, ByVal e As EventArgs)

Select Case sender.text

Case Is = "A"

sender.text = "Awards & Projects"

Case Is = "S"

sender.Text = "Special Announcements"

End Select

End Sub

End Class

Any help would be welcome.

Tom

View Complete Thread