Message CBL x ASPX - 2ª part

See what's going on, see the images at  http:\\www.mmsis.com.br\mf\Acesso1.png and http:\\www.mmsis.com.br\mf\Acesso2.png

      method-id Button1_Click protected.

      procedure division using by value sender as object e as type System.EventArgs.

          declare mymsg = "This is a message!"

          invoke self::ClientScript::RegisterStartupScript(type of self, "yourMessage", "alert('" & mymsg & "');", true)

      end method.