hola tengo que crear un rss mediante asp
y tengo esto
rss.asp
Código PHP:
<!--#include file="Connections/vielhadi_arrel.asp" --><!--#include file="includes/fecha_rss.asp" --><?xml version="1.0" encoding="iso-8859-1"?>
<rss version="2.0"
xmlns:content="http://purl.org/rss/1.0/modules/content/"
xmlns:wfw="http://wellformedweb.org/CommentAPI/"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:atom="http://www.w3.org/2005/Atom"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
>
<channel>
<title>Vielhadigitau.org</title>
<atom:link href="http://www.vielhadigitau.org/rss.asp" rel="self" type="application/rss+xml"/>
<link>http://www.vielhadigitau.org/</link>
<description>Notícies de Vielhadigitau.org</description>
<%dim temp
sqlfecha =("SELECT data_noticies FROM noticies WHERE not_publicada ='si' ORDER BY data_noticies DESC")
set fecha =MM_VIDI_STRING.execute(sqlfecha)%>
<lastBuildDate><%=fecha_rss(fecha("data_noticies"))%></lastBuildDate>
<language>en</language>
<sy:updatePeriod>hourly</sy:updatePeriod>
<sy:updateFrequency>1</sy:updateFrequency>
<%sql="SELECT * FROM noticies WHERE not_publicada='si' ORDER BY data_noticies DESC"
set rst=MM_VIDI_STRING.execute(sql)
do while not rst.eof%>
<item>
<title><%=replace(rst("titol_noticies"),"´","'")%></title>
<link>http://www.vielhadigitau.org/noticies_detall.asp?id_not=<%=trim(rst("id"))%></link>
<pubDate><%=fecha_rss(cdate(rst("data_noticies")))%></pubDate>
<guid>http://www.vielhadigitau.org/noticies_detall.asp?id_not=<%=trim(rst("id"))%></guid>
<%temp=trim(rst("contingut_noticies"))
temp = RemoveHTML(trim(temp))
temp = replace(temp," ","")
temp = replace(temp, chr(13),"")
%>
<description><%=treure_acents(temp)%></description>
</item>
<%rst.movenext
loop%>
</channel>
</rss>
<%
MM_VIDI_STRING.close
set MM_VIDI_STRING=nothing
set rst=nothing
set fecha=nothing
%>
<!--#include file="includes/rss_funcions_neteja_html.asp" -->
<!--#include file="includes/funcio_utf.asp" -->
fecha_rss.asp
Código PHP:
<%function fecha_rss(f)
'Devuelve la fecha en este formato: "Tue, 20 Nov 07 16:14:32 +0100"
dim dias(6)
dias(0)="Sun"
dias(1)="Mon"
dias(2)="Tue"
dias(3)="Wed"
dias(4)="Thu"
dias(5)="Fri"
dias(6)="Sat"
dim fecha,temp
fecha=dias(weekday(f)-1) & ", " & day(f) & " " & mes_texto_eng(month(f)) & " " & year(f) & " "
temp=hour(f)
if len(temp)=1 then temp="0" & temp
fecha=fecha & temp & ":"
temp=minute(f)
if len(temp)=1 then temp="0" & temp
fecha=fecha & temp & ":"
temp=second(f)
if len(temp)=1 then temp="0" & temp
fecha=fecha & temp & " +0100"
fecha_rss=fecha
end function
'Y esta es la función mes_texto_eng, que simplemente recibe el número del mes y devuelve una cadena con el mes correspondiente en inglés:
function mes_texto_eng(mes)
dim meses(12)
meses(0)="-"
meses(1)="Jan"
meses(2)="Feb"
meses(3)="Mar"
meses(4)="Apr"
meses(5)="May"
meses(6)="Jun"
meses(7)="Jul"
meses(8)="Aug"
meses(9)="Sep"
meses(10)="Oct"
meses(11)="Nov"
meses(12)="Dec"
if (mes>12) then mes=0
mes_texto_eng=meses(mes)
end function %>
funcio_utf.asp
Código PHP:
<% function treure_acents(r_Cadena)
'caarcters raros
r_cadena = replace(r_cadena,"©","©")
r_cadena = replace(r_cadena,"®","®")
r_cadena = replace(r_cadena,"°","°")
r_cadena = replace(r_cadena,"ª","ª")
r_cadena = replace(r_cadena,"²","²")
r_cadena = replace(r_cadena,"´","´")
r_cadena = replace(r_cadena,"·","·")
r_cadena = replace(r_cadena,"º","º")
r_cadena = replace(r_cadena,"¿","¿")
r_cadena = replace(r_cadena,"∗;","*")
r_cadena = replace(r_cadena,""", "´´")
r_cadena = replace(r_cadena,"&", "&")
r_cadena = replace(r_cadena,"<", "<")
r_cadena = replace(r_cadena,">", ">")
r_cadena = replace(r_cadena,"“", "´´")
r_cadena = replace(r_cadena,"”", "´´")
r_cadena = replace(r_cadena,"€", "€")
r_cadena = replace(r_cadena,"•", "·")
r_Cadena =replace(r_cadena,"á","á")
r_cadena =replace(r_cadena,"à","à")
r_cadena =replace(r_cadena,"é","é")
r_cadena =replace(r_cadena,"è","è")
r_cadena =replace(r_cadena,"í","í")
r_cadena =replace(r_cadena,"ó","ó")
r_cadena =replace(r_cadena,"ò","ò")
r_cadena =replace(r_cadena,"ú","ú")
r_cadena =replace(r_cadena,"Á","Á")
r_cadena =replace(r_cadena,"À","À")
r_cadena =replace(r_cadena,"É","É")
r_cadena =replace(r_cadena,"È","È")
r_cadena =replace(r_cadena,"Í","Í")
r_cadena =replace(r_cadena,"Ó","Ó")
r_cadena =replace(r_cadena,"Ò","Ò")
r_cadena =replace(r_cadena,"Ú","Ú")
r_cadena =replace(r_cadena,"ñ","ñ")
r_cadena =replace(r_cadena,"Ñ","Ñ")
r_cadena =replace(r_cadena,"ä","ä")
r_cadena =replace(r_cadena,"ë","ë")
r_cadena =replace(r_cadena,"ï","ï")
r_cadena =replace(r_cadena,"ö","ö")
r_cadena =replace(r_cadena,"ü","ü")
r_cadena =replace(r_cadena,"Ä","Ä")
r_cadena =replace(r_cadena,"Ë","Ë")
r_cadena =replace(r_cadena,"Ï","Ï")
r_cadena =replace(r_cadena,"Ö","Ö")
r_cadena =replace(r_cadena,"Ü","Ü")
r_cadena =replace(r_cadena,"²","²")
r_cadena =replace(r_cadena,"ñ","ñ")
r_cadena =replace(r_cadena,"Ñ","Ñ")
r_cadena =replace(r_cadena,"ç","ç")
r_cadena =replace(r_cadena,"Ç", "Ç")
r_cadena = replace(r_cadena,"’", "'")
response.Write(r_cadena)
end function%>
saco los datos de una base datos pero todo y que remplazar los caracteres con la funcion treure_acents() me salen simbolos raros en el rss
puede ver el resultado en
http://www.vielhadigitau.org/rss.asp (está en catalán pero es para que se vean los errores)
si alguien sabe que tengo que hacer le estaré muy agradecido
chao