yegs

<%
Function GetRequestMultiAsArray(ByRef pobjReqCol, ByVal pstrKey)
	Dim aryReturn
	Dim objList, lngCount, i
	
	Set objList = pobjReqCol(pstrKey)
	lngCount = objList.Count
	If lngCount = 0 Then
		aryReturn = Array()
	Else
		ReDim aryReturn(lngCount - 1)
		For i = 0 To lngCount - 1
			aryReturn(i) = objList.Item(i + 1)
		Next
	End If

	GetRequestMultiAsArray = aryReturn
End Function
%>