<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=2| M=Grid| S=2| DSN=Nwind| gdf=0,1,2| Q=Employees| TH=Title=PopUp Text and Memo"
    .dbMemoTextSize = -1
    Dim Gt As String = "<center>[[Grid]]<p>[[GridNav]]<P>[[GridStat]]<P>[[memo::Notes::"
    Gt &= "<table width='54%' class=ts cellspacing='1'><tr><td class='gh'>Employees Notes"
    Gt &= "</td></tr><tr><td class=nr>##field##</td></tr></table></center>]]"
    .dbGridTemplate = Gt
    .ASPdbNET()
End With
End Sub
</script>