Problema al unir dos arreglos...

[u_goldman]

Bien...

¿podrias ahorrar la iteración para construir el filtro? (Nunca usé filter para un recordset)

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)

                tmp = "NOT IN("&Join(Arreglo1, ",")&")"

		.Filter = tmp
		.MoveFirst

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