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

Description

Description (*)

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

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

<% End If %>

Is Active

<% If ltgFixtureLocation.floIsActive.Sort = "ASC" Then %>

<% ElseIf ltgFixtureLocation.floIsActive.Sort = "DESC" Then %>

<% End If %>

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

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

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

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

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

<% 'End If %>