I have changed the control name to Editor1, and here is the code behind:
'Using Statements @1-E5FBC350
Imports System
Imports System.Collections
Imports System.Collections.Specialized
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Text.RegularExpressions
Imports System.Globalization
Imports NewProject1
Imports NewProject1.Data
Imports NewProject1.Security
Imports NewProject1.Configuration
Imports NewProject1.Controls
Namespace
'End Using Statements
'Forms Definition @1-A03C6C47
Public Class [yPage]
Inherits System.Web.UI.Page
'End Forms Definition
'Forms Objects @1-EBD5F1A0
Protected editor1Data As editor1DataProvider
Protected editor1Error As System.Web.UI.WebControls.PlaceHolder
Protected editor1Holder As System.Web.UI.HtmlControls.HtmlControl
Protected editor1ErrorLabel As System.Web.UI.WebControls.Label
Protected editor1Errors As NameValueCollection = New NameValueCollection()
Protected editor1Operations As FormSupportedOperations
Protected editor1Name As System.Web.UI.WebControls.TextBox
Protected editor1Editor1 As System.Web.UI.WebControls.TextBox
Dim Protected editor1Button_Insert As HtmlInputButton
Dim Protected editor1Button_Update As HtmlInputButton
Dim Protected editor1Button_Delete As HtmlInputButton
'End Forms Objects
'Page_Load Event @1-A2D2CF1E
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
'End Page_Load Event
'Page_Load Event BeforeIsPostBack @1-49DCD044
If Not IsPostBack Then
Dim PageData As PageDataProvider = New PageDataProvider()
Dim item As PageItem = PageItem.CreateFromHttpRequest()
PageData.FillItem(item)
editor1Show()
End If
'End Page_Load Event BeforeIsPostBack
'Page_Load Event tail @1-E31F8E2A
End Sub
'End Page_Load Event tail
'Page_Unload Event @1-D998A98F
Protected Overrides Sub OnUnload(ByVal e As System.EventArgs)
'End Page_Unload Event
'Page_Unload Event tail @1-E31F8E2A
End Sub
'End Page_Unload Event tail
'Record Form editor1 Parameters @2-FC249DD2
Protected Sub editor1Parameters()
Try
editor1Data.UrlDesignetID = IntegerParameter.GetParam(Request.QueryString("DesignetID"))
Catch e As Exception
editor1Errors.Add("Parameters","Form Parameters: " + e.Message)
End Try
End Sub
'End Record Form editor1 Parameters
'Record Form editor1 Show method @2-E40B16BD
Protected Sub editor1Show()
If editor1Operations.None Then
editor1Holder.Visible = False
Return
End If
Dim item As editor1Item = editor1Item.CreateFromHttpRequest()
Dim IsInsertMode As Boolean = Not editor1Operations.AllowRead
editor1Errors.Add(item.errors)
If editor1Errors.Count > 0 Then
editor1ShowErrors()
Return
End If
'End Record Form editor1 Show method
'Record Form editor1 BeforeShow tail @2-AA7B3AEB
editor1Parameters()
editor1Data.FillItem(item, IsInsertMode)
editor1Button_Insert.Visible=IsInsertMode AndAlso editor1Operations.AllowInsert
editor1Button_Update.Visible=Not(IsInsertMode) AndAlso editor1Operations.AllowUpdate
editor1Button_Delete.Visible=Not(IsInsertMode) AndAlso editor1Operations.AllowDelete
editor1Name.Text=item.Name.GetFormattedValue()
editor1Editor1.Text=item.Editor1.GetFormattedValue()
'End Record Form editor1 BeforeShow tail
'Record Form editor1 Show method tail @2-887627E0
If editor1Errors.Count > 0 Then
editor1ShowErrors()
End If
End Sub
'End Record Form editor1 Show method tail
'Record Form editor1 LoadItemFromRequest method @2-4E87066F
Protected Sub editor1LoadItemFromRequest(item As editor1Item, ByVal EnableValidation As Boolean)
item.Name.SetValue(editor1Name.Text)
item.Editor1.SetValue(editor1Editor1.Text)
If EnableValidation Then
item.Validate(editor1Data)
End If
editor1Errors.Add(item.errors)
End Sub
'End Record Form editor1 LoadItemFromRequest method
'Record Form editor1 GetRedirectUrl method @2-91CCBCDA
Protected Function Geteditor1RedirectUrl(ByVal redirect As String, ByVal removeList As String) As String
Dim parameters As New LinkParameterCollection()
If redirect = "" Then redirect = "y.aspx"
Return redirect + "?" + parameters.ToString("GET",removeList,ViewState)
End Function
'End Record Form editor1 GetRedirectUrl method
'Record Form editor1 ShowErrors method @2-F6F912B6
Protected Sub editor1ShowErrors()
Dim DefaultMessage As String = ""
Dim i As Integer
For i = 0 To editor1Errors.Count - 1
Select Case editor1Errors.AllKeys(i)
Case Else
DefaultMessage = DefaultMessage & editor1Errors(i) & "<br>"
End Select
Next i
editor1Error.Visible = True
editor1ErrorLabel.Text = DefaultMessage
End Sub
'End Record Form editor1 ShowErrors method
'Record Form editor1 Insert Operation @2-198BBB74
Protected Sub editor1_Insert(ByVal sender As Object, ByVal e As System.EventArgs)
Dim item As editor1Item = New editor1Item()
Dim ExecuteFlag As Boolean = True
Dim ErrorFlag As Boolean = False
Dim RedirectUrl As String = ""
Dim EnableValidation As Boolean = False
'End Record Form editor1 Insert Operation
'Button Button_Insert OnClick. @3-B08F0301
If CType(sender,Control).ID = "editor1Button_Insert" Then
RedirectUrl = Geteditor1RedirectUrl("", "")
EnableValidation = True
'End Button Button_Insert OnClick.
'Button Button_Insert OnClick tail. @3-477CF3C9
End If
'End Button Button_Insert OnClick tail.
'Record Form editor1 BeforeInsert tail @2-1E69A02A
editor1Parameters()
editor1LoadItemFromRequest(item, EnableValidation)
If editor1Operations.AllowInsert Then
ErrorFlag=(editor1Errors.Count > 0)
If ExecuteFlag And (Not ErrorFlag) Then
Try
editor1Data.InsertItem(item)
Catch ex As Exception
editor1Errors.Add("DataProvider",ex.Message)
ErrorFlag = True
End Try
End If
'End Record Form editor1 BeforeInsert tail
'Record Form editor1 AfterInsert tail @2-7269FD99
End If
If ErrorFlag Then
editor1ShowErrors()
Else
Response.Redirect(RedirectUrl)
End If
End Sub
'End Record Form editor1 AfterInsert tail
'Record Form editor1 Update Operation @2-CD608DE1
Protected Sub editor1_Update(ByVal sender As Object, ByVal e As System.EventArgs)
Dim item As editor1Item = New editor1Item()
item.IsNew = False
Dim ExecuteFlag As Boolean = True
Dim ErrorFlag As Boolean = False
Dim RedirectUrl As String = ""
Dim EnableValidation As Boolean = False
'End Record Form editor1 Update Operation
'Button Button_Update OnClick. @4-7DB23FCA
If CType(sender,Control).ID = "editor1Button_Update" Then
RedirectUrl = Geteditor1RedirectUrl("", "")
EnableValidation = True
'End Button Button_Update OnClick.
'Button Button_Update OnClick tail. @4-477CF3C9
End If
'End Button Button_Update OnClick tail.
'Record Form editor1 Before Update tail @2-3D5C7F61
editor1Parameters()
editor1LoadItemFromRequest(item, EnableValidation)
If editor1Operations.AllowUpdate Then
ErrorFlag = (editor1Errors.Count > 0)
If ExecuteFlag And (Not ErrorFlag) Then
Try
editor1Data.UpdateItem(item)
Catch ex As Exception
editor1Errors.Add("DataProvider",ex.Message)
ErrorFlag = True
End Try
End If
'End Record Form editor1 Before Update tail
'Record Form editor1 Update Operation tail @2-7269FD99
End If
If ErrorFlag Then
editor1ShowErrors()
Else
Response.Redirect(RedirectUrl)
End If
End Sub
'End Record Form editor1 Update Operation tail
'Record Form editor1 Delete Operation @2-A7DD2D20
Protected Sub editor1_Delete(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ExecuteFlag As Boolean = True
Dim ErrorFlag As Boolean = False
Dim RedirectUrl As String = ""
Dim EnableValidation As Boolean = False
Dim item As editor1Item = New editor1Item()
item.IsNew = False
item.IsDeleted = True
'End Record Form editor1 Delete Operation
'Button Button_Delete OnClick. @5-0A395CF6
If CType(sender,Control).ID = "editor1Button_Delete" Then
RedirectUrl = Geteditor1RedirectUrl("", "")
EnableValidation = False
'End Button Button_Delete OnClick.
'Button Button_Delete OnClick tail. @5-477CF3C9
End If
'End Button Button_Delete OnClick tail.
'Record Form BeforeDelete tail @2-2D3C6FAC
editor1Parameters()
editor1LoadItemFromRequest(item, EnableValidation)
If editor1Operations.AllowDelete Then
ErrorFlag = (editor1Errors.Count > 0)
If ExecuteFlag And (Not ErrorFlag) Then
Try
editor1Data.DeleteItem(item)
Catch ex As Exception
editor1Errors.Add("DataProvider",ex.Message)
ErrorFlag = True
End Try
End If
'End Record Form BeforeDelete tail
'Record Form AfterDelete tail @2-7269FD99
End If
If ErrorFlag Then
editor1ShowErrors()
Else
Response.Redirect(RedirectUrl)
End If
End Sub
'End Record Form AfterDelete tail
'Record Form editor1 Cancel Operation @2-B630D1BA
Protected Sub editor1_Cancel(ByVal sender As Object, ByVal e As System.EventArgs)
Dim item As editor1Item = New editor1Item()
Dim RedirectUrl As String = ""
editor1LoadItemFromRequest(item, True)
'End Record Form editor1 Cancel Operation
'Record Form editor1 Cancel Operation tail @2-EA2B0FFB
Response.Redirect(RedirectUrl)
End Sub
'End Record Form editor1 Cancel Operation tail
'OnInit Event @1-3349F5FF
#Region " Web Form Designer Generated Code "
Protected Overrides Sub OnInit(ByVal e As EventArgs)
'
' CODEGEN: This call is required by the ASP.NET Web Form Designer.
'
InitializeComponent()
'Me.Load += new System.EventHandler(this.Page_Load);
'Me.Unload += new System.EventHandler(this.Page_Unload);
MyBase.OnInit(e)
editor1Data = New editor1DataProvider()
editor1Operations = New FormSupportedOperations(False, True, True, True, True)
'End OnInit Event
'OnInit Event tail @1-E31F8E2A
End Sub
'End OnInit Event tail
'InitializeComponent Event @1-EA5E2628
' <summary>
' Required method for Designer support - do not modify
' the contents of this method with the code editor.
' </summary>
Private Sub InitializeComponent()
End Sub
#End Region
'End InitializeComponent Event
'Page class tail @1-DD082417
End Class
End Namespace
'End Page class tail