Hola
Algo como esto debería de funcionar
Código ASP:
Ver originalIndiceArr1 = Int(UBound(Arr1)+1)
SumaArr = Int(UBound(Arr2) + IndiceArr1)
contador = 0
For x = IndiceArr1 to SumaArr
Redim preserve Arr1(SumaArr) ' Redimensonamos "Arr1()"
Arr1(x) = Arr2(contador) ' Cada elemento de "Arr2()" lo metemos en "Arr1()"
Next 'x
contador = Int(contador+1)
Response.Write "<b>Arreglos Unidos:" & Join(Arr1,", ")
Suerte