Have databaseudtræk i et xml-dokument

Du kunne via FSO skrive en fil med det indhold du vil ..

<%
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filen = filesys.CreateTextFile(server.mappath("/")&"\config.xml", True)

'Start billede/text loop her

filen.WriteLine("Your text goes here.") 'en af disse pr linje du vil skrive i filen ..

'slut billede/tekstlook her
filen.Close
set filen = nothing
set filesys = nothing
%>

Super, at du er kommet på banen, da jeg endnu ikke har fået det løst :-)

Jeg er nok bare ikke helt med. Filen, config.xml, ser f.eks. sådan ud:

<config

    bannerX="0"
    bannerY="0"
    bannerWidth="390"
    bannerHeight="300"
    bannerBGColor="FFFFFF"
   
    numbersX="10"
    numbersY="270"
    numbersSpacing="0"
    numbersHorizontal="yes"
   
    numberTextColor="FFFFFF"
    numberTextAlpha="70"
    numberTextRollOverColor="111111"
    numberTextRollOverAlpha="100"
   
    numberLineColor="000000"
    numberLineAlpha="80"
    numberLineRollOverColor="FFFFFF"
    numberLineRollOverAlpha="70"
   
    numberBGColor="111111"
    numberBGAlpha="40"
    numberRollOverBGColor="FFFFFF"
    numberRollOverBGAlpha="100"
   
    descriptionBGColor="000000"
    descriptionBgAlpha="20"
    descriptionLocation="up"

    preloadingColor="FFFFFF"
    preloadingAlpha="70"
    preloadingTextColor="FFFFFF"
    preloadingTextAlpha="70"

    timerBarColor="EE2211"
    timerBarAlpha="50"
    timerBarHeight="3"
    timerBarLocation="down"
   
    bannerAutoPlay="true"

/>

<items>
    <item delaytime="3" src="/billeder/billede1.jpg" href="http://www.xxxxxx.dk" target="_blank">
        <![CDATA[www.xxxxxx.dk]]>
    </item>
    <item delaytime="3" src="/billeder/billede2.jpg" href="http://www.yyyyyy.dk" target="_blank">
        <![CDATA[www.yyyyyy.dk]]>
    </item>
</items>

Skal ovenstående linier omskrives til filen.WriteLine("Your text goes here."), hvor Your text goes here. skal være linieteksten?

Skal filen blot ende på .asp, og have et almindeligt kald til databasen?

Virkelig på forhånd tak.

Så må det jo være noget i stil med

Set filesys = CreateObject("Scripting.FileSystemObject")
Set filen = filesys.CreateTextFile(server.mappath("/")&"\config.xml", True)

filen.WriteLine("<config")
filen.WriteLine("")
filen.WriteLine("bannerX=\"0\" ")
filen.WriteLine("bannerY=\"0\" ")
osv. til du er færdig med toppen af filen..

filen.WriteLine("<items>")
'Start billede/text loop her

filen.WriteLine("<item delaytime=\"3\" src=\"/billeder/billede1.jpg\" href=\"http://www.xxxxxx.dk\"  target=\"_blank\">")
filen.WriteLine("<![CDATA[www.xxxxxx.dk]]>")
filen.WriteLine("</item>")

...bliver jo så gentaget med hvert database element og skal jo bare rettes til med data fra databasen

'slut billede/tekstlook her

filen.WriteLine("</items>")

filen.Close

Jeg kan godt følge dig lidt, men ikke helt ;-)

Jeg har prøvet med:

<%
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filen = filesys.CreateTextFile(server.mappath("/flash/test/deploy")&"\config.xml", True)

filen.WriteLine("<config")
filen.WriteLine("")
filen.WriteLine("bannerX=\"0\" ")
filen.WriteLine("bannerY=\"0\" ")
filen.WriteLine("bannerWidth=\"390\" ")
filen.WriteLine("bannerHeight=\"300\" ")
filen.WriteLine("bannerBGColor=\"FFFFFF\" ")

filen.WriteLine("bannerAutoPlay=\"true\" ")

filen.WriteLine("<items>")

filen.WriteLine("<item delaytime=\"3\" src=\"/billeder/betingelser.jpg\" href=\"http://www.xxxxxx.dk\"  target=\"_blank\">")
filen.WriteLine("<![CDATA[www.xxxxxx.dk]]>")
filen.WriteLine("</item>")

filen.WriteLine("</items>")

filen.Close
set filen = nothing
set filesys = nothing
%>

Har kaldt filen config.asp - korrekt? Hvad med stien i "Set filen = filesys.CreateTextFile(server.mappath("/flash/test/deploy")&"\config.xml", True)" - er da ikke helt rigtig?

filesys.CreateTextFile(server.mappath("/")&"flash\test\deploy\config.xml", True)" - er da ikke helt

prøv den :)

OK, nu begynder jeg at se hele sammenhængen.

Nu kommer der dog denne fejl:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/flash/test/deploy/config.asp, line 7

filen.WriteLine("bannerX=\"0\" ")

ahh ..

prøv med
filen.WriteLine("bannerX=""0"" ")


og så andre steder hvor der er \" at rette det til ""

Ok, afprøvet og virker ok, men nu fejl omkring mappath:

Microsoft VBScript runtime error '800a004c'

Path not found

/flash/test/deploy/config.asp, line 3

Altså: Set filen = filesys.CreateTextFile(server.mappath("/")&"flash\test\deploy\config.xml", True)

\ før flash ..

Sådan :-) Det virker ...

Tusind tak for hjælpen. Jeg har haft problemet i rigtig lang tid, men havde lagt det på hylden, da jeg bare ikke kunne løse det. Sådan !

Smid et svar og pointene er mere end fuld fortjent !

svar er skam allerede smidt i starten :)

Ups ;-)

Så er der afgivet point