potresti provare una cosa del genere
codice:
<%@ Language=VBScript %>

<%
dim arr(11,4)
dim strAppo
dim strTutti
dim strSeparatoreElementi
dim intAppoInstr
dim strAppoBis
dim intAltro
strSeparatoreElementi = "|Separatore{Sperando che Non Compaia nei Valori}|"
	
arr(0,0)= "11"
arr(0,1)= "d"
arr(0,2)= "zz"
arr(0,3)= "384938"
arr(0,4)= "s"

arr(1,0)= "000101000"
arr(1,1)= "huyu79009"
arr(1,2)= "72817290"
arr(1,3)= "384938"
arr(1,4)= "nando" 


arr(2,0)= "y"
arr(2,1)= "huyu79009"
arr(2,2)= "x"
arr(2,3)= "384938"
arr(2,4)= "4"


arr(3,0)= "000101000"
arr(3,1)= "huyu79009"
arr(3,2)= "72817290"
arr(3,3)= "384938"
arr(3,4)= "nando"

arr(4,0)= ""
arr(4,1)= ""
arr(4,2)= ""
arr(4,3)= ""
arr(4,4)= ""

arr(11,0)= "y"
arr(11,1)= "huyu79009"
arr(11,2)= "x"
arr(11,3)= "384938"
arr(11,4)= "4"

'Response.Write UBound(arr,1)

'Response.Write UBound(arr,2)
strTutti = strSeparatoreElementi
for i = 0 to UBound(arr,1)
	strAppo = ""
	for x = 0 to UBound(arr,2)
		strAppo = strAppo & arr(i,x) & strSeparatoreElementi
	next
	intAppoInstr = InStr(1,strTutti,strSeparatoreElementi & strAppo)
	if intAppoInstr > 0 then 
		strAppoBis = Mid(strTutti  ,intAppoInstr + len(strSeparatoreElementi & strAppo))
		intAltro = Left(strAppoBis,InStr(1,strAppoBis,Mid(strTutti  ,intAppoInstr + len(strSeparatoreElementi & strAppo))))
		Response.Write "i valori negli indici " & i &  " e " & intAltro & " sono uguali 
"
		'Response.Write strAppo & "
"
	end if
	strTutti = strTutti &  strAppo & i & "B" &   strSeparatoreElementi
next 
'Response.Write strTutti
%>