Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/06/2004, 02:15
processblack
 
Fecha de Ingreso: junio-2004
Mensajes: 2
Antigüedad: 19 años, 11 meses
Puntos: 0
Pregunta Problemas con RSS

Hola a todos, aquí un novato!!

No sé si será este el lugar más adecuado para postear mi problema. pero lo intento! :)

Recientemente he creado un RSS para mi web que está disponible desde www.processblack.com/rss.asp

El problema es que a la hora de visualizar mi rss en el navegador, no se muestra como la mayoría de los rss... no se vé por ejemplo como este: http://www.deltatangobravo.com/rss

Qué he hecho mal? os pongo el código de cómo lo he montado... está montado con ASP y una base de datos access... ya me contareis...

Código HTML:
<?xml version="1.0" encoding="iso-8859-1" ?>
<!--#include file="Connections/processblackConn.asp" -->
<%
set news = Server.CreateObject("ADODB.Recordset")
	news.ActiveConnection = MM_processblackConn_STRING
	news.Source = "SELECT * FROM noticias ORDER BY Id DESC"
	news.CursorType = 0
	news.CursorType = 0
	news.CursorLocation = 2
	news.LockType = 3
	news.Open()
	news_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 15
Dim Repeat1__index
Repeat1__index = 0
news_numRows = news_numRows + Repeat1__numRows
%>
<rss version="0.92">
	<channel>
		<title>processblack.com</title>
		<link>http://www.processblack.com</link>
		<language>es-es</language>
		<description>e-zine de Diseño Gráfico, Blog y galerías virtuales de Artistas Gráficos. Fotografía, ilustración, arte y tendencias.</description>
		<managingEditor>[email protected]</managingEditor>
		<% 
			While ((Repeat1__numRows <> 0) AND (NOT news.EOF)) 
		%>
		<% 
			Varcomentario = (news.Fields.Item("cabecera").Value)
			VarComentario = replace(Varcomentario, "<" , "&lt;")
			VarComentario = replace(Varcomentario, ">" , "&gt;")
			VarComentario = replace(Varcomentario, "'" , "&quot;")
			VarComentario = replace(Varcomentario, "¿" , "&iquest;")
		%>
		<item>
			<title><%=(news.Fields.Item("titular").Value)%></title>
			<link>http://www.processblack.com/news/comentarios.asp?Idnoticia=<%=(news.Fields.Item("id").Value)%></link>
			<description><%=(VarComentario)%></description>
		</item>
		<% 
		  Repeat1__index=Repeat1__index+1
		  Repeat1__numRows=Repeat1__numRows-1
		news.MoveNext()
		Wend
		%>
	</channel>
</rss>
<%
news.Close()
%>