Here is the code
<%@ Page Language="
VB" CodePage="1140" LCID="1033" MasterPageFile="masterpage.master" %>
<%@ MasterType VirtualPath="masterpage.master" %>
<%@ Import Namespace="System.ComponentModel" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ OutputCache Location="None" Duration="10" VaryByParam="None" %>
<%@ Register NameSpace="ew" TagPrefix="ew" Assembly="ew" %>
<%@ Register NameSpace="project1" TagPrefix="project1" %>
<script runat="server">
' ***********************
' * Handler for Page PreInit
' ***********************
Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs)
If Request.QueryString("Export") = "" Or Request.QueryString("Export") = "html" Then
Else
If Not Page.IsPostBack Then
Page.Theme = "" ' disable theme for export
End If
End If
End Sub
'Inline edit key string
Dim sKey As String = ""
' **********************
' * Handler for Page Load
' **********************
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Page.MaintainScrollPositionOnPostBack = False
lblMessage.Text = ""
If ewProfile.getTable(Share.ProjectName, "tblFiveYears").Message <> "" Then
lblMessage.Text = ewProfile.getTable(Share.ProjectName, "tblFiveYears").Message
pnlMessage.Visible = True
ewProfile.getTable(Share.ProjectName, "tblFiveYears").Message = ""
End If
If Request.QueryString("Export") = "" Then
Dim scriptString As String = ""
'********************MultiDelete****************** *******************
scriptString = "<script type=text/javascript>function EW_selectKey(elem) {" + vbNewLine
scriptString += " var f = elem.form;" + vbNewLine
scriptString += " checkboxelems = f.getElementsByTagName(""input"");" + vbNewLine
scriptString += " for (i = 0; i < checkboxelems.length; i++) {" + vbNewLine
scriptString += " var elemname = checkboxelems[i].name;" + vbNewLine
scriptString += " if (elemname.match(""key_d"")) {" + vbNewLine
scriptString += " checkboxelems[i].checked = elem.checked;" + vbNewLine
scriptString += " }}}<"
scriptString += "/"
scriptString += "script>" + vbNewLine
Page.ClientScript.RegisterClientScriptBlock(script String.GetType, "EW_selectKey", scriptString)
'************************************************* *******************
End If
If Not Page.IsPostBack Then
If Request.QueryString("cmd") = "resetall" Then
ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex = 0
End If
If ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageSize <= 0 Then
ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageSize = 20
End If
ewProfile.getTable(Share.ProjectName, "tblFiveYears").AllowPaging = True
' Rebuild Sort Order
tblFiveYearsGridView.Sort(String.Empty, SortDirection.Ascending)
BindData()
End If
End Sub
' ****************************
' * Handler for Cancel button click
' ****************************
Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim sWhere As String = ""
For Each row As GridViewRow In tblFiveYearsGridView.Rows
Dim cell As TableCell = row.Cells(5)
' Get the HtmlInputChecklBox control from the cells control collection
Dim checkBox As HtmlInputCheckBox = CType(cell.Controls(1), HtmlInputCheckBox)
If (Not IsNothing(checkBox) And checkBox.Checked) Then
Dim arrKey() As String = Split(checkBox.Value, ",")
If sWhere <> "" Then sWhere += " OR "
Dim sWherePart As String = ""
If sWherePart <> "" Then sWherePart += " AND "
sWherePart += "[ctrFiveYearsKey] = " & arrKey(0) & ""
sWhere += "(" & sWherePart & ")"
End If
Next
If sWhere <> String.Empty Then
Dim oInfo As tblFiveYearsinfo = New tblFiveYearsinfo()
Dim oSql As ewSql = New ewSql(Db.DbType, Db.QuoteS, Db.QuoteE)
Dim sSql As String = oSql.getSqlCommand(oInfo.Table, ewDb.SqlType.Delete, False, sWhere, String.Empty)
Try
tblFiveYearsDataSource.DeleteCommand = sSql
tblFiveYearsDataSource.Delete()
ewProfile.getTable(Share.ProjectName, "tblFiveYears").Message = "Delete Successful"
Response.Redirect("tblFiveYearslist.aspx")
Catch oErr As Exception
lblMessage.Text = oErr.Message
pnlMessage.Visible = True
End Try
End If
End Sub
Dim iRecordCount As Integer = 0
' *****************
' * Get record count
' *****************
Private Function ewRecordCount() As Integer
Dim dv As DataView
If iRecordCount = 0 Then
tblFiveYearsDataSource.DataSourceMode = SqlDataSourceMode.DataSet
dv = CType(tblFiveYearsDataSource.Select(New DataSourceSelectArguments()), Data.DataView)
If (dv IsNot Nothing) Then
iRecordCount = dv.Count
Else
iRecordCount = 0
End If
End If
Return iRecordCount
End Function
' ***************
' * Handle sorting
' ***************
Protected Sub Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs)
Dim sOrderBy As String = e.SortExpression
' Rebuild GridView Sort Expression
If sOrderBy = String.Empty Then
e.SortExpression = ewProfile.getTable(Share.ProjectName, "tblFiveYears").OrderBy
Return
End If
Dim sThisSort As String = ""
Dim sLastSort As String = ""
Dim sSortField As String = ""
Dim oInfo As tblFiveYearsinfo = New tblFiveYearsinfo()
For i As Integer = 1 To oInfo.Table.Count
Dim sSortParm As String = oInfo.Table.Fields(i).sSortParm
If sOrderBy = sSortParm Then
sSortField = oInfo.Table.Fields(i).sSortName
sLastSort = ewProfile.getField(Share.ProjectName, "tblFiveYears", sSortParm).Sort
If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
ewProfile.getField(Share.ProjectName, "tblFiveYears", sSortParm).Sort = sThisSort
Else
If ewProfile.getField(Share.ProjectName, "tblFiveYears", sSortParm).Sort <> "" Then
ewProfile.getField(Share.ProjectName, "tblFiveYears", sSortParm).Sort = string.Empty
End If
End If
Next
ewProfile.getTable(Share.ProjectName, "tblFiveYears").OrderBy = sSortField & " " & sThisSort
'ewProfile.getTable(Share.ProjectName, "tblFiveYears").Rec = 1
ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex = 0
sOrderBy = ewProfile.getTable(Share.ProjectName, "tblFiveYears").OrderBy
If sOrderBy = "" Then
sOrderBy = ""
ewProfile.getTable(Share.ProjectName, "tblFiveYears").OrderBy = sOrderBy
End If
e.SortExpression = sOrderBy
End Sub
' **************
' * Clear Sorting
' **************
Private Sub ClearSort()
Dim oInfo As tblFiveYearsinfo = New tblFiveYearsinfo()
For i As Integer = 1 To oInfo.Table.Count
Dim sSortParm As String = oInfo.Table.Fields(i).sSortParm
ewProfile.getField(Share.ProjectName, "tblFiveYears", sSortParm).Sort = String.Empty
Next
ewProfile.getTable(Share.ProjectName, "tblFiveYears").OrderBy = String.Empty
End Sub
' *************************************
' * Handler for GridView PageIndexChanged
' *************************************
Protected Sub tblFiveYearsGridView_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex = tblFiveYearsGridView.PageIndex ' Save page index
End Sub
' *******************************
' * Handler for GridView RowCreated
' *******************************
Protected Sub tblFiveYearsGridView_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
If (Not IsNothing(e) And e.Row.RowType = DataControlRowType.Header) Then
For Each cell As TableCell In e.Row.Cells
If (cell.HasControls) Then
If cell.Controls.Count > 2 AndAlso (TypeOf cell.Controls(1) Is LinkButton) Then
If (isExport) Then
Dim button As LinkButton = CType(cell.Controls(1), LinkButton)
button.Visible = False
Dim label as Label = new Label
label.Text = button.Text
cell.Controls.Add(label)
Else
Dim button As LinkButton = CType(cell.Controls(1), LinkButton)
Dim wrkimage As System.Web.UI.WebControls.Image = New System.Web.UI.WebControls.Image
Dim sSort As String = ewProfile.getField(Share.ProjectName, "tblFiveYears", button.CommandArgument).Sort
If (sSort = "ASC") Then
wrkimage.ImageUrl = "images/sortup.gif"
ElseIf (sSort = "DESC") Then
wrkimage.ImageUrl = "images/sortdown.gif"
End If
If (wrkimage.ImageUrl <> "") Then
cell.Controls.Add(wrkimage)
End If
End If
End If
End If
Next
End If
End Sub
' *********************
' * Reset Page Properties
' *********************
Private Sub ResetPageProperties()
' Clear Page Index
ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex = 0
tblFiveYearsGridView.PageIndex = 0
End Sub
' ************
' * Bind Data
' ************
Protected Sub BindData()
Dim sWhere As String = GetUserFilter()
Dim sOrderBy As String = String.Empty
Dim oInfo As tblFiveYearsinfo = New tblFiveYearsinfo()
Dim oSql As ewSql = New ewSql(Db.DbType, Db.QuoteS, Db.QuoteE)
' Building the Where Clause
If Not ewProfile.getTable(Share.ProjectName, "tblFiveYears").Searchwhere = String.Empty Then
If sWhere <> "" Then sWhere += " AND "
sWhere += "(" & ewProfile.getTable(Share.ProjectName, "tblFiveYears").Searchwhere & ")"
End If
' Get the final Sql
Dim sSql As String = oSql.getSqlCommand(oInfo.Table, ewDb.SqlType.Select, False, sWhere, String.Empty)
tblFiveYearsDataSource.SelectCommand = sSql
If ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex < 0 Then
ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex = 0
End If
tblFiveYearsGridView.AllowPaging = ewProfile.getTable(Share.ProjectName, "tblFiveYears").AllowPaging
If ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageSize > 0 Then
tblFiveYearsGridView.PageSize = ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageSize
End If
' Try to restore page index
Try
tblFiveYearsGridView.PageIndex = ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex
Catch
ResetPageProperties()
End Try
tblFiveYearsGridView.DataBind()
If tblFiveYearsGridView.Rows.Count = 0 Then
pnlPager.Visible = False ' Hide Pager
btnDelete.Visible = False ' Hide Delete Button
If lblMessage.Text = "" Then
lblMessage.Text = "No records found"
pnlMessage.Visible = True
End If
Else
If Not isExport Then
pnlPager.Visible = True ' Show Pager
btnDelete.Visible = True ' Show Delete Button
End If
End If
End Sub
' **************************
' * Handler for GridView Load
' **************************
Protected Sub tblFiveYearsGridView_Load(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
' **********************************
' * Handler for GridView RowDataBound
' **********************************
Protected Sub tblFiveYearsGridView_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
Dim oInfo As tblFiveYearsinfo = New tblFiveYearsinfo()
If e.Row.RowType = DataControlRowType.Header Then
ElseIf e.Row.RowType = DataControlRowType.DataRow Then
Dim bNormal As Boolean = ((e.Row.RowState And DataControlRowState.Normal) = DataControlRowState.Normal)
Dim bAlternate As Boolean = ((e.Row.RowState And DataControlRowState.Alternate) = DataControlRowState.Alternate)
Dim bEdit As Boolean = ((e.Row.RowState And DataControlRowState.Edit) = DataControlRowState.Edit)
If (bNormal Or bAlternate) And (Not bEdit) Then
Dim source As GridViewRow = e.Row
' Field ctrFiveYearsKey
' Field dteSample
End If
End If
End Sub
' ******************************
' * Handler for GridView DataBound
' ******************************
Protected Sub tblFiveYearsGridView_DataBound(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
' *********************************
' * Handler for GridView RowCommand
' *********************************
Protected Sub tblFiveYearsGridView_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs )
Dim sCommand As String = ""
sCommand = e.CommandName
If sCommand <> "Update" Then
BindData()
End If
End Sub
'************************************************* *****
'* DataSource Init Event
'************************************************* *****
Protected Sub tblFiveYearsDataSource_Init(ByVal sender As Object, ByVal e As System.EventArgs)
' Set up connection string and provider name
CType(sender, SqlDataSource).ConnectionString = Db.ConnStr
CType(sender, SqlDataSource).ProviderName = Db.ProviderName
End Sub
' ***************
' * Get User Filter
' ***************
Private Function GetUserFilter() As String
Dim sFilter As String = ""
Return sFilter
End Function
Dim isExport As Boolean = False
' ********************
' * Handler for Export
' ********************
Public Sub Export_Command(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs)
isExport = True
Master.PanelNavigatorVisible = False
Master.PanelHeaderVisible = False
Master.PanelFooterVisible = False
pnlExport.Visible = False
Select Case e.CommandName
Case "HTML"
Export()
Case "Excel"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("Content-Disposition", "attachment; filename=tblFiveYears.xls")
Export("excel")
Case "Word"
Response.ContentType = "application/vnd.ms-word"
Response.AddHeader("Content-Disposition", "attachment; filename=tblFiveYears.doc")
Export("word")
Case "CSV"
Response.ContentType = "application/csv"
Response.AddHeader("Content-Disposition", "attachment; filename=tblFiveYears.csv")
Export("csv")
Case "XML"
Response.ContentType = "text/xml"
Export("xml")
End Select
End Sub
' *****************
' * Export to HTML
' *****************
Private Sub Export()
Page.EnableViewState = False
pnlPager.Visible = False
BindData()
tblFiveYearsGridView.PagerSettings.Visible = False
tblFiveYearsGridView.AllowSorting = False
' Hide the links in gridview
lnkAdd.Visible = False
tblFiveYearsGridView.Columns(4).Visible = False 'copy
tblFiveYearsGridView.Columns(2).Visible = False 'view
tblFiveYearsGridView.Columns(3).Visible = False 'edit
tblFiveYearsGridView.Columns(5).Visible = False 'delete
btnDelete.Visible = False
End Sub
' ******************************
' * Export to Word/Excel/CSV/XML
' ******************************
Private Sub Export(ByVal sExport As String)
Response.Clear()
Response.Buffer = True
Dim out As IO.TextWriter = Response.Output
Dim DBReader As Data.IDataReader
Dim sFldName, sFldParm, sFldValue As String
Dim oInfo As tblFiveYearsinfo = New tblFiveYearsinfo()
Dim nPageSize As Integer = ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageSize
Dim nPageIndex As Integer = ewProfile.getTable(Share.ProjectName, "tblFiveYears").PageIndex
Dim nStartRec As Integer = nPageSize * nPageIndex
Dim nStopRec As Integer
If nPageSize > 0 Then
nStopRec = nStartRec + nPageSize
Else
nStopRec = Integer.MaxValue ' Show all values
End If
BindData()
tblFiveYearsDataSource.DataSourceMode = SqlDataSourceMode.DataReader
DBReader = tblFiveYearsDataSource.Select(DataSourceSelectArgu ments.Empty)
For i As Integer = 1 To nStartRec
If Not DBReader.Read Then
DBReader.Close()
Exit For
End If
Next
If sExport = "word" Or sExport = "excel" Then
out.WriteLine("<p>TABLE: tblFiveYears</p>")
If sExport = "word" Then
out.WriteLine("<table cellspacing=-1>")
ElseIf sExport = "excel" Then
out.WriteLine("<table>")
End If
' write header
out.WriteLine("<tr>")
out.WriteLine("<th>" & Server.HTMLEncode("ctrFiveYearsKey") & "</th>")
out.WriteLine("<th>" & Server.HTMLEncode("dteSample") & "</th>")
out.WriteLine("</tr>")
Do While DBReader.Read And nStartRec < nStopRec
nStartRec += 1
out.WriteLine("<tr>")
sFldName = "ctrFiveYearsKey": sFldParm = "ctrFiveYearsKey"
If Not IsDBNull(DBReader(sFldParm)) Then
sFldValue = Convert.ToString(DBReader(sFldParm))
out.WriteLine("<td>" & Server.HTMLEncode(sFldValue) & "</td>")
Else
out.WriteLine("<td>Null</td>")
End If
sFldName = "dteSample": sFldParm = "dteSample"
If Not IsDBNull(DBReader(sFldParm)) Then
sFldValue = Convert.ToString(DBReader(sFldParm))
out.WriteLine("<td>" & Server.HTMLEncode(sFldValue) & "</td>")
Else
out.WriteLine("<td>Null</td>")
End If
out.WriteLine("</tr>")
Loop
out.WriteLine("</table>")
End If
If sExport = "xml" Then
out.WriteLine("<?xml version=""1.0"" standalone=""yes""?>")
Dim oXmlDoc As System.Xml.XmlDocument = New System.Xml.XmlDocument()
Dim oXmlRoot As System.Xml.XmlElement = oXmlDoc.CreateElement("root")
Dim oXmlTbl As System.Xml.XmlElement = oXmlDoc.CreateElement("table")
Dim xmlWriter As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter(out)
Do While DBReader.Read And nStartRec < nStopRec
nStartRec += 1
Dim oXmlRec As System.Xml.XmlElement = oXmlDoc.CreateElement("record")
Dim oXmlField As System.Xml.XmlElement
sFldName = "ctrFiveYearsKey": sFldParm = "ctrFiveYearsKey"
oXmlField = oXmlDoc.CreateElement(sFldParm)
If Not IsDBNull(DBReader(sFldParm)) Then
oXmlField.InnerText = Convert.ToString(DBReader(sFldParm))
Else
oXmlField.InnerText = "Null"
End If
oXmlRec.AppendChild(oXmlField)
sFldName = "dteSample": sFldParm = "dteSample"
oXmlField = oXmlDoc.CreateElement(sFldParm)
If Not IsDBNull(DBReader(sFldParm)) Then
oXmlField.InnerText = Convert.ToString(DBReader(sFldParm))
Else
oXmlField.InnerText = "Null"
End If
oXmlRec.AppendChild(oXmlField)
oXmlTbl.AppendChild(oXmlRec)
Loop
oXmlRoot.AppendChild(oXmlTbl)
oXmlRoot.WriteContentTo(xmlWriter)
End If
If sExport = "csv" Then
Dim sCsvStr As String = ""
' header
sCsvStr &= """ctrFiveYearsKey""" & ","
sCsvStr &= """dteSample""" & ","
sCsvStr = Left(sCsvStr, Len(sCsvStr) - 1) ' Remove last comma
sCsvStr = sCsvStr & vbCrLf
Do While DBReader.Read And nStartRec < nStopRec
nStartRec += 1
sFldName = "ctrFiveYearsKey": sFldParm = "ctrFiveYearsKey"
If Not IsDBNull(DBReader(sFldParm)) Then
sCsvStr &= """" & Replace(Convert.ToString(DBReader(sFldParm)), """", """""") & """" & ","
Else
sCsvStr &= """" & "Null" & """" & ","
End If
sFldName = "dteSample": sFldParm = "dteSample"
If Not IsDBNull(DBReader(sFldParm)) Then
sCsvStr &= """" & Replace(Convert.ToString(DBReader(sFldParm)), """", """""") & """" & ","
Else
sCsvStr &= """" & "Null" & """" & ","
End If
sCsvStr = Left(sCsvStr, Len(sCsvStr) - 1) ' Remove last comma
sCsvStr &= vbCrLf
Loop
out.WriteLine(sCsvStr)
End If
DBReader.Close()
Response.End()
End Sub
</script>
<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="Server">
<p><span class="aspnetmaker">TABLE: tblFiveYears</span></p>
<asp:PlaceHolder ID="pnlExport" runat="server">
<asp:LinkButton CssClass="aspnetmaker" ID="lnkExportHTML" runat="server" CommandName="HTML"
OnCommand="Export_Command" PostBackUrl="tblFiveYearslist.aspx?Export=html">
Pr inter Friendly</asp:LinkButton>
<asp:LinkButton CssClass="aspnetmaker" ID="lnkExportExcel" runat="server" CommandName="Excel"
OnCommand="Export_Command" PostBackUrl="tblFiveYearslist.aspx?Export=excel">E xport to Excel</asp:LinkButton>
<asp:LinkButton CssClass="aspnetmaker" ID="lnkExportWord" runat="server" CommandName="Word"
OnCommand="Export_Command" PostBackUrl="tblFiveYearslist.aspx?Export=word">Ex port to Word</asp:LinkButton>
<asp:LinkButton CssClass="aspnetmaker" ID="lnkExportCSV" runat="server" CommandName="CSV" OnCommand="Export_Command"
PostBackUrl="tblFiveYearslist.aspx?Export=csv">Exp ort to CSV</asp:LinkButton>
<asp:LinkButton CssClass="aspnetmaker" ID="lnkExprotXML" runat="server" CommandName="XML" OnCommand="Export_Command"
PostBackUrl="tblFiveYearslist.aspx?Export=xml">Exp ort to XML</asp:LinkButton>
</asp:PlaceHolder>
<script type="text/javascript" src="ewv.
js"></script>
<script type="text/javascript">
<!--
EW_dateSep = "/"; // set date separator
//-->
</script>
<script type="text/javascript">
<!--
var EW_HTMLArea;
//-->
</script>
<asp:ValidationSummary id="xevs_tblFiveYears" CssClass="aspnetmaker" runat="server"
HeaderText=""
ShowSummary="False"
ShowMessageBox="True"
ForeColor="#FF0000" />
<p><asp:HyperLink ID="lnkAdd" runat="server" CssClass="aspnetmaker" NavigateUrl="tblFiveYearsadd.aspx">Add</asp:HyperLink></p>
<asp:PlaceHolder ID="pnlMessage" runat="server" Visible="false">
<p><asp:Label id="lblMessage" forecolor="#FF0000" CssClass="aspnetmaker" runat="server" /></p>
</asp:PlaceHolder>
<asp:SqlDataSource ID="tblFiveYearsDataSource"
OnInit="tblFiveYearsDataSource_Init"
runat="server">
</asp:SqlDataSource>
<asp:GridView ID="tblFiveYearsGridView"
PageSize="20"
DataKeyNames="ctrFiveYearsKey"
DataSourceID="tblFiveYearsDataSource"
GridLines="None"
AutoGenerateColumns="False" CssClass="ewTable"
AllowSorting="True" AllowPaging="True"
OnDataBound="tblFiveYearsGridView_DataBound"
OnRowCommand="tblFiveYearsGridView_RowCommand"
OnRowDataBound="tblFiveYearsGridView_RowDataBound"
OnSorting="Sorting"
OnRowCreated="tblFiveYearsGridView_RowCreated"
OnPageIndexChanged="tblFiveYearsGridView_PageIndex Changed"
OnLoad="tblFiveYearsGridView_Load"
PagerSettings-Mode="NextPreviousFirstLast"
PagerSettings-Position="Bottom"
runat="server">
<HeaderStyle Wrap="False" CssClass="ewTableHeader" />
<RowStyle CssClass="ewTableRow" />
<AlternatingRowStyle CssClass="ewTableAltRow" />
<EditRowStyle CssClass="ewTableEditRow" />
<FooterStyle CssClass="ewTableFooter" />
<SelectedRowStyle CssClass="ewTableSelectRow" />
<PagerStyle CssClass="ewTablePager" />
<Columns>
<asp:TemplateField>
<ItemStyle Wrap="True" />
<HeaderTemplate>
<asp:LinkButton runat='server' CssClass="ewTableHeader" CommandName="Sort" CommandArgument="ctrFiveYearsKey">ctr Five Years Key </asp:LinkButton>
</HeaderTemplate>
<ItemTemplate>
<asp:Label id="x_ctrFiveYearsKey" Text='<%# Eval("ctrFiveYearsKey") %>' CssClass="aspnetmaker" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle Wrap="True" />
<HeaderTemplate>
<asp:LinkButton runat='server' CssClass="ewTableHeader" CommandName="Sort" CommandArgument="dteSample">dte Sample </asp:LinkButton>
</HeaderTemplate>
<ItemTemplate>
<asp:Label id="x_dteSample" Text='<%#String.Format( ewUtilities.DataFormat.ewDateTimeFormat(6, "/"),Eval("dteSample"))%>' CssClass="aspnetmaker" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField ControlStyle-CssClass="aspnetmaker" Text="View" DataNavigateUrlFields="ctrFiveYearsKey" DataNavigateUrlFormatString="tblFiveYearsview.aspx ?ctrFiveYearsKey={0}"></asp:HyperLinkField>
<asp:HyperLinkField ControlStyle-CssClass="aspnetmaker" Text="Edit" DataNavigateUrlFields="ctrFiveYearsKey" DataNavigateUrlFormatString="tblFiveYearsedit.aspx ?ctrFiveYearsKey={0}"></asp:HyperLinkField>
<asp:HyperLinkField ControlStyle-CssClass="aspnetmaker" Text="Copy" DataNavigateUrlFields="ctrFiveYearsKey" DataNavigateUrlFormatString="tblFiveYearsadd.aspx? ctrFiveYearsKey={0}"></asp:HyperLinkField>
<asp:TemplateField>
<HeaderTemplate>
<input id="DeleteAll" type="checkbox" onclick="EW_selectKey(this);" />
</HeaderTemplate>
<ItemTemplate>
<input id="key_d" name="key_d" type="checkbox" value='<%# Eval("ctrFiveYearsKey") %>' runat="server" /><span class="aspnetmaker">Delete</span>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<br />
<asp:PlaceHolder runat="server" ID="pnlPager">
</asp:PlaceHolder>
<br />
<asp:Button ID="btnDelete" Runat="server" Text="DELETE SELECTED" PostBackUrl="tblFiveYearsdelete.aspx" />
</asp:Content>
Wiered ouput
