Gem resultatet (responset) fra asp side i fil

du kan samle dem op undervejs med

skriv_til_fil = skriv_til_fil & "|" & response.write("et eller andet")

og så til slut i din asp fil

arr_skriv = split(skriv_til_fil,"|")
opret_fil = now()
opret_fil = replace(opret_fil,"-","")
opret_fil = replace(opret_fil,":","")
opret_fil = replace(opret_fil," ","")
opret_fil = opret_fil&".html" 'her angiver du filnavn og sti
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(server.mappath(opret_fil),true)
for a = 0 to ubound(arr_skriv)
f.WriteLine(arr_skriv(a))
next
f.WriteLine(now())
f.WriteLine

f.WriteLine Request.ServerVariables("QUERY_STRING")
f.close
set f=nothing
set fs=nothing

Et problem med den løsning er dog at variablen skriv_til_fil kun kan indeholde en vis mængde og koden vil med sikkerhed stoppe da jeg udskriver store mængder informationer.

Hvis det skal gøres på den måde, skal der løbende skrives til filen for at undgå at variablen "overfyldes".

så er der 2 andre muligheder:

start i toppen af filen med:

opret_fil = now()
opret_fil = replace(opret_fil,"-","")
opret_fil = replace(opret_fil,":","")
opret_fil = replace(opret_fil," ","")
opret_fil = opret_fil&".html" 'her angiver du filnavn og sti
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(server.mappath(opret_fil),true)
f.WriteLine(hver gang du har har noget fra db her)

f.close
set f=nothing
set fs=nothing


eller hente endnu engang fra db til slut i filen

opret_fil = now()
opret_fil = replace(opret_fil,"-","")
opret_fil = replace(opret_fil,":","")
opret_fil = replace(opret_fil," ","")
opret_fil = opret_fil&".html" 'her angiver du filnavn og sti
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(server.mappath(opret_fil),true)
'hente fra db igen

f.WriteLine(hver gang du har har noget fra db her)
'slut
f.close
set f=nothing
set fs=nothing

Takker