Foros del Web » Programando para Internet » ASP Clásico »

problema de cofigicacion con la creacion de un rss

Estas en el tema de problema de cofigicacion con la creacion de un rss en el foro de ASP Clásico en Foros del Web. 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/" ...
  #1 (permalink)  
Antiguo 16/06/2010, 10:41
Avatar de engonga
Usuario no validado
 
Fecha de Ingreso: marzo-2002
Ubicación: Buenos Aires
Mensajes: 1.300
Antigüedad: 22 años, 8 meses
Puntos: 8
problema de cofigicacion con la creacion de un rss

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_engque 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>12then 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

Etiquetas: asp, caracteres, codificacion, crear, rss
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:35.