Sub UpdateAllHtmlFiles(locale As String)
Dim query As String = "select id, page_name FROM pages GROUP BY page_name ORDER BY id"
Dim divs As List = sql_routines.ExecuteMemoryTable(query)
If divs.Size>0 Then
For z = 0 To divs.Size-1
Dim mu() As String
mu = divs.Get(z)
Dim pg As String = mu(1)
Dim body As String = buildpage.Build_auto(pg)
File.WriteString(Main.wwwFolder, locale & pg, body)
Next
End If
End Sub