Three Tier Code Generator For ASP.NET

<%

Function AddPageCodeBehind()
	AddPageCodeBehind =	PageComments("Add"& ActionFile & ".aspx" & GetFileExtension(CodingLanguage), AuthorCompany, "") &_
				StartPageClass(WebNamespace() & ".SitePage", "Add"& ActionFile, WebNamespace() & ", " & BusinessNamespace(), "") & vbCrLf &_
				DeclareAddEditCntrl(0, vbTab & vbTab) & vbCrLf &_
				DesignerGeneratedCode("Add", vbTab & vbTab) &_				
				AddPageLoad(vbTab & vbTab) & vbCrLf &_
				AddClick(vbTab & vbTab)  & vbCrLf &_
				EndPageClassBlock("")
End Function

Function AddPage()
	AddPage =	HtmlHeader("Add"& ActionFile & ".aspx", Title, CssFilePath) & vbCrLf &_	
			AddForm() & vbCrLf &_
			HtmlFooter & vbCrLf 
End Function

Function UpdatePageCodeBehind()
	UpdatePageCodeBehind =	PageComments("Update"& ActionFile & ".aspx" & GetFileExtension(CodingLanguage), AuthorCompany, "") &_
				StartPageClass(WebNamespace() & ".SitePage", "Update"& ActionFile, WebNamespace() & ", " & BusinessNamespace(), "") & vbCrLf &_
				DeclareAddEditCntrl(1, vbTab & vbTab) & vbCrLf &_				
				DesignerGeneratedCode("Update", vbTab & vbTab) &_
				GetStatement(Declaration("Private", FieldId, "Int32", "0", CodingLanguage), CodingLanguage, vbTab & vbTab) & vbCrLf &_				
				UpdatePageLoad(vbTab & vbTab) & vbCrLf &_
				EditClick(vbTab & vbTab)  & vbCrLf &_
				EndPageClassBlock("")								
End Function

Function UpdatePage()
	UpdatePage =	HtmlHeader("Update"& ActionFile & ".aspx", Title, CssFilePath) & vbCrLf &_
					UpdateForm() & vbCrLf &_
					HtmlFooter & vbCrLf 
End Function

Function DefaultPageCodeBehind()
	DefaultPageCodeBehind = PageComments("Default.aspx" & GetFileExtension(CodingLanguage), AuthorCompany, "") &_
							StartPageClass(WebNamespace() & ".SitePage", "Default" & Pagesfolder, WebNamespace() & ", " & BusinessNamespace(), "") & vbCrLf &_
							DeclareDefaultCntrls()& vbCrLf &_
							DesignerGeneratedCode("Default", vbTab & vbTab) 
	If BlnDataGridEdit = "1" then	
		DefaultPageCodeBehind = DefaultPageCodeBehind & DeclareDynamicCntrl(vbTab & vbTab)
	End if
	DefaultPageCodeBehind = DefaultPageCodeBehind & DefaultPageLoad(vbTab & vbTab) & vbCrLf &_
							BindDataGrid(vbTab & vbTab) & vbCrLf &_
							DatagridItemDataBound(vbTab & vbTab) & vbCrLf &_
							DatagridSort(vbTab & vbTab) & vbCrLf &_				
							DatagridPageIndexChanged(vbTab & vbTab) & vbCrLf &_
							DatagridDelete(vbTab & vbTab) & vbCrLf 
	If BlnDataGridEdit = "1" then	
	DefaultPageCodeBehind = DefaultPageCodeBehind & DatagridEdit(vbTab & vbTab) & vbCrLf &_
							DatagridCancel(vbTab & vbTab) & vbCrLf &_
							DatagridUpdate(vbTab & vbTab) & vbCrLf &_
							LoopForListCntrlFunctions(vbTab & vbTab) &_
							BindDynamicListControl(vbTab & vbTab)
	End if
	DefaultPageCodeBehind = DefaultPageCodeBehind & EndPageClassBlock("")					
End Function

Function DefaultPage()
	DefaultPage =	HtmlHeader("Default.aspx",Title, CssFilePath) & vbCrLf &_
					DefaultForm() & vbCrLf &_
					HtmlFooter & vbCrLf 
End Function
%>