Es increible lo que se puede hacer en una madrugada y me llega como regalo de navidad!!!!!!!
Ahí va el código para quien le sirva
<%
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
%>
Este código a mí me va a traer muchas cosas buenas, y gracias a los que colaboraron en el mensaje gracias y ojalá que le sirva a alguien más
¡¡¡¡¡¡¡ LO LOGREEEEEEEEEE !!!!!!
¡¡!!!!! FELIZ NAVIDAD A TODOS !!!!!!!!
