este código lo deje hace dos años espero que te sirva, yo lo usaba
<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("noticias.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT id,relacion,titulo FROM Mexico WHERE ((Mexico.relacion='" & result("relacion") & "')) ORDER BY id,relacion ASC;")
Do While Not registros.EOF
%>
<li><b><a href="pruebita2.asp?Id=<%=registros.Fields("id").V alue %>"><%=registros.Fields("titulo").Value %></a></b></li>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
para mas referencia sigue este enlace:
http://www.forosdelweb.com/f15/problema-interesante-108304/ 