Creando archivos en el servidor...

[speedy]

Hola a todo el foro, me esta pasando algo muy raro a la hora de generar un archivo y al escribir en este informacion de una base de datos, me sale el siguiente error:

Código:

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/Grafic3d.asp, line 39 

fich.write ("<value><%=Valor
----------------------------^

quiza simple pero no veo por que este mal esto q estoy haciendo:

creamos el nombre del archivo.

Código:

archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "Grafic3dCreada.xml"

'conectamos con el FSO

Código:

set confile = createObject("scripting.filesystemobject")

creamos el objeto TextStream

Código:

set fich = confile.CreateTextFile(archivo)

Conecto BD, meto el Query y se ejecuta...

Código:

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DSN=BDSistema;"
Set rs = Server.CreateObject("ADODB.Recordset")	
	strSQL = "SELECT * FROM graficas WHERE IdReporte='1'"
	rs.Open strSQL, adoCon

y en el archivo creado escribo lo siguiente...

Código:

	If NOT rs.EOF Then
		fich.write ("<?xml version='1.0'?>")
		fich.write ("<pieData>")
		While Not rs.EOF	
			Color = rs("Color")
			Valor = rs("Valor")
			Nombre = rs("Nombre")
		 	fich.write ("<pie color=CCCCFF >")
		    fich.write ("<value><%=Valor%></value>")
		    fich.write ("<text><%=Nombre%></text>")
		  	fich.write ("</pie>")
		
		rs.MoveNext
    	Wend
		fich.write ("</pieData>")
	end if

Agradesco sus comentarios y muchas gracias, SALUDOS.