<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,Notes| Q=Employees| TH=Title=PopUp Text and Memo"
    .dbMagicCell = "f=firstname| mac=#poptext#"
    .dbPopText = "Skin=Plain| LinkText = <IMG border=0 SRC='/tornado/images-net/search.gif'>..."
    .ASPdbNET()
  End With
End Sub
</script>