Resúmen de noticia

[ric18]

Saludos, hace un tiempo leí un artículo de como hacer para que, en un sistema de noticias, se pueda dejar sólo las primeras líneas de un artículo para después al hacer "click" nos lleve a la noticia completa. ¿Alguien sabe como hacer esto? Ya tengo mi BD y el sistema para subir la noticia, pero lo quiero hacer es presentar sólo un resúmen de esta. Dejo mi código y gracias.

Código:

<%@LANGUAGE='VBScript'%>
 
 <!--#include file = conecta.asp-->


<% 
	
	sql="SELECT titulo,sumario,imagen FROM MMX_NEWS WHERE PUBLICAR='1'"
	
	Set MT_rs=dbConn.Execute(sql)
		
		'Response.Write (sql)
		
		

	Do while Not MT_rs.EOF
		
		titulo=MT_rs("titulo")
		sumario=MT_rs("sumario")
		imagen=MT_rs("imagen")
		
		
		Response.Write"<table>"
		Response.Write"<td>"
		Response.Write"<tr>" & titulo & "</tr>"
		Response.Write"<tr>"& sumario & "</tr>"
		Response.Write"<tr>" & imagen & "</tr>"
		Response.Write"</td>"
		Response.Write"</table>"
		
		MT_rs.MoveNext		
		loop
		
		MT_rs.Close
%>

[Shiryu_Libra]

de esto, unas cuantas modificaciones

link=MT_rs("id") '<--- indez, indice o id_noticia, etc
link = "pagina_detalle.asp?idnot=" & link
titulo=MT_rs("titulo")
sumario=MT_rs("sumario")

tmpstr = split(sumario," ")
for i=0 to 10
resumen = resumen & tmpstr(i) & " "
next

imagen=MT_rs("imagen")

Response.Write"<table>"
Response.Write"<td>"
Response.Write"<tr><a href="& link &">" & titulo & "</a></tr>"
Response.Write"<tr>"& resumen & "...</tr>"
Response.Write"<tr>" & imagen & "</tr>"
Response.Write"</td>"
Response.Write"</table>"

[ric18]

Gracias por la ayuda, lo probaré

[ric18]

Tengo otra duda respecto a este sistema de noticias.

Las noticias las subo por medio de un administrador, en la parte donde subo las noticias tengo el campo de publicar, valores de 1 y 0, además de darles categorías a estas noticias. El problema que tengo es que al correr el query me manda traer todas las noticias aunque su campo publicar sea 0 (que significa que no se publique) pero si soy más específico con el query, no me trae nada. Probé el query en la BD y me trae los campos sin problema. ¿a que se deberá mi error? ¿que estoy escribiendo mal?

Código:

<%@LANGUAGE='VBScript'%>
 
 <!--#include file = conecta.asp-->


<%  
	
	sql= "SELECT MMX_NEWS.id,MMX_NEWS.titulo,MMX_NEWS.sumario,MMX_NEWS.descripcion "
	sql= sql&"FROM		 MMX_news INNER JOIN "
	sql = sql&" MMX_GrupoNews ON MMX_News.ID_GRUPO = MMX_GrupoNews.ID WHERE MMX_GrupoNews.ID = 5 AND MMX_NEWS.publicar = 0 "
	'response.Write(sql)
	'response.End
	
	Set MT_rs=dbConn.Execute(sql)
		
	Do while Not MT_rs.EOF
	
link=MT_rs("ID") '
link = "detalle_news.asp?id=" & link
titulo=MT_rs("titulo")
sumario=MT_rs("sumario")

tmpstr = split(sumario," ")
for i=0 to 6 
resumen = resumen & tmpstr(i) & " "
next
		
		titulo=MT_rs("titulo")
		sumario=MT_rs("sumario")
		'imagen=MT_rs("imagen")
		
		
		Response.Write"<table>"
		Response.Write"<td>"
		Response.Write"<tr><a href="& link &">" & titulo & "</a></tr>"
		'Response.Write "<tr>" & titulo &"</tr>"
		Response.Write"<tr>"& sumario & "</tr>"
		Response.Write"<tr>" & imagen & "</tr>"
		Response.Write"</td>"
		Response.Write"</table>"
		
		MT_rs.MoveNext		
		loop
		
		MT_rs.Close
%>