salve ho implementato uno scritp per la creazione di un file xml con dei dati presi da un db però quando vado a creare il file mi da il seguente errore:

XML parseError errorCode -1072896766
XML parseError on line 1
XML parseError linepos 20
XML parseError reason È previsto un valore letterale stringa, ma non sono state trovate virgolette aperte.
il codice che genera il file xml è il seguente:
<%
'================================================= =======================
' MODULE: cCreateRSSFeed.asp
' AUTHOR: Terje Hauger
' HOME: © www.u229.no/stuff/Rss/
' CREATED: February 2006
' Version: 1.1
'================================================= =======================
' COMMENT:
' Create RSS 2.0 feeds with classic ASP (Really Simple Syndication).
' RSS 2.0 reference: http://blogs.law.harvard.edu/tech/rss

' This class supports all features described by the RSS 2.0 reference.

' Version 1.1:
' Added code to save the feed as utf-8 using xmldom.
' Fixed a few bugs.

'================================================= =======================
' ROUTINES:

' - Public Property Let SavePath(s)
' - Public Property Let Stylesheet(s)
' - Public Property Let Title(s)
' - Public Property Let Link(s)
' - Public Property Let Description(s)
' - Public Property Let Language(s)
' - Public Property Let Copyright(s)
' - Public Property Let ManagingEditor(s)
' - Public Property Let WebMaster(s)
' - Public Property Let PubDate(s)
' - Public Property Let LastBuildDate(s)
' - Public Property Let Category(s)
' - Public Property Let Generator(s)
' - Public Property Let Docs(s)
' - Public Property Let Cloud(s)
' - Public Property Let TimeToLive(s)
' - Public Property Let Image(s)
' - Public Property Let Rating(s)
' - Public Property Let TextInput(s)
' - Public Property Let SkipHours(s)
' - Public Property Let SkipDays(s)
' - Private Sub Class_Initialize()
' - Public Function CreateRSSFeed(oRS)
' - Private Sub UTF8(sXml)
' - Public Function CreateRSSTime()
'================================================= =======================

Const XMLDOM_PROGID = "Msxml2.DOMDocument"

'================================================= =======================
Class cCreateRSSFeed
'================================================= =======================

'// MODULE VARIABLES
Private m_sFeedSavePath
Private m_sStylesheet
Private m_sURL
Private m_sLink
Private m_sDescription
Private m_sLanguage
Private m_sCopyright
Private m_sManagingEditor
Private m_sWebMaster
Private m_sPubDate
Private m_sLastBuildDate
Private m_sCategory
Private m_sGenerator
Private m_sDocs
Private m_sCloud
Private m_sTimeToLive
Private m_sImage
Private m_sRating
Private m_sTextInput
Private m_sSkipHours
Private m_sSkipDays

'// MODULE PROPERTIES
Public Property Let SavePath(s)
m_sFeedSavePath = s
End Property
Public Property Let Stylesheet(s)
m_sStylesheet = s
End Property
Public Property Let URL(s)
m_sURL = s
End Property


'------------------------------------------------------------------------------------------------------------
' Comment:
'------------------------------------------------------------------------------------------------------------
Private Sub Class_Initialize()
On Error Resume Next

'// Set defaults
m_sLanguage = "it"

End Sub

'------------------------------------------------------------------------------------------------------------
' Comment: Create an RSS 2.0 feed.
'------------------------------------------------------------------------------------------------------------
Public Sub CreateRSSFeed(oRS)
On Error Resume Next

Dim sXml
Dim sArr
Dim iCounter

'// These 3 are requried
sXml = sXml & "<content width=""600"" height=""695"" bgcolor=""cccccc"" loadercolor=""ffffff"" panelcolor=""5d5d61"" buttoncolor=""5d5d61"" textcolor=""ffffff"">"

'// LOOP THE RECORDSET FOR THE ITEM ELEMENTS:

Do While Not oRS.EOF

If Len(oRS("url")) > 0 Then
sXml = "<page" & sXml & " src=/" & Chr(34) & oRS("url") & Chr(34) & " />"
End If
oRS.MoveNext
Loop

sXml = sXml & "</content>"

'// Save the resulting RSS 2.0 feed to file as utf-8.
Call UTF8(sXml)

End Sub

'------------------------------------------------------------------------------------------------------------
' Comment: Save RSS Feed to file. Default encoding for Xmldom is utf-8.
'------------------------------------------------------------------------------------------------------------
Private Sub UTF8(sXml)
' On Error Resume Next

Dim oXML

Set oXML = Server.CreateObject(XMLDOM_PROGID)

With oXML
.async = False
.loadXML (sXml)
.save m_sFeedSavePath
End With

If (oXML.parseError.errorCode <> 0) Then
Response.Write "XML parseError errorCode " & oXML.parseError.errorCode & "
"
Response.Write "XML parseError on line " & oXML.parseError.Line & "
"
Response.Write "XML parseError linepos " & oXML.parseError.linepos & "
"
Response.Write "XML parseError reason " & oXML.parseError.reason & "
"
End If

Set oXML = Nothing

End Sub

'------------------------------------------------------------------------------------------------------------
' Comment: Create valid RFC822 timestamp for RSS 2.0. Example: Wed, 1 Feb 2006 15:00:00 GMT
'------------------------------------------------------------------------------------------------------------
Public Function CreateRSSTime()
' On Error Resume Next

'// Use JScript to get the current UTC (GMT) time stamp and store it in Session("ServerGMT")
Server.Execute "GetServerGMT.asp"

'// Replace string UTC with GMT
CreateRSSTime =Replace(Session("ServerGMT"), "UTC", "GMT")

End Function

'================================================= =======================
End Class
'================================================= =======================
%>
dovrei modificarer questo pezzo di codice per generare la pagian esattamente:
If Len(oRS("url")) > 0 Then
sXml = "<page" & sXml & " src=/" & Chr(34) & oRS("url") & Chr(34) & " />"
End If
oRS.MoveNext
Loop
il nodo deve avere questo formato
<page src="pages/page3.jpg" />
come posso risolvere il problema?

grazie