<%@ Page Language="VB" MasterPageFile="masterpage.master" ValidateRequest="false" AutoEventWireup="false" CodeFile="tblTypeslist.aspx.vb" Inherits="tblTypeslist" CodeFileBaseClass="AspNetMaker7_tfpssnet" %> <% If tblTypes.Export = "" Then %> <% End If %> <% If tblTypes.Export = "" Then %> <% End If %> <% ' Load recordset Rs = tblTypes_list.LoadRecordset() tblTypes_list.lStartRec = 1 If tblTypes_list.lDisplayRecs <= 0 Then ' Display all records tblTypes_list.lDisplayRecs = tblTypes_list.lTotalRecs End If If Not (tblTypes.ExportAll AndAlso tblTypes.Export <> "") Then tblTypes_list.SetUpStartRec() ' Set up start record position End If %>

TABLE: Types

<% If Security.CanSearch Then %> <% If tblTypes.Export = "" AndAlso tblTypes.CurrentAction = "" Then %>  Search
  Show all 
    
<% End If %> <% End If %> <% tblTypes_list.ShowMessage() %>
<% If tblTypes_list.lTotalRecs > 0 Then %> <% tblTypes_list.lOptionCnt = 0 If Security.CanView Then tblTypes_list.lOptionCnt = tblTypes_list.lOptionCnt + 1 ' View End If If Security.CanEdit Then tblTypes_list.lOptionCnt = tblTypes_list.lOptionCnt + 1 ' Edit End If If Security.CanDelete Then tblTypes_list.lOptionCnt = tblTypes_list.lOptionCnt + 1 ' Delete End If tblTypes_list.lOptionCnt = tblTypes_list.lOptionCnt + tblTypes_list.ListOptions.Items.Count ' Custom list options %> <%= tblTypes.TableCustomInnerHTML %> <% If tblTypes.Export = "" Then %> <% If Security.CanView Then %> <% End If %> <% If Security.CanEdit Then %> <% End If %> <% If Security.CanDelete Then %> <% End If %> <% ' Custom list options For i As Integer = 0 to tblTypes_list.ListOptions.Items.Count -1 If tblTypes_list.ListOptions.Items(i).Visible Then Response.Write(tblTypes_list.ListOptions.Items(i).HeaderCellHtml) Next %> <% End If %> <% If tblTypes.typDescription.Visible Then ' typDescription %> <% If tblTypes.SortUrl(tblTypes.typDescription) = "" Then %> <% Else %> <% End If %> <% End If %> <% If (tblTypes.ExportAll AndAlso tblTypes.Export <> "") Then tblTypes_list.lStopRec = tblTypes_list.lTotalRecs Else tblTypes_list.lStopRec = tblTypes_list.lStartRec + tblTypes_list.lDisplayRecs - 1 ' Set the last record to display End If If tblTypes.CurrentAction = "gridadd" AndAlso tblTypes_list.lStopRec = -1 Then tblTypes_list.lStopRec = EW_GRIDADD_ROWS End If ' Move to first record For i As Integer = 1 to tblTypes_list.lStartRec - 1 If Rs.Read() Then tblTypes_list.lRecCnt = tblTypes_list.lRecCnt + 1 Next tblTypes_list.lRowCnt = 0 ' Output data rows Do While (tblTypes.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (tblTypes_list.lRecCnt < tblTypes_list.lStopRec) tblTypes_list.lRecCnt = tblTypes_list.lRecCnt + 1 If tblTypes_list.lRecCnt >= tblTypes_list.lStartRec Then tblTypes_list.lRowCnt = tblTypes_list.lRowCnt + 1 tblTypes.CssClass = "" tblTypes.CssStyle = "" tblTypes.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'" If tblTypes.CurrentAction = "gridadd" Then tblTypes_list.LoadDefaultValues() ' Load default values Else tblTypes_list.LoadRowValues(Rs) ' Load row values End If tblTypes.RowType = EW_ROWTYPE_VIEW ' Render view ' Render row tblTypes_list.RenderRow() %> > <% If tblTypes.Export = "" Then %> <% If Security.CanView Then %> <% End If %> <% If Security.CanEdit Then %> <% End If %> <% If Security.CanDelete Then %> <% End If %> <% ' Custom list options For i As Integer = 0 to tblTypes_list.ListOptions.Items.Count -1 If tblTypes_list.ListOptions.Items(i).Visible Then Response.Write(tblTypes_list.ListOptions.Items(i).BodyCellHtml) Next %> <% End If %> <% If tblTypes.typDescription.Visible Then ' typDescription %> > ><%= tblTypes.typDescription.ListViewValue %> <% End If %> <% End If Loop %>
   Description
Description (*)<% If tblTypes.typDescription.Sort = "ASC" Then %><% ElseIf tblTypes.typDescription.Sort = "DESC" Then %><% End If %>
View Edit Delete
<% End If %>
<% ' Close recordset Rs.Close() Rs.Dispose() %>
<% If tblTypes.Export = "" Then %>
<% If tblTypes.CurrentAction <> "gridadd" AndAlso tblTypes.CurrentAction <> "gridedit" Then %>
<% If tblTypes_list.lTotalRecs > 0 Then %> <% End If %>
<% If tblTypes_list.Pager Is Nothing Then tblTypes_list.Pager = New cNumericPager(tblTypes_list.lStartRec, tblTypes_list.lDisplayRecs, tblTypes_list.lTotalRecs, tblTypes_list.lRecRange) %> <% If tblTypes_list.Pager.RecordCount > 0 Then %> <% If tblTypes_list.Pager.FirstButton.Enabled Then %> First  <% End If %> <% If tblTypes_list.Pager.PrevButton.Enabled Then %> Previous  <% End If %> <% For Each PagerItem As cPagerItem In tblTypes_list.Pager.Items %> <% If PagerItem.Enabled Then %><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %><% End If %>  <% Next %> <% If tblTypes_list.Pager.NextButton.Enabled Then %> Next  <% End If %> <% If tblTypes_list.Pager.LastButton.Enabled Then %> Last  <% End If %> <% If tblTypes_list.Pager.ButtonCount > 0 Then %>    <% End If %> Records <%= tblTypes_list.Pager.FromIndex %> to <%= tblTypes_list.Pager.ToIndex %> of <%= tblTypes_list.Pager.RecordCount %> <% Else %> <% If Security.CanList Then %> <% If tblTypes_list.sSrchWhere = "0=101" Then %> Please enter search criteria <% Else %> No records found <% End If %> <% Else %> You do not have the right permission to view the page <% End If %> <% End If %>     
Page Size 
<% End If %> <% 'If tblTypes_list.lTotalRecs > 0 Then %>
<% If Security.CanAdd Then %> Add   <% End If %>
<% 'End If %>
<% End If %>
<% If tblTypes.Export = "" AndAlso tblTypes.CurrentAction = "" Then %> <% End If %> <% If tblTypes.Export = "" Then %> <% End If %>