Private MainDiv As JQueryElement
private Sub SetPage
Dim sb As StringBuilder, sbRep As StringBuilder
sb.Initialize
' RICERCA podotti
Dim img As String,i As Int
Query="select * from artpro where reparto=" & rep
Dim cur As ResultSet
cur = Main.SQL1.ExecQuery2(Query, Null)
Log("ExecuteMemoryTable: " & Query)
Do While cur.NextRow
i=1+i
img=cur.GetString("IMMAGINE")
sb.Append(fx("<div class=°w3-quarter°>"))
sb.Append(fx("<img id=°img" & i & "° src=°" & img & "° alt=°" & img & "° style=°width:100%°>" ))
sb.Append(fx("<h4>" & cur.GetString("des") & "</h4>"))
Loop
sb.Append(fx(" </div>"))
sb.Append(fx(" </div>"))
MainDiv.SetHtml(sb.ToString)
End Sub