ASP表示数据表，第一条数据，前一数据、后一数据、最后一个数据。怎么表示？

例如SQL中ABC数据库中的efg表。

我现在的程序要自动生成学号。
1.后一数据与前一数据相差大于等于2的话可以插入一新的数据
2.当遍历之后找不到后一数据与前一数据相差大于等于2的数据,则sNumInt为最后一数据加1

先谢谢hangxj
可能我表达不清楚，再请教下。
009
013
比如这两个编号，他们中间相差了>2。所以sNumInt=010.
如果遍历后，数据中没有sNumInt相差2的两条记录，则sNumInt=最后一条记录+1
这代码怎么写呢？

sql="select Mid(sNum,7,3) from student where sDep=03 and grade=07 and ifdel=0 order by id"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
numCount=rs.recordcount
for(int i=0;i<numCount-1;i++)
下面应该怎么表示呢？
if 后一位数据 - 前一位数据 >=2 then
sNumInt=前一位数据 + 1

else
sNumInt = 最后一个数据 +1

009和013这两个编号是它自动生成的，现在就是要自动生成这些编号。sNum为编号。

sql="select sNum from student"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
numCount=rs.recordcount
for(int i=0;i<numCount-1;i++)
下面应该怎么表示呢？
if 后一位数据 - 前一位数据 >=2 then
sNumInt=前一位数据 + 1

else
sNumInt = 最后一个数据 +1

[此贴子已经被作者于2006-6-14 17:22:27编辑过]

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
numCount=rs.recordcount
'Mid(sNum,7,3)
Dim Qms,Hms,i
i=0
do while i<(numCount-1)
rs.move i
if not rs.eof then
Qms=mid(rs("sNum"),7,3)
rs.movenext
i=i+1
if not rs.eof then
Hms=mid(rs("sNum"),7,3)

'response.write Qms
'response.write Hms
'response.end
if Hms - Qms >=2 then
sNumInt=Qms + 1
else
sNumInt = Hms +1
end if
end if
end if
loop

错误类型：
ADODB.Recordset (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/shuzi/cas2/instudent.asp, 第 15 行
第15行是rs.move i

如果把rs.move i删除，结果得出sNumInt =5
第一行和第二行数据是005和006