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

Delete From TABLE: Parts

Go Back

<% tblParts_delete.ShowMessage() %>

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

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

Description