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

TABLE: LPR Status

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