creo saber como.. hago esto
<%
sql = "select * from usuario_mensaje where id_mensaje = " & request.QueryString("id_mensaje")
sql = sql & " and id_usuario = "& request.Cookies("id_usuario")
set RS = oCN.execute(sql)
%>
muestro el mensaje.. bla, bla, bla, etc.
luego esto
<%
sql = "select * from usuario_mensaje order by id_mensaje asc"
set oRS = oCN.execute(sql)
if not oRS.eof then
oRS.movelast
xid = oRS("id_mensaje")
oRS.movefirst
for i = request.QueryString("id_mensaje")+1 to Cint(xid)
xids = i& "," &xids
next
end if
'ahora muestro el sgte ID
xid = left(xids, Instr(xids, ",")-1)
response.write xid
%>
la vdd es q no lo he probado, tp lo voy a poder hacer xq este post es de hace mucho tiempo y la página que estaba trabajando ya murió

se me malogró la compu y se borro

bueno pes.. espero que sirva lo que he dado para alguien q lo necesite....