ASP/VBS Recordset to array

[Sanjay]

Hi,

I have 2 recordsets that return 2 lists (from 2 different Access DB):

rsRec1

aaa001
aaa002
aaa003 etc

rsRec2

aaa001
aaa003 etc


Is it possible to only list items in rsRec1 that do not appear in rsRec2?


Regards,

Sanjay

[stevenlmas]

Load rsRec1 and rsRec2 into Arrays and create a 3rd array 'arrayRec1Only'. dim
arrayRecOnly(1) for i = 1 to ubound(rsRec1) 'get the items in array 1
testItem = rsRec1(i) 'assign it to a var name for j = 1
to ubound(rsRec2) 'go through array 2 and look for match if testItem =
rsRec2(j) then 'if there's a match, set a flag to true foundMatch =
true end if next if foundMatch = false then 'if there's no match
add 1 to the holder array index reDim preserve arrayRec1Only(uboundRec1Only
+ 1) arrayRec1Only(uboundRec1Only) = testItem 'assign value to holder
array end if foundMatch = true 'set this to false again so it finds next
match, next

[Sanjay]

Thanks Steven,

Wow you sure know your ASP, I'm getting an error 'type mismatch'

I'm not sure if I have correctly split the lines from your message:

<% 'Load rsRec1 and rsRec2 into Arrays and create a 3rd array
'arrayRec1Only'.
dim arrayRecOnly(1)
for i = 1 to ubound(rsHMCEQuotes) 'get the items in array 1
testItem = rsHMCEQuotes(i) 'assign it to a var name
for j = 1 to ubound(rsESent) 'go through array 2 and look for match
if testItem = rsESent(j) then 'if there's a match, set a flag to true
foundMatch = true
end if
next
if foundMatch = false then 'if there's no match add 1 to the holder
array index
reDim preserve arrayRec1Only (ubound Rec1Only + 1)
arrayRec1Only (ubound Rec1Only) = testItem 'assign value to holder array
end if
foundMatch = true 'set this to false again so it finds next match,
next
%>

BTW I have changed the rs names slightly,

Regards,

Sanjay



"stevenlmas" <webforumsuser@macromedia.com> wrote in message
news:d0ii9n$is2$1@forums.macromedia.com...

> Load rsRec1 and rsRec2 into Arrays and create a 3rd array 'arrayRec1Only'.

dim

> arrayRecOnly(1) for i = 1 to ubound(rsRec1) 'get the items in array 1
> testItem = rsRec1(i) 'assign it to a var name for j

= 1

> to ubound(rsRec2) 'go through array 2 and look for match if

testItem =

> rsRec2(j) then 'if there's a match, set a flag to true

foundMatch =

> true end if next if foundMatch = false then 'if there's no

match

> add 1 to the holder array index reDim preserve

arrayRec1Only(uboundRec1Only

> + 1) arrayRec1Only(uboundRec1Only) = testItem 'assign value to

holder

> array end if foundMatch = true 'set this to false again so it finds

next

> match, next
>