<%@ Page Language="VB" MasterPageFile="masterpage.master" AutoEventWireup="false" CodeFile="tblMessagedelete.aspx.vb" Inherits="tblMessagedelete" CodeFileBaseClass="AspNetMaker7_tfpssnet" %> <% ' Load records for display Rs = tblMessage_delete.LoadRecordset() If tblMessage_delete.lTotalRecs <= 0 Then ' No record found, exit Rs.Close() Rs.Dispose() tblMessage_delete.Page_Terminate("tblMessagelist.aspx") ' Return to list End If %>

Delete From TABLE: Message

Go Back

<% tblMessage_delete.ShowMessage() %>

<% For i As Integer = 0 to tblMessage_delete.arRecKeys.GetUpperBound(0) %> <% Next %>
<%= tblMessage.TableCustomInnerHTML %> <% tblMessage_delete.lRecCnt = 0 Do While Rs.Read() tblMessage_delete.lRecCnt = tblMessage_delete.lRecCnt + 1 ' Set row properties tblMessage.CssClass = "" tblMessage.CssStyle = "" tblMessage.RowType = EW_ROWTYPE_VIEW ' view ' Get the field contents tblMessage_delete.LoadRowValues(Rs) ' Render row tblMessage_delete.RenderRow() %> > > ><%= tblMessage.msgText.ListViewValue %> > ><%= tblMessage.msgStartDate.ListViewValue %> > ><%= tblMessage.msgEndDate.ListViewValue %> <% Loop Rs.Close() Rs.Dispose() %>
Text Start Date End Date