<% 
	function GetValue(ID, itemType)
		'The ID is the ID number of the item.
		' itemType controls what lookup you use. i.e. culture, level, reviewer
		
		dim  selectItem
		dim tableName
		dim criteriaName

		if ID = ""  or itemType = "" then exit function
		if not isNumeric(ID) then exit function
	
		itemType = LCase(itemType)
			
		SELECT Case itemType
		case "culture"
			selectItem="Culture"
			tableName="TblCultures"
			criteriaName="ID"
		case "level"
			selectItem= "MyLevel"
			tableName="TblLevels"
			criteriaName="LevelID"
		case "reviewer"
			selectItem="NameFirst"
			tableName="TblIndividuals"
			criteriaName="ID"
		case "email"
			selectItem="Email"
			tableName="TblIndividuals"
			criteriaName="ID"
		case "reviewerlocation"
			selectItem = "NameFirst & ' ' & NameLast & iif(Location>'', ', ' & Location, '') as reviewer"
			tableName="TblIndividuals"
			criteriaName="ID"
		case "permissions"
			selectItem="PermissionText"
			tableName="TblPermissions"
			criteriaName="PermissionLevel"
		case else
			exit function
		end Select
		
			vSQL= join(array("SELECT", selectItem, _
										"FROM", tableName, _
										"WHERE", criteriaName, "=", ID), " ")
			response.write "

" & vSQL
			
				set valueClient = Server.CreateObject("ADODB.Recordset")
				valueClient.open vSQL, conn,3,3
				
			response.write ":" & valueClient.recordcount
			if not valueClient.EOF then 
				GetValue=valueClient(0)
			else
				GetValue = ""
			end if
			response.write ":" & GetValue
			valueClient.close
	end function
%>