Ciao a tutti e buon anno.

Sto sbattendo da una settimana su un feed in una pagina asp. Senza scendere nei particolari mi hanno chiesto e ho bisogno della convalida W3: http://validator.w3.org/feed/check.c...Fredazione.asp

Non riesco a risolvere la codifica UTF-8, ne riesco a trovare informazioni utili a riguardo.
Ecco il codice ASP:
--------------------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
...
<script runat="server" language="VBScript">
function DoDateTime(str, nNamedFormat, nLCID)
dim strRet
dim nOldLCID

strRet = str
If (nLCID > -1) Then
oldLCID = Session.LCID
End If

On Error Resume Next

If (nLCID > -1) Then
Session.LCID = nLCID
End If

If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
strRet = FormatDateTime(str, nNamedFormat)
End If

If (nLCID > -1) Then
Session.LCID = oldLCID
End If

DoDateTime = strRet
End Function

Function TogliTAG(Stringa)
Dim RegEx, Temp

Temp = Stringa
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RegEx.IgnoreCase = True
Temp = RegEx.Replace(Temp, "")
Set RegEx = Nothing

TogliTAG = Temp
End Function
</script>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = ...
Recordset1_cmd.CommandText = "SELECT * FROM newsletter WHERE sub_titolo LIKE '%evidenza%' ORDER BY ID DESC"
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0

Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 5
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows


xml = "<?xml version=""1.0"" encoding=""utf-8""?><rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:content=""http://purl.org/rss/1.0/modules/content/"" xmlns:atom=""http://www.w3.org/2005/Atom"">" &_
"<channel><generator>http://textpattern.com/?v=4.2.0</generator><atom:link href=""http://www.zazoom.it/redazione.asp"" rel=""self"" type=""application/rss+xml"" /><link>http://www.zazoom.it/blog_rsc/redazione.asp</link><description>I Migliori articoli dal Blog di Zazoom RSC</description><title>Dalla Redazione del Blog Zazoom RSC</title>" & _
"<image><url>http://www.zazoom.it/logo-red.png</url><title>Dalla Redazione del Blog Zazoom RSC</title><link>http://www.zazoom.it/blog_rsc/default.asp</link></image>"

'Se il Record Set non è vuoto
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))

descr = (Recordset1.Fields.Item("corpo").Value)
descr = TogliTAG(descr)
descr = Replace(descr,"&", "e")
titolo = (Recordset1.Fields.Item("titolo").Value)
titolo = Replace (titolo, "&", "e")
link = "http://www.zazoom.it/blog_rsc/post.asp?id="& (Recordset1.Fields.Item("id").Value)
corpo= left(descr, 200) & "..."

xml = xml & "<item>"
xml = xml & "<title>" & titolo & "</title>"
xml = xml & "<link>" & link & "</link>"
xml = xml & "<description>" & corpo & "</description>"
xml = xml & "<author>"& (Recordset1.Fields.Item("nome").Value) &"</author>"
xml = xml & "</item>"

Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend


xml = xml & "</channel></rss>"

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml

'Libero Risorse

Recordset1.Close()
Set Recordset1 = Nothing
%>

---------------------------------------------------------------
Credo e spero di non supporre cavolate, che il probl sia in CODEPAGE="65001" ... ma come risolvo?

Grazie