<% sql = "SELECT p.*, c.Descripcion AS TituloCategoria FROM Publicaciones p, Categorias c WHERE c.IDCategoria = p.IDCategoria AND Tipo = 1 AND p.Habilitado = 1 ORDER BY c.Orden, p.Orden" set rspub = MSCS.Execute(sql) While not rspub.EOF Imagenes = Imagenes & "{image : '../fotos/" & rspub("Foto1") & "', title : '" & rspub("Titulo") & "', url : 'detail.asp?IDPublicacion=" & rspub("IDPublicacion") & "',cat:'" & rspub("TituloCategoria") & "',resumen:'" & Left(EscaparEnters(rspub("Descripcion")), 150) & "...'}," rspub.MoveNext() Wend Imagenes = Left(Imagenes, Len(Imagenes)-1) %> Bandido Guapo