For i = 0 To 7
Dim r As List
Dim rCellThemes As List
r.Initialize
rCellThemes.Initialize
r.Add(Main.SQL3.ExecQuerySingleResult("SELECT System FROM CFG_SystemTable WHERE rowid =" & (i+1) ))
rCellThemes.Add("nocolor") ' nocoloredit
r.Add(Main.SQL3.ExecQuerySingleResult("SELECT Description FROM CFG_SystemTable WHERE rowid =" & (i+1) ))
rCellThemes.Add("nocolor") ' nocoloredit
r.Add(Main.SQL3.ExecQuerySingleResult("SELECT IPAddr FROM CFG_SystemTable WHERE rowid =" & (i+1) ))
rCellThemes.Add("IPnocoloredit") '
r.Add(Main.SQL3.ExecQuerySingleResult("SELECT SubID FROM CFG_SystemTable WHERE rowid =" & (i+1) ))
rCellThemes.Add("nocolor") ' nocoloredit
r.Add(Main.SQL3.ExecQuerySingleResult("SELECT Port FROM CFG_SystemTable WHERE rowid =" & (i+1) ))
rCellThemes.Add("nocolor") ' nocoloredit
Dim switchactive As ABMSwitch
Dim SWstate As Boolean
If Main.SQL3.ExecQuerySingleResult("SELECT Enable FROM CFG_SystemTable WHERE rowid =" & (i+1) ) ="0" Then
SWstate=False
Else
SWstate=True
End If
switchactive.Initialize(page, "switchactive", "ON", "OFF", SWstate, "switch")
r.Add(switchactive)
rCellThemes.Add("nocolor")
tbl1.AddRow("uid" & i, r)
tbl1.SetRowThemes(rCellThemes) ' make sure you have as many items in rCellThemes as in r!
Next