Three Tier Code Generator For ASP.NET

<%

Function ConstructorStart(AccessMod, ConstructorName, ParametersCol, CodeLanguage, Tab)
	AccessMod = GetAccessModifier(AccessMod, "0", CodeLanguage)
	Select Case CodeLanguage
		Case "0" 			
			ConstructorStart = Tab & AccessMod & " Sub New(" & ParametersCol & ")"  & vbCrLf
		Case "1" 
			ConstructorStart = Tab & AccessMod & " " & " " & ConstructorName & "(" & ParametersCol & ")" & vbCrLf
	End Select
End function

Function FunctionStart(AccessMod, FunctionName, ParametersCol, ReturnType, CodeLanguage, Tab)
	AccessMod = GetAccessModifier(AccessMod, "0", CodeLanguage)
	Select Case CodeLanguage
		Case "0" 			
			FunctionStart = Tab & AccessMod & GetFuncTitle(ReturnType) & FunctionName & "(" & ParametersCol & ")" & GetReturnType(ReturnType)
		Case "1" 
			FunctionStart = Tab & AccessMod & " " & ReturnType & " " & FunctionName & "(" & ParametersCol & ")" 
	End Select
End function

Function GetFuncTitle(ReturnType)
	If ReturnType = "void" Then
		GetFuncTitle = " Sub "
	Else
		GetFuncTitle = " Function "
	End if
End Function

Function GetReturnType(ReturnType)
	If ReturnType = "void" Then
		GetReturnType = ""
	Else
		GetReturnType = " As " & ReturnType
	End if
End Function

Function GetReturn(ReturnValue, CodeLanguage)	
	Select Case CodeLanguage
		Case "0" 			
			GetReturn = "Return " & ReturnValue
		Case "1" 
			GetReturn = "return " & ReturnValue
	End Select
End function

Function FunctionEnd(FuncType, CodeLanguage, Tab)	
	Select Case CodeLanguage
		Case "0" 
			Select Case FuncType
				Case "0" 			
					FunctionEnd = Tab & "End Sub" & vbCrLf
				Case "1" 
					FunctionEnd = Tab & "End Function" & vbCrLf  
			End Select			
		Case "1" 
			FunctionEnd = Tab & "}" & vbCrLf  
	End Select
End function


%>