<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Ed As New Tornado.z
  With Ed
    .dbQP = "U=1|S=10|M=G!sys=t!Rowedit=t|D=NWIND|Q=Products|gdf=0,1,2,discontinued|" _
      & "Bm=products;0|Ni=b5,Update,GridUpdate,Add,GridAdd|egu=t|ega=t|Th=Ti=Normal & Grid Edit"
    .dbEditAddFlds = "1, fi=Discontinued|Ty=CB|Def=t"
    .dbEditGridAddFlds = "1, 2, fi=Discontinued|Ty=CB|Def=f"
    .dbEditUpdateFlds = "fi=0|Ty=RONOUP, 1, fi=Discontinued|Ty=CB|Def=t"
    .dbEditGridUpdateFlds = "fi=0|Ty=RONOUP, fi=Discontinued|Ty=CB|Def=f"
    .ASPdbNET()
  End With
End Sub
</script>