gracias dobled , pero no se por que siempre mi variable de session me muestra el primer id y no sale de alli ahi va mi codigo :
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base2.mdb")
'Conectamos a la conexion a la base de datos.
sql ="SELECT TOP 10 * FROM preguntas WHERE Categoria= " & articulo & " ORDER BY id DESC"
'Abrimos la tabla pidiendo todos sus registros.
RS.Open sql, oConn %> <%Do While not RS.EOF %> </tr>
</table>
<table width="671" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="81" bgcolor="#EEEEEE"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%Response.Write "<IMG SRC="""&RS("imagen")&""">" %>
</font><font color="#FF0000" size="-1"> </font><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
</font></td>
<td width="463" valign="top" bgcolor="#EEEEEE"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%Response.Write RS.Fields("pregunta")&"</a></b><br><font color=""#696969""> "
Response.Write "<P>"
%>
</font><font color="#FF0000" size="-1"> </font><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
</font></td>
<td width="127" valign="top" bgcolor="#EEEEEE"><font color="#FF0000" size="-1">
<%Response.Write RS.Fields("usuario") %>
</font></td>
</tr>
</table>
<p>
<%
Session("sArticulo") = articulo
Session("numeroid")=Rs.Fields("id")/////////////aca esta mi variable id ///////////////
%>
</p>
<%RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
Gracias a quien me ayude