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">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-us">
<head id="Head1" runat="server">
<title>Abilities!: Text Clips Maintenance</title>
<link rel ="stylesheet" type="text/css" href ="c/abilities.css" />
<link rel ="stylesheet" type="text/css" href ="c/abil.css" />
<link rel ="stylesheet" type="text/css" href ="c/epoch_styles.css" />
<script type="text/javascript" src ="js/epoch_classes.js" />
<script type="text/javascript">
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>
<style type="text/css">
#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 id="top" title="Top of Page"></a>
<div id="page">
<div class="skip">
<a href="#links">skip to links</a></div>
<div class="skip">
<a href="#content">skip to main content</a></div>
<div id="pageHeading" title="Page Heading containing our Logo">
<div class="banner" id="main">
<a href="http://www.abilitiesonline.org/" tabindex="0" title="Abilities! Home Page.">
Abilities!</a></div>
<div id="mainNav" title="Main Navigation Links, Top of Page">
<div id="mainNavLinks">
</div>
</div>
</div>
<div id="container">
<div id="fullPageContent" title="Page Main Content Area">
<form id="form1" runat="server">
<div id="maintSection">
<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">
<PagerSettings Mode="NumericFirstLast" />
<HeaderStyle HorizontalAlign="Center" BackColor="#E7E7E7" />
<AlternatingRowStyle BackColor="#E7E7E7" />
<RowStyle VerticalAlign="top" />
<Columns>
<asp:BoundField DataField="Id" Visible="false" />
<asp:TemplateField HeaderText="Entry Type" AccessibleHeaderText="Type of entry being displayed.">
<ItemTemplate>
<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.">
<ItemTemplate >
<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">
<ControlStyle CssClass="cmdbutton" />
</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>
<div class="maintLink">
<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>
<div class="reqMesg">
(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%">
<FieldHeaderStyle BackColor="#E7E7E7" Width="20%" />
<RowStyle VerticalAlign="top" />
<Fields>
<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.">
<ItemTemplate>
<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>
<EditItemTemplate>
<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>
<span class="req">(R)</span>
<asp:RequiredFieldValidator ID="rfv1" ControlToValidate="ddlET" runat="server" ErrorMessage="An entry type must be selected."
CssClass="req">*</asp:RequiredFieldValidator>
</EditItemTemplate>
<InsertItemTemplate>
<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>
<span class="req">(R)</span>
<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.">
<ItemTemplate>
<%#Eval("StartDisplayDate", "{0:d}")%>
</ItemTemplate>
<EditItemTemplate>
<div class="base">
<div class="left">
<asp:TextBox ID="tbStartDate" Columns="10" MaxLength="10" Text='<%#Eval("StartDisplayDate", "{0:d}") %>'
runat="server"></asp:TextBox>
</div>
<div class="right">
<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"
title="Select Date" alt="" onclick="startCal.toggle();" /></div>
</div>
</EditItemTemplate>
<InsertItemTemplate>
<div class="base">
<div class="left">
<asp:TextBox ID="tbStartDate" Columns="10" MaxLength="10" runat="server"></asp:TextBox>
</div>
<div class="right">
<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.">
<ItemTemplate>
<%#Eval("EndDisplayDate", "{0:d}")%>
</ItemTemplate>
<EditItemTemplate>
<div class="base">
<div class="left">
<asp:TextBox ID="tbEndDate" Columns="10" MaxLength="10" Text='<%#Eval("EndDisplayDate", "{0:d}") %>'
runat="server"></asp:TextBox>
</div>
<div class="right">
<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"
title="Select Date" alt="" onclick="endCal.toggle();" />
</div>
</div>
</EditItemTemplate>
<InsertItemTemplate>
<div class="base">
<div class="left">
<asp:TextBox ID="tbEndDate" Columns="10" MaxLength="10" runat="server"></asp:TextBox>
</div>
<div class="right">
<img style="height: 16px; width: 16px; border: 0" src="<%=GetSite() %>/img/cal.gif"
title="Select Date" alt="" onclick="endCal.toggle();" />
</div>
</div>
</InsertItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Clip Text:" AccessibleHeaderText="Text that will be contained in the clip.">
<ItemTemplate>
<%#Eval("ItemDescriptiveText")%>
</ItemTemplate>
<EditItemTemplate>
<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>
<InsertItemTemplate>
<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.">
<ItemTemplate>
<%#Eval("PageLink") %>
</ItemTemplate>
<EditItemTemplate>
<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>
<InsertItemTemplate>
<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.">
<ItemTemplate>
<%#Eval("PageLinkTitle") %>
</ItemTemplate>
<EditItemTemplate>
<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>
<InsertItemTemplate>
<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">
<ControlStyle CssClass="cmdbutton" />
</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">
<SelectParameters>
<asp:ControlParameter ControlID="gvClips" Name="Id" PropertyName="SelectedValue"
Type="Int32" />
</SelectParameters>
<DeleteParameters>
<asp:Parameter Name="Id" Type="Int32" />
</DeleteParameters>
<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" />
<asp:Parameter Name="Id" Type="Int32" />
</UpdateParameters>
<InsertParameters>
<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>
<div class="maintLink">
<asp:LinkButton ID="lbReturn" runat="server"><Return to the Clip List</asp:LinkButton>
</div>
</asp:Panel>
</div>
</form>
</div>
</div>
</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
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
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
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
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