Here i attached the code kindly help me to debug this code

<!-- #include file="dbconnect.inc"-->
<%
dim access_numbers(5),i,select_numbers(5),j
access_numbers(0)="2134160606"
access_numbers(1)="2134160607"
access_numbers(2)="2134160608"
access_numbers(3)="2134160609"
access_numbers(4)="2134160610"
'dnis

set rs1=conobj1.execute("select count(dnis) as num from autodialer where account='200001' ")
num=rs1("num")

set rs=conobj1.execute("select dnis from autodialer where account='200001' ")
for i=0 to ubound(access_numbers)-1
for j=0 to num-1
if (access_numbers(i) <> rs(j)) then
Response.Write(access_numbers(i))&"<Br/>"
end if
next
next

%>