数据库的某字段应为连续的自然数（1、2、3、4、5、6、7、8...)，但其中的一条记录被删除，比如是5，如何能找出被删除的就是5呢？
如何写这个代码：起始数为1，加1=<%=rs("id")%>为“真”则往下循环，直到a+1<><%=rs("id")%>,则p=a+1，p就是要找的数了，整个思路就是这样子，可我就是写不出来代码，请高手帮帮忙，小弟在这谢谢了！

do
  n=n+1
  if n<>rs("id") then
    delid=delid+","+rs("id")
  end if
  rs.movenext
  if rs.eof then exit do
loop
delid就是被删除的记录

循环ID
比如
Dim i,j
i=1
Do Until rs.EOF
      j=rs("id")
      i=i+1
      rs.MoveNext
      IF j<>i Then
          '不连续的纪录ID
      End IF
Loop