Ciao a tutti.

Sto provando ad esportare in fto XML tramite ASP una tabella di MYSQL.

Il codice è il seguente, ma risponde con il seguente errore:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'objFieldValue.Text'
/_xml/_process.asp, line 57

su questa riga: objFieldValue.Text = rs(i).value

Cosa sbaglio?

codice:
<%

Function addNewXML(strXMLFilePath, strFileName)

 Set objDom = server.CreateObject("Microsoft.XMLDOM")
 objDom.preserveWhiteSpace = True


 blnFileExists = objDom.Load(strXMLFilePath & "\" & strFileName)


 If blnFileExists = True Then

  Set objRoot = objDom.documentElement
 Else

  Set objRoot = objDom.createElement("rolodex")
  objDom.appendChild objRoot
 End If


 Set objRecord = objDom.createElement("contact")
 objRoot.appendChild objRecord

   SQL = " SELECT * FROM "
   SQL = SQL & " _Lista "
   SQL = SQL & " WHERE 1 "
   SQL = SQL & " AND "
   SQL = SQL & " VALIDO = 0 "
   Set rs = conn.Execute(SQL)

    countfields = rs.Fields.Count 
                 
    For i=0 to countfields -1


   Set objField = objDom.createElement("field")
   Set objattID = objDom.createAttribute("id")

   objattID.Text = rs(i).name

   objField.setAttributeNode objattID

   Set objattTabOrder = objDom.createAttribute("taborder")

   objattTabOrder.Text = i

   objField.setAttributeNode objattTabOrder

   Set objFieldValue = objDom.createElement("field_value")

   objFieldValue.Text = rs(i).value

   objRecord.appendChild objField

   objField.appendChild objFieldValue

 Next 


 If blnFileExists = False then

  Set objPI = objDom.createProcessingInstruction("xml", "version='1.0'")

  objDom.insertBefore objPI, objDom.childNodes(0)
 End If


 objDom.save strXMLFilePath & "\" & strFileName


 Set objDom = Nothing
 Set objRoot = Nothing
 Set objRecord = Nothing
 Set objField = Nothing
 Set objFieldValue = Nothing
 Set objattID = Nothing
 Set objattTabOrder = Nothing
 Set objPI = Nothing
End Function

addNewXML "d:\Inetpub\wwwroot\_xml\","_output.xml"

%>