<CFQuery NAME="CheckForDupSubs" Datasource="#DSN#">
SELECT DISTINCT ID, VendorID FROM tblSubContract WHERE ProjID=#URL.ID#
</cfquery>

<CFIF CheckForDupSubs.RecordCount gt Subs.RecordCount>
<CFSet TempArray=ArrayNew(2)>
<CFOutput Query="CheckForDupSubs">
<CFSet TempArray[CurrentRow][1]=ID>
<CFSet TempArray[CurrentRow][2]=VendorID>
</cfoutput>
<CFSet CHeck=0>
<CFLoop Index="A" FROM="1" TO="#ArrayLen(TempArray)#">
<CFLoop Index="B" FROM="1" To="#ArrayLen(TempArray)#">
<CFIF TempArray[A][2] IS TempArray[B][2] AND TempArray[A][1] neq TempArray[B][1] AND A neq B>
<CFIF TempArray[A][1] lt TempArray[B][1]>
<CFQuery NAME="DELETESub" Datasource="#DSN#">
DELETE FROM tblSubContract WHERE ID=#TempArray[A][1]#
</cfquery>
<CFELSEIF TempArray[B][1] lt TempArray[A][1]>
<CFQuery NAME="DELETESub" Datasource="#DSN#">
DELETE FROM tblSubContract WHERE ID=#TempArray[B][1]#
</cfquery>
<CFSet CHeck=1>
<CFBreak>
</cfif>

</cfif>
</cfloop>
<CFIF CHeck IS 1>
<CFBreak>
</cfif>
</cfloop>

</cfif>