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

Delete From TABLE: Events

Go Back

<% tblEvents_delete.ShowMessage() %>

<% For i As Integer = 0 to tblEvents_delete.arRecKeys.GetUpperBound(0) %> <% Next %>
<%= tblEvents.TableCustomInnerHTML %> <% tblEvents_delete.lRecCnt = 0 Do While Rs.Read() tblEvents_delete.lRecCnt = tblEvents_delete.lRecCnt + 1 ' Set row properties tblEvents.CssClass = "" tblEvents.CssStyle = "" tblEvents.RowType = EW_ROWTYPE_VIEW ' view ' Get the field contents tblEvents_delete.LoadRowValues(Rs) ' Render row tblEvents_delete.RenderRow() %> > > ><%= tblEvents.evtDescription.ListViewValue %> > <% If Convert.ToString(tblEvents.evtIsActive.CurrentValue) = "1" Then%> <% Else %> <% End If %> > <% If Convert.ToString(tblEvents.evtAllocateBilling.CurrentValue) = "1" Then%> <% Else %> <% End If %> > ><%= tblEvents.evtBillingNotes.ListViewValue%> > ><%= tblEvents.evtTierLevel.ListViewValue%> > ><%= tblEvents.evtOverTimePriority.ListViewValue%> <% Loop Rs.Close() Rs.Dispose() %>
Description Is Active Allocate Billing Billing Notes Tier Level Overtime Priority