[thelist] array comparison question

Brian Delaney brian.delaney at mccmh.net
Fri Mar 11 07:01:03 CST 2005


This code sorta works. When you look at the contents of the array the 
records are sperated by many blank spaces.
My goal is that if the agency id in the sql record set is not in the 
arrayagencies I want to add it.
Any ides? The sql recordset has valid data without any blank rows.

DIM arrayagencies(),oldsize,varcount,iCTR,isequal
varcount = rsCount(0) ' this is a count of the records in the 
rsReportData() recordset - retrieved earlier on page
oldsize = 0
j = 0
Do While Not rsReportData.EOF

    reDim preserve arrayagencies(varcount + oldsize)
    j = 0
    Dim newubound
    newUbound = Ubound(arrayagencies)
   
    For j = 0 to UBOUND(arrayagencies)
         If arrayagencies(j) = mid(trim(rsReportData("AgencyID")),1,36) Then
            isequal = "true"
        End IF
    Next
       
    If isequal <> "true" then
            arrayagencies(newubound) = 
mid(trim(rsReportData("AgencyId")),1,36)
    End IF
true = ""
isequal = ""
oldsize = newubound
rsReportData.movenext
iCtr = iCtr + 1
Loop

*
*
*
This message, including any attachments, is intended solely for the use of the named recipient(s) and may contain confidential and/or priveleged information.  Any unauthorized review, use, disclosure or distribution of this communication(s) is expressly prohibited.  If you are not the intended recipient, please contact the sender by reply e-mail and destroy any and all copies of the original message.


More information about the thelist mailing list