Problemas con array

[nana_01]

hola a todos les explico mi problema

tengo dos arrays, los cuales los saco del SqlServer desde una consulta determinada, los cuales serian los siguientes

Rol actual(0) = 1007
Rol actual(1) = 15623
Rol actual(2) = 15663
Rol actual(3) = 15736
Rol actual(4) = 15749
Rol actual(5) = 15777
Rol actual(6) = 15973
Rol actual(7) = 34783
Rol actual(8) = 34819
Rol actual(9) = 34901
Rol actual(10) = 34957
Rol actual(11) = 34960

Rol anterior(0) = 1
Rol anterior(1) = 34960
Rol anterior(2) = 34957
Rol anterior(3) = 34901

despues hago varios calculos y saco los valores repetidos de los dos arrays

y me keda lo siguiente

indice(0) = 34901
indice(1) = 34957
indice(2) = 34960

lo ke tengo ke hacer es eliminar todos los elementos ke se encuentran en indice a Rol actual y Rol anterior la idea ke me keden de la siguiente manera

Rol actual(0) = 1007
Rol actual(1) = 15623
Rol actual(2) = 15663
Rol actual(3) = 15736
Rol actual(4) = 15749
Rol actual(5) = 15777
Rol actual(6) = 15973
Rol actual(7) = 34783
Rol actual(8) = 34819

Rol anterior(0) = 1

yo tengo el siguiente script
l = 0
for d = 0 to I
If (Rol_actual(d) <> Indice_1(e)) Then
Redim Preserve Result(d)
Result(l) = Rol_actual(d)
l = l + 1
End if
e = e + 1
If (e > a) Then
e = 0
End if
Next

I es la cantidad de elementos ke tiene Rol actual, esto me resulta, siempre y cuando los valores de indice tengan el mismo orden ke se encientra en rol anterior
a es la cantida de elementos ke tiene Indice
ademas tengo un J ke es la catidad de elementos de rol anterior

pero si se dan cuenta ke en rol anterior no tiene el mismo orden asi es ke este script no me resulta.........

alguien me puede ayudar a solucionar esto..............

hay ke tomar en cuenta ke los valores no siempre tiene el mismo orden correlativo..........

espero ke me haya hecho entender.............

ojala me puedan ayudar, he estado con este casho hace mas de un dia y no he podido solucionarlo y a simple vista se ve batante facil...........

de antemano muchisimas gracias

[nana_01]

hola ........... ya solucione el problema........... pero tengo el siguinte error

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos
/ir/TabuDatos.asp, line 884


el codigo es

StrTabla=join(Rol_actual,"#")
response.write StrTabla & "<br>"
For h = 0 to a
StrTabla=replace(StrTabla,Indice1(h)&"#","")
StrTabla=replace(StrTabla,"#"&Indice1(h),"")
Next
response.write StrTabla & "<br>"
matriz = split(StrTabla,"#")

la linea 884 es matriz = split(StrTabla,"#")

a ke se debe el error?.............

y lo otro ke keria consultar cuantos elementos puede aguantar un array y una cadena?...............

lo ke pasa ke en la base de datos tengo mas de 4 mil datos.............

gracias