cantidad de lecturas

[malex6]

hola maestros,
he visto en otras web's que colocan debajo de un texto o una noticia o un comentario la cantidad de veces que ha sido leida,
¿como puedo hacer esto?

un agradecido de siempre...

Alex

;)

[Helbira]

Pues supongo que habrá muchas formas de hacerlo.

La más sencilla que se me ocurre es que cada noticia tiene un campo asociado en la base de datos que indica el número de veces que ha sido leída. Supongo que este número se incrementará en la base de datos cada vez que alguien hace click sobre el enlace del título de la noticia para ver su texto. En ese enlace se podría pasar el código de la noticia en la base de datos y el asp de destino se encargará de incrementar ese valor.

Creo que sólo preguntabas por la idea, si lo que quieres es código indícalo.





<div align="left">
<img src="http://www.sfn.saskatoon.sk.ca/~ad676/moon/img/kissy.gif" border="0">
</div>

[Aston]

Hola, como bien ha dicho Helbira, sólo tienes que pasar en el link el nº de la noticia y en la página de vuelta modificar el campo de Lecturas asociado.

Un ejemplo:

Leenoticia.asp?IdNoticia=27

'o si haces mención al campo de la base de datos...

Leenoticia.asp?IdNoticia=&lt;%=rsNoticias(&quot;Id Noticia&quot;)%&gt;

Y en la página donde se lee la noticia, antes de mostrarla...

dbConn.Execute &quot;Update Noticias Set Lecturas = Lecturas + 1 Where IdNoticia = &quot; &amp; Request.QueryString(&quot;IdNoticia&quot;)

Espero, te sirva, un saludo. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Deslizator]

Hola Aston, he leido este mensaje y la verdad me sirve mucho, pero yo pongo lo que me dices y esto me devuelve: Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'
El objeto no acepta esta propiedad o método: 'Mensaje.Execute'
Por si sirve de algo, este es el objeto mensajes:
%
set Mensaje = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Mensaje.ActiveConnection = MM_Foro_STRING
Mensaje.Source = &quot;SELECT * FROM Mensajes WHERE Id = &quot; + Replace(Mensaje__MMColParam, &quot;'&quot;, &quot;''&quot;) + &quot;&quot;
Mensaje.CursorType = 0
Mensaje.CursorLocation = 2
Mensaje.LockType = 3
Mensaje.Open()
Mensaje_numRows = 0
%&gt;

(Es para un foro) Muchísimas gracias!

[Aston]

Claro Deslizator, pero tu problema no tiene ningún secreto.

En tu caso Mensaje es un Recordet (de la tabla) y un recordset no soporta el método Execute .

Este es un método de la conexión, no del recordset. Soluciona ese pequeño detalle y estarás en marcha.

Un saludo y ¡Cuéntanos! :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>