Ok, aqui te va el codigo, pero hay que tratar primero ok?
Estructura
tbl_ordenar
campo_id - autonumerico
campo_order - entero
Código:
<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
ObjConn.Open 'cualquier_string_de_conexion
qry = "SELECT TOP 1 campo_order + 1 AS nuevo_orden FROM tbl_ordenar "
rs.open qry, ObjConn, 3, 3
if not rs.eof then
nuevo_orden = rs(0)
else
nuevo_orden = 1
end if
rs.Close
Set rs = Nothing
qry = "INSERT INTO tbl_ordenar VALUES("&nuevo_orden&")"
ObjConn.Execute(qry)
ObjConn.Close
Set ObjConn = Nothing
%>
Salu2,