Something

	function generate_category_options(byref rs, idCategory)
		dim retval, type, category
		
		type = vartype(idCategory)
		
		retval = ""
		while not rs.eof
			retval = retval &"<option value="""& rs("id") &""""
			
			if type = vbVarient or type = vbArray then
				for each category in idCategory
					if category = rs("id") then
						retval = retval &" selected=""selected"""
					end if
				next
			elseif idCategory = rs("id") then
				retval = retval &" selected=""selected"""
			end if
			
			retval = retval &">"& rs("name") &"</option>"
			rs.moveNext
		wend
		
		generate_category_options = retval
	end function