<% dbms = Request.QueryString("dbms") set RS = ഀ
Session("animalsRd")
direction = CInt( Request.QueryString("direction") ഀ
) If RS.RecordCount > 0 then movecnt = ഀ
Request.QueryString("movecnt")
select case ഀ
direction case ഀ
1: ഀ
RS.MoveFirst ഀ
movecnt = 1 case ഀ
2: If not RS.BOF ഀ
Then ഀ
RS.MovePrevious ഀ
movecnt = movecnt - 1 End ഀ
If case ഀ
3: If not RS.EOF ഀ
Then ഀ
RS.MoveNext ഀ
movecnt = movecnt + ഀ
1 End ഀ
If case ഀ
4: ഀ
RS.MoveLast ഀ
movecnt = RS.RecordCount case ഀ
else ഀ
RS.CancelUpdate end ഀ
select
'Error Handling ഀ
If RS.EOF ഀ
Then movecnt = ഀ
RS.RecordCount RS.MoveLast ഀ
End If
ഀ
If RS.BOF Then movecnt = ഀ
1 ഀ
RS.MoveFirst End ഀ
If else movecnt = 0 End ഀ
If %>
<FORM Method=post Name=form1> <TABLE ഀ
width=100%> <% Set fieldInfo = RS.Fields ഀ
for i = 0 to fieldInfo.Count - 2 Set field ഀ
= fieldInfo.Item(i)%> ഀ
<TR><TD align=center width=40%><%=field.Name%>:</TD> ഀ
<TD ഀ
width=60%> ഀ
<%If RS.EOF or RS.BOF then ഀ
%> ഀ
<Input Type=Text name="Text<%=i%>" ഀ
size=25> ഀ
<%else%> ഀ
<Input Type=Text name="Text<%=i%>" size=25 ഀ
Value="<%=field.Value%>"> ഀ
<%end ഀ
if%> ഀ
</TD></TR> <%Next%> </TABLE>