Ektron Content Type

Public Function GetContentType(ByVal sId As String) As String
	Select Case [sId]
		Case "1"
			Return "Content"
		Case "2"
			Return "Forms"
		Case "3"
			Return "Archive Content"
		Case "4"
			Return "Archive Forms"
		Case "7"
			Return "Library Item"
		Case "8"
			Return "Assets"
		Case "9"
			Return "Archive Assets"
		Case "12"
			Return "Archive Media"
		Case "99"
			Return "Non Library Content"
		Case "101"
			Return "Assets"
		Case "102"
			Return "Assets"
		Case "103"
			Return "Assets"
		Case "104"
			Return "Multimedia"
		Case "1111"
			Return "Discussion Topic"
		Case "3333"
			Return "Catalog Entry"
	End Select
End Function