problema de cofigicacion con la creacion de un rss

[engonga]

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,"&nbsp;","")
                    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,"&copy;","©")
 r_cadena = replace(r_cadena,"&reg;","®")
 r_cadena = replace(r_cadena,"&deg;","°")
 r_cadena = replace(r_cadena,"&ordf;","ª")
 r_cadena = replace(r_cadena,"&sup2;","²")
 r_cadena = replace(r_cadena,"&acute;","´")
  r_cadena = replace(r_cadena,"&middot;","·")
  r_cadena = replace(r_cadena,"&ordm;","º")
    r_cadena = replace(r_cadena,"&iquest;","¿")
   r_cadena = replace(r_cadena,"&lowast;;","*")
   r_cadena = replace(r_cadena,"&quot;", "´´")
   r_cadena = replace(r_cadena,"&amp;", "&")
   r_cadena = replace(r_cadena,"&lt;", "<")
   r_cadena = replace(r_cadena,"&gt;", ">")
   r_cadena = replace(r_cadena,"&ldquo;", "´´")
   r_cadena = replace(r_cadena,"&rdquo;", "´´")
   r_cadena = replace(r_cadena,"&euro;", "€")
   r_cadena = replace(r_cadena,"&bull;", "·")
   
 
 
 r_Cadena =replace(r_cadena,"&aacute;","á")
 r_cadena =replace(r_cadena,"&agrave;","à")
 r_cadena =replace(r_cadena,"&eacute;","é")
 r_cadena =replace(r_cadena,"&egrave;","è")
 r_cadena =replace(r_cadena,"&iacute;","í")
 r_cadena =replace(r_cadena,"&oacute;","ó")
 r_cadena =replace(r_cadena,"&ograve;","ò")

 r_cadena =replace(r_cadena,"&uacute;","ú")
 r_cadena =replace(r_cadena,"&Aacute;","Á")
 r_cadena =replace(r_cadena,"&Agrave;","À")
 r_cadena =replace(r_cadena,"&Eacute;","É")
 r_cadena =replace(r_cadena,"&Egrave;","È")
 r_cadena =replace(r_cadena,"&Iacute;","Í")
 r_cadena =replace(r_cadena,"&Oacute;","Ó")
  r_cadena =replace(r_cadena,"&Ograve;","Ò")
 r_cadena =replace(r_cadena,"&Uacute;","Ú")
 r_cadena =replace(r_cadena,"&ntilde;","ñ")
 r_cadena =replace(r_cadena,"&Ntilde;","Ñ")
 r_cadena =replace(r_cadena,"&auml;","ä")
 r_cadena =replace(r_cadena,"&euml;","ë")
 r_cadena =replace(r_cadena,"&iuml;","ï")
 r_cadena =replace(r_cadena,"&ouml;","ö")
 r_cadena =replace(r_cadena,"&uuml;","ü")
 r_cadena =replace(r_cadena,"&Auml;","Ä")
 r_cadena =replace(r_cadena,"&Euml;","Ë")
 r_cadena =replace(r_cadena,"&Iuml;","Ï")
 r_cadena =replace(r_cadena,"&Ouml;","Ö")
 r_cadena =replace(r_cadena,"&Uuml;","Ü")
 r_cadena =replace(r_cadena,"&sup2;","²")
 r_cadena =replace(r_cadena,"&ntilde;","ñ")
 r_cadena =replace(r_cadena,"&Ntilde;","Ñ")
 r_cadena =replace(r_cadena,"&ccedil;","ç")
 r_cadena =replace(r_cadena,"&Ccedil;", "Ç")
 r_cadena = replace(r_cadena,"&rsquo;", "'")
 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