Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/12/2002, 06:30
Avatar de garcef
garcef
 
Fecha de Ingreso: agosto-2001
Ubicación: Querétaro, México
Mensajes: 289
Antigüedad: 23 años, 8 meses
Puntos: 0
Pregunta Problema Interesante

Sucede que ando haciendo un sistema de noticias relacionadas, esto es mostrar una noticia de la base de datos pero en un apartado poner los enlaces con temas relacionados

Para ello para mostrar la noticia tengo esto:

en la cabeza antes de <html>

<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("misnoticias.mdb"))
sql = "SELECT * FROM Mexico WHERE id=" & Request.QueryString("id") & ""

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
%>

......

<body>

<p><%=result("agencia")%><br>
<%=result("fecha")%><br>
<p><%=result("noticia")%></p>


Ahora bien, en la misma base de datos tengo una comlumna con el nombre "relacionadas" donde introduzco una palabra clave por cada noticia (Ejemplo: Irak, todas las noticias sobre el tema se les coloca la palabra clave Irak)

Al solicitarla necesito que el ASP, muestre los titulos de la noticia de todos los registros con la palabra Irak

Para ello hice una conexión 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 relacion FROM Mexico Where Id =" & Request.QueryString("id") & "")
Do While Not registros.EOF
%>


<table> <%=registros.Fields("relacion").Value %></table>



<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>


Pero solo me muestra la palabra del registro "Irak" en lugar de mostrarme los titulos de todos los registros que digan Irak


Lo intente 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 relacion FROM Mexico Where <%=result("relacion")%>
Do While Not registros.EOF
%>


pero me da un error en la zona del result

de donde sale el result? de la primera conexion que genera la noticia

Espero ser claro
Espero que me entiendan
Espero su ayuda

Mil Gracias
__________________
garcef
Facebook: url]https://www.facebook.com/memelandiax[/url]
Twitter: @Memelandiax Vine:memelandiax Instagram: memelandiax Youtube: memelandiax