VBScript - General - Question - Duplicate fields i

sql = "select title, author, price from books"
rs.open sql, dbConn
if not rs.eof then alldata = rs.getrows()
rs.close

if isarray(alldata) then

for loop = 0 to ubound(alldata,2)
	'check if item has a duplicate first
    for secondloop = 0 to ubound(alldata,2)
    	if alldata(0,loop) = alldata(0,secondloop) and loop <> secondloop then 
		'this makes sure you are not comparing the same row^^^^^^
        	response.write("<font color='red'>")
            exit for
        end if                 
    next
    response.write(alldata(0,loop) & " - " & alldata(1,loop) & " - " & alldata(2,loop) & "<br>")
next
end if