[ASP] Download von TXT-Files mit speicher-unter Dialog

[Benjamin Wolf]

Hi All!

Ich hab folgendes Problem:
Ich möchte auf meiner Website .txt-Files zum download anbieten, es soll aber
der speichern-unter Dialog erscheinen und nicht im Browser geöffnet werden.
Mit rechter Mausstaste und speichern-unter will ich den Kunden ersparen.
Nun habe ich folgendes gefunden:

http://www.aspfaq.de/index.asp?RID=5&FID=88&SFI=1&ELE=7663&OPID=0&ORID=5&OSS
T=&OSFI=1

Nun habe ich folgendes Problem mit diesem Code:
Nachdem ich ihn eingebunden habe, und eine txt-datei darüber abspeichere,
habe ich tollerweise den Code der HTML-Seite, auf dem die File angeboten
wird, mit in der Text-Datei !??

Ich hab das ganze so eingebaut:

Den Code zum downloaden habe ich Funktion gesteckt die über n Include
eingebunden wird:
[fctFile.asp]
Function saveFileAs(strPath,StrFileName)

	Response.Buffer = TRUE
	Response.Clear
	Response.Expires = 0
	Response.ContentType = "application/msword"
	Response.AddHeader "Content-Disposition","attachment;filename=" &
strFileName

	Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")

		' --- Ermitteln der Dateigroesse
		strPath = strPath & strFileName
		Set objFile = objFileSys.GetFile(strPath)
			FileSize = objFile.Size
		Set objFile = Nothing

		' --- Öffnen der Datei
		Set objFile = objFileSys.OpenTextFile(strPath, 1, false, -1)
			Response.BinaryWrite(objFile.Read(FileSize))
		Set objFile = Nothing

Set objFileSys = Nothing
	Response.Flush
End Function

und so rufe ich das ding dann auf:
[in dateiverwaltung.asp]

	if request.QueryString("filename") <> "" then
		call
saveFileAs(verlagRoot&session("verzeichnisse")&"\",request.QueryString
("filename"))
	end if


Habt ihr ne Idee was da Faul sein könnte?
Oder habt ihr ne alternative die richtig funktioniert ?
Sendet eure Anworten bitte an b_wolf@gmx.net, da der ver***issene Mailserver
in unsrer Firma immer noch nicht läut :/
1000 dank schonmal,
grüße Ben