Three Tier Code Generator For ASP.NET

<%
Function StartObjInterface(Tab)
	StartObjInterface = CommentType("Interface: I" & ObjectName, "Description: Interface to define the properties of the business object to be used by the databse object," & Tab & "of the " & TableName & "." , vbTab ) &_ 
	InterfaceStart("Public", "I" & ObjectName, CodingLanguage, Tab) &_
	OpenScope(CodingLanguage, Tab)	
End Function

Function DefineObjInterface(Tab)
	
	DefineObjInterface  =	StartObjInterface(Tab) &_	
				DefineInterfaceProperty(FieldId, "Int32", Tab & vbTab) 
			
	FOR NumLoop = 0 to FieldCount
		DefineObjInterface = DefineObjInterface & DefineInterfaceProperty(AllFieldsNames(NumLoop), TypeNetFieldsNames(NumLoop), Tab & vbTab) 	 
	NEXT

	DefineObjInterface = DefineObjInterface & InterfaceEnd(CodingLanguage, Tab) & vbCrLf
End Function

Function DefineInterfaceProperty( PropertyName, PropertyType, Tab)
	DefineInterfaceProperty = DefineInterfaceProperty & InterfaceProperty(PropertyName, PropertyType, CodingLanguage, Tab)					
End Function

Function ObjInterface()
	ObjInterface = PageComments("I" & ObjectName & GetFileExtension(CodingLanguage), AuthorCompany, "") &_
		ImportsUsing("System", "" ) &_
		StartNameSpaceBlock(InterfaceNamespace(), "") &_
		DefineObjInterface(vbTab) &_
		EndNameSpaceBlock()
End Function
%>