Public Sub getSections(pageId As Int) As List
Dim cur As ResultSet
Dim result As List
result.Initialize
cur = dB.ExecQuery(SQL_SELECT_SECTIONS & pageId & " ORDER BY Row")
Do While cur.NextRow
Dim s As sectionRec
s.Initialize
s.Id = cur.GetInt2(0)
s.title = cur.GetString2(1)
s.row = cur.GetInt2(2)
result.Add(s)
Loop
Return result
End Sub