Noticias Relacionadas

[garcef]

he estado buscando como realizar un sistema parecido al de los diarios en linea, sobre Noticias relacionadas o articulos relacionados pero todavia no doy

alguna sugerencia

[yampoo]

Yo lo que usa en mi página es que busque en el buscador para encontrar noticias relacionadas.

diarioexpres.com

(Tengo que mejorarlo porque no busca por frases... )

[garcef]

Pero como realizar la busqueda

[CHuLoSoY]

mejor que un buscador sería poner un nuevo campo en la bd y poner algunas palabras clave que irían en la noticia, entonces en esa noticia llamar a las palabras clave y así todas las noticias irían relacionadas.

No es difícil.

[univercity]

como te indica Chulosoy, se hace insertando en la base de datos un campo que indique la relacion, por ejemplo "Pinochet", entonces todas las noticias que hablen del perro salvador diran,
noticias relacionadas...

[garcef]

Porque ya estuve buscando como pasar las variables pero me da error, alguna sugerencia

[Nono Martínez]

Yo ahora mismo tambien estoy dandole vueltas a como hacerlo, es lo unico que le falta implementarle a mi periodico.

Pense que al insertar/modificar noticia se viera un campo listbox con todas las noticias de la categoria seleccionada donde se pudiera hacer multiseleccion y guardar los IDs de dichas noticias en un campo de texto separados por comas, y luego listar los links a dichas noticias al pie de pagina de detalle de la noticia que estamos mostrando con el titulo "noticias relacionadas".

Si alguien de este foro pudiera echar una mano a encontrar una manera mas eficiente se lo agradeceríamos.

[flacoluis]

si tienen win 2000 o superior pueden usar
el servicio Index Server

[garcef]

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/

[Muzztein]

base de datos cauros...base de datos.


que onda?

leanse un libro de entidad relacion y solitos se les ocurrira como resolver estas payasadas.

no es necesario saber programar para resolver este tipo de problemas


estudien !!!

[yiyocastro]

uy..... que hacker............................... mijo pasaste por ahi... oistes..! ó leistes...

[virla]

Una consulta, pero antes agradezco la ayuda ya que justo lo estaba necesitando y ya estaba por hacer algo mas complicado.
como puedo hacer para que no me agregue la noticia que se esta visualizando?
haciendo un if, dentro del Do While?

[virla]

sorri, prero algno no me funciona y he probado de todo
aca les pego el codigo y el error

Error:
Microsoft JET Database Engineerror '80040e10'

No se han especificado valores para algunos de los parámetros requeridos. /aspectox/prueba.asp, line 8

Aclaracion la linea 8 en rojo
Codigo:
<%
Dim conexion, registros, basedatos, datosT
datosT="Docentes"
basedatos = Server.MapPath("/DataBase/dB_porta_2000.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
set result = Server.CreateObject("ADODB.RecordSet")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT id, relacion, Titulo FROM tblDiario WHERE (registros= 'Docentes') 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

[tammander]

Iniciado por Muzztein

base de datos cauros...base de datos.


que onda?

leanse un libro de entidad relacion y solitos se les ocurrira como resolver estas payasadas.

no es necesario saber programar para resolver este tipo de problemas


estudien !!!

Con Access solo tienen el LIKE, simple pero eficaz.

Si usan MSSQL tienen, junto al IN y al EXISTS y el susodicho LIKE, predicados tales como FREETEXT o CONTAINS (investiguen el todopoderoso FTI o FULL-TEXT INDEX)

Si usan MySQL, tienen tambien implementado FTI pero usando MATCH y AGAINST


Busquen en la documentacion de sus BDs y verán que es más facil de lo que imaginan.



Un saludo

[virla]

gracias pero esto no me ayudan en nada seria bueno que pueda responder alguien que tenga la ayuda correcta a las perguntas
gracias igual

[JuanRAPerez]

bueno
hace una cosa

pone algo mas corto en tu sql y ve si te da el mismo error

Set registros = conexion.Execute("SELECT * FROM tblDiario WHERE registros= 'Docentes';")

solo para ver si ahi se te esta dando el error

suerte

[virla]

bueno lo he probado asi y sigue con lo mismo, y ayer estube probando de todas las maneras y nada
este es el error que me da


Microsoft OLE DB Provider for ODBC Driverserror '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. prueba.asp, line 6

es la misma linea que me pasastes vos

[JuanRAPerez]

proba asi:

Set registros = conexion.Execute("SELECT * FROM tblDiario")

entonces es tu sql de conexion

prueba eso