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

Description

Description (*)

<% If tblLocations.locDescription.Sort = "ASC" Then %>

<% ElseIf tblLocations.locDescription.Sort = "DESC" Then %>

<% End If %>

loc Lighting

<% If tblLocations.locLighting.Sort = "ASC" Then %>

<% ElseIf tblLocations.locLighting.Sort = "DESC" Then %>

<% End If %>

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

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

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

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

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

<% 'End If %>