<%
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 relacion FROM Mexico Where Id =" & Request.QueryString("id") & "")
Do While Not registros.EOF
%>
<table> <%=registros.Fields("relacion").Value %></table>
eso es lo que tienes , y lo que hasces es mostrar el campo relacion, y normal que te muestre sólo la palabra de relación, prueba así:
<%
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 * FROM Mexico Where Id =" & Request.QueryString("id") & "")
Do While Not registros.EOF
%>
<table> <%=registros.Fields("titulo").Value %></table>