Código:
quiza simple pero no veo por que este mal esto q estoy haciendo:Microsoft VBScript compilation error '800a0409' Unterminated string constant /Grafic3d.asp, line 39 fich.write ("<value><%=Valor ----------------------------^
creamos el nombre del archivo.
Código:
'conectamos con el FSOarchivo= request.serverVariables("APPL_PHYSICAL_PATH") & "Grafic3dCreada.xml"
Código:
creamos el objeto TextStream set confile = createObject("scripting.filesystemobject")
Código:
Conecto BD, meto el Query y se ejecuta...set fich = confile.CreateTextFile(archivo)
Código:
y en el archivo creado escribo lo siguiente...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
Código:
Agradesco sus comentarios y muchas gracias, SALUDOS. 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