load xml error for asp load.asp

Discontinued products Uncategorized discussions
#1

the following code gets a load xml error for the combo box:



xmlFile = Server.MapPath(“account.xml”)



set objFSO = Server.CreateObject( “Scripting.FileSystemObject” )





sql = “SELECT AccountId, replace(AccountName, ‘&’,’&’) as AccountName FROM [Account] WHERE OwnerCRMID =



‘TomNoble’ and AccountName like '” & acctNm & “%’ and Active = 1 order by AccountName ASC”



dbOpen

'If dbExecuteRS(sql,rs) Then



Response.Buffer = True

Response.ContentType = “text/xml”

'response.write("<?xml version=""1.0"" encoding=""ISO-8859-1""?>")

'response.write ("")

set objPRIV = objDBConnection.execute(sql)

objFSO.CreateTextFile( xmlFile )

set objWrite = objFSO.OpenTextFile( xmlFile, 2 )



objWrite.WriteLine("<?xml version=""1.0"" ?>")

objWrite.WriteLine("")



do while not objPRIV.eof

'response.write("<option value="""& objPRIV(“AccountId”) &">")

‘response.write(objPRIV(“AccountName”))

‘response.write("")



objWrite.WriteLine("<option value="&"’"&objPRIV(“AccountId”)&"’"&">" & objPRIV(“AccountName”) & “”)



     objPRIV.MoveNext

loop

objWrite.WriteLine("")

objWrite.Close()





'response.write("")

'end if

#2

The code which writes data in file looks correct, but code which outputs data not so good
>>'response.write("<option value="""& objPRIV(“AccountId”) &">")
closing quote missed for “value” attribute