Problema: RSS de processblack...
Hooola a tooooodos!
He estado pegándome con eso de los RSS, reconozco que soy un novato, pero algo he conseguido...
http://www.processblack.com/rss.asp
El rss se monta desde un ASP y funciona, que no es poco! pero por qué el mio se vé como se vé y el RSS de domestika ( https://www.domestika.org/foros/rss.php ) se vé de esa manera? quçe me falta? qué he hecho mal?
os pego el codigo de mi archivo, por si alguien quiere mejorarlo y ayudarme...
<code><?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</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>miguel@processblack.com</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()
%></code>
black
Ya está! sólo lo probé en Mozilla! era la versión que estaba mal...
Arriba está el código modificado! :)
Gracias Hartum!
black
eso donde? me va a dar algo!!! :D
si tengo un superValidator! :D
Soy válido!
hartum
The XML page cannot be displayed
Cannot view XML input using style sheet. Please correct the error and then click the Refresh button, or try again later.
--------------------------------------------------------------------------------
The system cannot locate the object specified. Error processing resource 'http://my.netscape.com/publish/formats/rss-0.92.dtd'.
black
Bueno, creo que he solucionado el problema que tenía y parece que ya vuelve a actulizarse y esas cosas :)
faltaba esta línea
<code><% Response.ContentType = "application/xml" %></code>
Os dejo el código enterito por si a alguien le sirve :D
<code><?xml version="1.0" encoding="iso-8859-1"?>
<% Response.ContentType = "application/xml" %>
<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://my.netscape.com/publish/formats/rss-0.91.dtd">
<rss version="0.91">
<channel>
<!--#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
%>
<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>miguel@processblack.com</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, "''", "'")
VarComentario = replace(Varcomentario, "'" , "&quot;")
VarComentario = replace(Varcomentario, "¿" , "&iquest;")
VarComentario = replace(Varcomentario, vbCrLf , "&lt;br /&gt;")
%>
<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()
%></code>
Por cierto! mi rss:
www.processblack.com/rss.asp
de nada!
black
además de la duda inicial... otra duda me corroe...
he puesto para que sólo muestre las 15 últimas... bien? mal?
algún consejo?
GRACIAS!!
black
help! i need somebody!!!! :D
black
laminimal
rss power!!!. yo soy un adicto ya...
ya he agregado tu web, black, y en un principio no he tenido ningún problema con rss reader en firefox.
oleeeeee!!!! Gracias!
RSS POWA!
jesusgollonet
rss power!!!. yo soy un adicto ya...
ya he agregado tu web, black, y en un principio no he tenido ningún problema con rss reader en firefox.
black
consuma
Me lo apunto, pero no será una indirecta sobre mi web eh?, porque no cumplo ni una de las adicciones...
jajajaj!!! no es ninguna indirecta, no! bastante tienes con la adicción a DMSTK ;) jajajaja!!!! (es brooma!)
consuma
Me lo apunto, pero no será una indirecta sobre mi web eh?, porque no cumplo ni una de las adicciones...
black
consuma
Pero Black, habla en castellano, que no te entendemos,... ja :-)
eh! sabes que es coña, me gustaría poder ayudarte bro, pero... ni idea yo ni idea
jajaja!!! léete este artículo...
volviendote adicto a los RSS en 5 pasos...
consuma
Pero Black, habla en castellano, que no te entendemos,... ja :-)
eh! sabes que es coña, me gustaría poder ayudarte bro, pero... ni idea yo ni idea