<% If tblLPRFixtureLocation_list.lTotalRecs > 0 Then %> <% tblLPRFixtureLocation_list.lOptionCnt = 0 If Security.CanView Then tblLPRFixtureLocation_list.lOptionCnt = tblLPRFixtureLocation_list.lOptionCnt + 1 ' View End If If Security.CanEdit Then tblLPRFixtureLocation_list.lOptionCnt = tblLPRFixtureLocation_list.lOptionCnt + 1 ' Edit End If If Security.CanDelete Then tblLPRFixtureLocation_list.lOptionCnt = tblLPRFixtureLocation_list.lOptionCnt + 1 ' Delete End If tblLPRFixtureLocation_list.lOptionCnt = tblLPRFixtureLocation_list.lOptionCnt + tblLPRFixtureLocation_list.ListOptions.Items.Count ' Custom list options %> <%= tblLPRFixtureLocation.TableCustomInnerHTML %> <% If tblLPRFixtureLocation.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 tblLPRFixtureLocation_list.ListOptions.Items.Count -1 If tblLPRFixtureLocation_list.ListOptions.Items(i).Visible Then Response.Write(tblLPRFixtureLocation_list.ListOptions.Items(i).HeaderCellHtml) Next %> <% End If %> <% If tblLPRFixtureLocation.floDescription.Visible Then ' floDescription %> <% If tblLPRFixtureLocation.SortUrl(tblLPRFixtureLocation.floDescription) = "" Then %> <% Else %> <% End If %> <% End If %> <% If (tblLPRFixtureLocation.ExportAll AndAlso tblLPRFixtureLocation.Export <> "") Then tblLPRFixtureLocation_list.lStopRec = tblLPRFixtureLocation_list.lTotalRecs Else tblLPRFixtureLocation_list.lStopRec = tblLPRFixtureLocation_list.lStartRec + tblLPRFixtureLocation_list.lDisplayRecs - 1 ' Set the last record to display End If If tblLPRFixtureLocation.CurrentAction = "gridadd" AndAlso tblLPRFixtureLocation_list.lStopRec = -1 Then tblLPRFixtureLocation_list.lStopRec = EW_GRIDADD_ROWS End If ' Move to first record For i As Integer = 1 to tblLPRFixtureLocation_list.lStartRec - 1 If Rs.Read() Then tblLPRFixtureLocation_list.lRecCnt = tblLPRFixtureLocation_list.lRecCnt + 1 Next tblLPRFixtureLocation_list.lRowCnt = 0 ' Output data rows Do While (tblLPRFixtureLocation.CurrentAction = "gridadd" OrElse Rs.Read()) AndAlso (tblLPRFixtureLocation_list.lRecCnt < tblLPRFixtureLocation_list.lStopRec) tblLPRFixtureLocation_list.lRecCnt = tblLPRFixtureLocation_list.lRecCnt + 1 If tblLPRFixtureLocation_list.lRecCnt >= tblLPRFixtureLocation_list.lStartRec Then tblLPRFixtureLocation_list.lRowCnt = tblLPRFixtureLocation_list.lRowCnt + 1 tblLPRFixtureLocation.CssClass = "" tblLPRFixtureLocation.CssStyle = "" tblLPRFixtureLocation.RowClientEvents = "onmouseover='ew_MouseOver(event, this);' onmouseout='ew_MouseOut(event, this);' onclick='ew_Click(event, this);'" If tblLPRFixtureLocation.CurrentAction = "gridadd" Then tblLPRFixtureLocation_list.LoadDefaultValues() ' Load default values Else tblLPRFixtureLocation_list.LoadRowValues(Rs) ' Load row values End If tblLPRFixtureLocation.RowType = EW_ROWTYPE_VIEW ' Render view ' Render row tblLPRFixtureLocation_list.RenderRow() %> > <% If tblLPRFixtureLocation.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 tblLPRFixtureLocation_list.ListOptions.Items.Count -1 If tblLPRFixtureLocation_list.ListOptions.Items(i).Visible Then Response.Write(tblLPRFixtureLocation_list.ListOptions.Items(i).BodyCellHtml) Next %> <% End If %> <% If tblLPRFixtureLocation.floDescription.Visible Then ' floDescription %> > ><%= tblLPRFixtureLocation.floDescription.ListViewValue %> <% End If %> <% End If Loop %>

Description

Description (*)

<% If tblLPRFixtureLocation.floDescription.Sort = "ASC" Then %>

<% ElseIf tblLPRFixtureLocation.floDescription.Sort = "DESC" Then %>

<% End If %>

<% ' Close recordset Rs.Close() Rs.Dispose() %>

<% If tblLPRFixtureLocation.CurrentAction <> "gridadd" AndAlso tblLPRFixtureLocation.CurrentAction <> "gridedit" Then %>

<% If tblLPRFixtureLocation_list.lTotalRecs > 0 Then %> <% End If %>

<% If tblLPRFixtureLocation_list.Pager Is Nothing Then tblLPRFixtureLocation_list.Pager = New cNumericPager(tblLPRFixtureLocation_list.lStartRec, tblLPRFixtureLocation_list.lDisplayRecs, tblLPRFixtureLocation_list.lTotalRecs, tblLPRFixtureLocation_list.lRecRange) %> <% If tblLPRFixtureLocation_list.Pager.RecordCount > 0 Then %> <% If tblLPRFixtureLocation_list.Pager.FirstButton.Enabled Then %> First <% End If %> <% If tblLPRFixtureLocation_list.Pager.PrevButton.Enabled Then %> Previous <% End If %> <% For Each PagerItem As cPagerItem In tblLPRFixtureLocation_list.Pager.Items %> <% If PagerItem.Enabled Then %><% End If %><%= PagerItem.Text %><% If PagerItem.Enabled Then %><% End If %> <% Next %> <% If tblLPRFixtureLocation_list.Pager.NextButton.Enabled Then %> Next <% End If %> <% If tblLPRFixtureLocation_list.Pager.LastButton.Enabled Then %> Last <% End If %> <% If tblLPRFixtureLocation_list.Pager.ButtonCount > 0 Then %> <% End If %> Records <%= tblLPRFixtureLocation_list.Pager.FromIndex %> to <%= tblLPRFixtureLocation_list.Pager.ToIndex %> of <%= tblLPRFixtureLocation_list.Pager.RecordCount %> <% Else %> <% If Security.CanList Then %> <% If tblLPRFixtureLocation_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 tblLPRFixtureLocation_list.lTotalRecs > 0 Then %>

<% If Security.CanAdd Then %> Add <% End If %>

<% 'End If %>