Disculpa que insista pero me parece que el ejemplo que te pase, encaja perfectamente para lo que necesitas
Código:
<%
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias/noticias.mdb")
'Ejecuta un sentencia SQL de consulta
sql = "SELECT TOP 11 * FROM Noticias ORDER BY id DESC"
Set rs = con.Execute(sql)
'Recorre todas las filas del resultado
Dim I
I = 0
While NOT rs.EOF AND I < 10
I = I + 1
'Muestra la fila actual
Response.Write (" <tr valign=""middle"">")
Response.Write (" <td><img src=""images/spacer.gif"" width=""4"" height=""1""></td>")
Response.Write (" <td width=""95%""><b><img src=""images/arrow_small.gif"" width=""7"" height=""7""> <a href=noticia.asp?id=" & rs.Fields("id") & ">" & rs.Fields("titulo") & "</a></b>")
Response.Write (" <br><font color=""#696969"">" & rs.Fields("resumen") & "</font><br><br></td>")
Response.Write (" <td><img src=""images/spacer.gif"" width=""9"" height=""1""></td>")
Response.Write (" <td width=""99%"" class=""titletext""> </td>")
Response.Write (" </tr>")
'Pasa a la siguiente fila
rs.MoveNext
Wend
If NOT rs.EOF Then
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>")
End If
'Libera memoria
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
Saludos