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

Delete From TABLE: ltg Fixture Location

Go Back

<% ltgFixtureLocation_delete.ShowMessage() %>

<% For i As Integer = 0 to ltgFixtureLocation_delete.arRecKeys.GetUpperBound(0) %> <% Next %>
<%= ltgFixtureLocation.TableCustomInnerHTML %> <% ltgFixtureLocation_delete.lRecCnt = 0 Do While Rs.Read() ltgFixtureLocation_delete.lRecCnt = ltgFixtureLocation_delete.lRecCnt + 1 ' Set row properties ltgFixtureLocation.CssClass = "" ltgFixtureLocation.CssStyle = "" ltgFixtureLocation.RowType = EW_ROWTYPE_VIEW ' view ' Get the field contents ltgFixtureLocation_delete.LoadRowValues(Rs) ' Render row ltgFixtureLocation_delete.RenderRow() %> > > ><%= ltgFixtureLocation.floDescription.ListViewValue %> > <% If Convert.ToString(ltgFixtureLocation.floIsActive.CurrentValue) = "1" Then %> <% Else %> <% End If %> <% Loop Rs.Close() Rs.Dispose() %>
Description Is Active