Cómo implementar ASP mover hacia arriba y hacia abajo

OrderBy = request("OrderBy") 'El número de pedido del registro actual es at_no, at_id es la identificación del registro, tengo una identificación y un número de pedido separados en esta tabla

at_ID = request("at_ID") 'ID del registro actual

action = request("action") 'Dirección de movimiento

If OrderBy="" o at_ID="" o action= "" Entonces

respuesta.escribir "¡¡¡Error!!!! ¡Error de parámetro! Regresar"

respuesta.end

end if

if action="Up" then 'Mover hacia arriba

'Primero determine si se ha movido al top

sql="seleccione el top 1 at_ID de TaUserReqTop donde at_no<"&OrderBy&" ordenar por at_no desc"

set rs=server.createobject ("adodb.recordset")

rs .open sql,conn,1,3

si rs.eof entonces 'No hay más registros delante

rs.close

set rs =nada

respuesta.write "&& lt;script>alert('Error, el elemento ya está en primer lugar');window.history.back();"

Respuesta.

end

end if

before_id=rs("at_ ID") 'ID del registro anterior

rs.close

set rs=nada

'Modificar el id del registro anterior

sql2="select at_no from TaUserReqTop donde at_ID="&before_ id 'Consultar el registro anterior

set rs2=server.createobject("adodb.recordset")

rs2.open sql2,conn,1,3

before_Orderby=rs2("at_no") 'OrderBy del registro

rs2("at_no")=OrderBy 'Cambiar el OrderBy de este registro

rs2.update

rs2.update

. close

set rs2=nada

sql3="select at_no from TaUserReqTop donde at_ID="&at_ID 'Consulta el registro actual (el registro que se va a mover)

set rs3=server .createobject("adodb.recordset")

rs3.close

set rs3=nada

elseif action="Abajo" y luego 'Mover abajo y arriba El significado de movimiento es el mismo

sql="select top 1 at_ID from TaUserReqTop donde at_no>"&OrderBy&" orden por at_no asc"

set rs=server.createobject("adodb. conjunto de registros")

rs.open sql,conn,1,3

si rs.eof entonces

rs.close

establecer rs=nada

respuesta.write ""

respuesta.end

fin si

end_id=rs("at_ID")

'response.Write(end_id)

'response.End()

rs.close

set rs=nada

sql2="seleccione at_ no de TaUserReqTop donde at_ID="&end_id

set rs2= server.update

rs2.close

set rs2=nada

sql3="seleccione at_no de TaUserReqTop donde at_ID= "&at_ID

set rs3=server.createobject("adodb.recordset")

rs3.open sql3,conn,1,3

rs

3(" at_no")=end_Orderby

rs3.update

rs3.close

set rs3=nada

else

Respuesta. End()

finalizar si

%>

" >>p>