Ik kan een file laten zien met de volgende code
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim stream
Set stream = fso.OpenTextFile(fileName)
Dim lineText
Do While Not stream.AtEndOfStream
lineText = stream.ReadLine
lineText = Replace (lineText,"<","<")
lineText = Replace (lineText,">",">")
Response.Write lineText & vbcrlf
Loop
stream.Close
Set stream = Nothing
Set fso = Nothing |
Ik wil het nu zo hebben dat hij deze in een download window zet.
Waarschijnlijk moet ik het content type veranderen in Response.ContentType = "application/octet-stream" en het volgende weg laten:
code:
1
2
3
4
5
6
7
8
| Dim lineText
Do While Not stream.AtEndOfStream
lineText = stream.ReadLine
lineText = Replace (lineText,"<","<")
lineText = Replace (lineText,">",">")
Response.Write lineText & vbcrlf
Loop |
Maar waarschijnlijk vergeet ik nu een regel om hem aan te bieden aan de browser.
Wie kan mij hier wat uitleg over geven