Problema al unir dos arreglos...

[u_goldman]

Ya lo probe...

Al filter no le gustaron las sentencias NOT IN ademas que le faltaba especificar el campo, pero dandole un poquito la vuelta:

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 = " elemento <> " & Join(Arreglo1, " AND elemento <> ")

		.Filter = tmp
		.MoveFirst

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