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

Delete From TABLE: Types

Go Back

<% tblTypes_delete.ShowMessage() %>

<% For i As Integer = 0 to tblTypes_delete.arRecKeys.GetUpperBound(0) %> <% Next %>

<%= tblTypes.TableCustomInnerHTML %> <% tblTypes_delete.lRecCnt = 0 Do While Rs.Read() tblTypes_delete.lRecCnt = tblTypes_delete.lRecCnt + 1 ' Set row properties tblTypes.CssClass = "" tblTypes.CssStyle = "" tblTypes.RowType = EW_ROWTYPE_VIEW ' view ' Get the field contents tblTypes_delete.LoadRowValues(Rs) ' Render row tblTypes_delete.RenderRow() %> > > ><%= tblTypes.typDescription.ListViewValue %> <% Loop Rs.Close() Rs.Dispose() %>

Description