Problema al unir dos arreglos...

[AlZuwaga]

Bueno, ya está solucionado, pero te paso una solución alternativa que comencé anoche y recién termino :P

Código:

<%
CONST adInteger = 3
CONST adOpenDynamic = 2
CONST adUseClient = 3

Arreglo1=Array(9,4,8)
Arreglo2=Array(1,9,4,7,2,6,3,5,8)

Set rs = Server.CreateObject("ADODB.Recordset")
With rs
	.CursorLocation = adUseClient
	.CursorType = adOpenDynamic
	.Fields.Append "elemento", adInteger, 255, &H00000020
	.open

	for i = 0 to UBound(Arreglo2)
		.AddNew
		.Fields("elemento") = Arreglo2(i)
		.update
	next

		tmp = ""
		For j = 0 to UBound(Arreglo1)
			tmp = tmp & " elemento <> " & Arreglo1(j) & " AND "
		Next
		tmp = Left(tmp, len(tmp) - 5)

		.Filter = tmp
		.MoveFirst

		do while not .eof
			response.write rs("elemento") & "<br />"
		.Movenext
		loop
		.close
End With
Set rs = nothing
%>

Un saludo