Código PHP:
response.ContentType = "text/xml"
response.Write "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbCrlf
response.Write "<rss version=""0.91"">" & vbCrlf
response.Write "<channel>" & vbCrlf
response.Write "<title>Mi titulo</title>" & vbCrlf
response.Write "<link>http://www.misitio.com/</link>" & vbCrlf
response.Write "<description>Mi descripcion</description>" & vbCrlf
response.Write "<language>es-CL</language>" & vbCrlf
Sql="SELECT TOP 10 * FROM Mi Base (NOLOCK) ORDER BY fecha DESC"
Set Rs = con.Execute(Sql)
if not Rs.EOF then
while not Rs.EOF
cadena=Rs("noticia")
cadena=Replace(cadena,"¥","´")
cadena=Replace(cadena,"<br>",chr(13))
cadena=Replace(cadena,">",">")
cadena=Replace(cadena,"<","<")
cadena=Replace(cadena,"&","&")
cadena=Replace(cadena,"¿","¿")
cadena=Replace(cadena,"ñ","Ñ")
cadena=Replace(cadena,"ñ","ñ")
cadena=Replace(cadena,"ó","á")
cadena=Replace(cadena,"é","é")
cadena=Replace(cadena,"á","á")
cadena=Replace(cadena,"é","é")
cadena=Replace(cadena,"í","í")
cadena=Replace(cadena,"ó","ó")
cadena=Replace(cadena,"ú","ú")
response.write "<item>" & vbCrlf
response.write "<title>" & Rs("fecha2") & "</title>" & vbCrlf
response.Write "<link>http://www.misitio.com/pagina.asp</link>" & vbCrlf
[B]response.write "<description><![CDATA[" & cadena & "]]></description>" & vbCrlf[/B]
response.write "</item>" & vbCrlf
Rs.Movenext
wend
end if
Set Rs = nothing
response.Write "</channel>" & vbCrlf
response.Write "</rss>" & vbCrlf
Código PHP:
<description>esto es el texto</description>
Código PHP:
<description>
<![CDATA[ esto es el texto ]]>
</description>