<% if NOT Request.Form("MOVE") = "New" then
Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
DatabaseConnection.Open Application("Connection1")
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.CursorType = 1
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.ActiveConnection = DatabaseConnection
Recordset1.Open Session("SQL"), DatabaseConnection
Session("FR") = Recordset1(Session("Field_ID"))
if NOT Request.Form("KEY") = "" then
Session("ID") = CInt(Request.Form("KEY"))
END IF
If Session("ID") = 0 then Session("ID") = Session("FR") 'If & only if record deleted.
Recordset1.MoveLast
Session("LR") = Recordset1(Session("Field_ID"))
Recordset1.MoveFirst
do while Session("ID") <> CINT(Recordset1(Session("Field_ID")))
Recordset1.MoveNext
loop
if Request.Form("First.x") <> "" then Recordset1.MoveFirst
if Request.Form("Previous.x") <> "" then Recordset1.MovePrevious
if Request.Form("Next.x") <> "" then Recordset1.MoveNext
if Request.Form("Last.x") <> "" then Recordset1.MoveLast
end if ' 2 if Request.Form.Item("MOVE") = "New" then
%>