Three Tier Code Generator For ASP.NET

<%
Function InterfaceProperty(PropertyName, ReturnType, CodeLanguage, Tab)
	Select Case CodeLanguage
		Case "0" 			
			InterfaceProperty = Tab & " Property " & PropertyName & "()" & GetReturnType(ReturnType) & vbCrLf 	 
		Case "1" 
			InterfaceProperty = Tab & ReturnType & " " & PropertyName & "{ get; set; }" & vbCrLf 	 
	End Select
End Function

Function GetValue(CodeLanguage)
	Select Case CodeLanguage
		Case "0" 			
			GetValue = "Value"
		Case "1" 
			GetValue = "value"
	End Select
End function

Function PropertyStart(AccessMod, PropertyName, ParametersCol, ReturnType, ImplementText, CodeLanguage, Tab)
	AccessMod = GetAccessModifier(AccessMod, "0", CodeLanguage)
	Select Case CodeLanguage
		Case "0" 			
			PropertyStart = Tab & AccessMod & " Property " & PropertyName & "(" & ParametersCol & ")" & GetReturnType(ReturnType) & " " & ImplementText
		Case "1" 
			PropertyStart = Tab & AccessMod & " " & ReturnType & " " & PropertyName 
	End Select
End Function

Function PropertyEnd(CodeLanguage, Tab)	
	Select Case CodeLanguage
		Case "0" 			
			PropertyEnd = Tab & "End Property" & vbCrLf 						
		Case "1" 
			PropertyEnd = Tab & "}" & vbCrLf  
	End Select
End function

Function GetStart(CodeLanguage, Tab)	
	Select Case CodeLanguage
		Case "0" 			
			GetStart = Tab & "Get" & vbCrLf 						
		Case "1" 
			GetStart = Tab & "get" & vbCrLf  
	End Select
End function

Function GetEnd(CodeLanguage, Tab)	
	Select Case CodeLanguage
		Case "0" 			
			GetEnd = Tab & "End Get" & vbCrLf 						
		Case "1" 
			GetEnd = Tab & "}" & vbCrLf  
	End Select
End function

Function SetStart(ReturnType, CodeLanguage, Tab)	
	Select Case CodeLanguage
		Case "0" 			
			SetStart = Tab & "Set(ByVal Value As " & ReturnType & ")" & vbCrLf 						
		Case "1" 
			SetStart = Tab & "set" & vbCrLf  
	End Select
End function

Function SetEnd(CodeLanguage, Tab)	
	Select Case CodeLanguage
		Case "0" 			
			SetEnd = Tab & "End Set" & vbCrLf 						
		Case "1" 
			SetEnd = Tab & "}" & vbCrLf  
	End Select
End function
%>