lista.AddAll(Array As String("<html>","<head>","<body>","<table>","<thead>","<thead>","<th>Data</th><th>Column1</th><th>Column2</th><th>Column3</th><th>Column3</th></thead>","<tbody>"))
cursor = Starter.SQL1.ExecQuery("SELECT * FROM records")
For i = 0 To cursor.RowCount - 1
cursor.Position = i
lista.Add("<tr><td>"&cursor.GetString("date")&"</td>")
lista.Add("<td>"&cursor.GetString("services")&"</td>")
lista.Add("<td>"&cursor.GetString("input")&"</td>")
lista.Add("<td>"&cursor.GetString("output")&"</td>")
lista.Add("<td>"&cursor.GetString("values")&"</td></tr>")
Next
cursor.Close
lista.AddAll(Array As String("</table>","</body>","</html>"))
File.WriteList(File.DirRootExternal, "page.html", lista)