Sub Handle(req As ServletRequest, resp As ServletResponse)
Log("---------------> map")
Dim sql1 As SQL=Main.Pool.GetConnection
' make only one select * table1
sql1.Close
Dim sql1 As SQL=Main.Pool.GetConnection
' make only one select * table2
sql1.Close
Dim sql1 As SQL=Main.Pool.GetConnection
' make only one select * table3
sql1.Close
End Sub