Trying to find the author of a script

[Arguich811]

I use a script to force the browser to save instead of displaying a
simple text file. I downloaded the script some time ago and I don't
remember where I got it from. Does anyone recognize this script and if
so, do you know the author of this script:

------------------------------------
<%
' Constants for Reading Text File
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Const TristateFalse = 0
Const TristateMixed = -2
Const TristateTrue = -1
Const TristateUseDefault = -2

' File System Objects
Dim FSO
Dim TS

' Server File (this is the REAL name of the file)
Dim strFile: strFile = Server.MapPath("mybas1.bas")

' File to Save As (this is the name you want to tell the browser)
Dim strFileSave: strFileSave = "mybas2.bas"

' Tell Browser what the file name is, so it doesn't try to save as
"default.asp"
Call Response.AddHeader("Content-Disposition","attachment;
filename=""" & strFileSave & """")

' Write out content-type that will FORCE user to SAVE FILE.
' "image/gif" will display in browser
Response.ContentType = "bad/type"

' Initialize File System Object
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

' Open TextStream for Reading
Set TS = FSO.GetFile(strFile).OpenAsTextStream(ForReading,TristateTrue)

' TS.ReadAll DOES NOT WORK. Every Byte must be read and written
individually.
' I think you can read them in Chucks, but this was easier. If
you know how to
' Read chunks... go ahead, read chunks
Do While Not (TS.AtEndOfStream)
' Output MUST be BinaryWrite
Response.BinaryWrite(TS.Read(1))
Loop

' Cleanup, like all good programmers do.
TS.Close
Set TS = Nothing
Set FSO = Nothing

' You don't need this, but I like it.
Response.End
%>
-------------------------------

Many thanks in advance,

Arguich811
Arguich811*digitalice*com

 

[Evertjan.]

Arguich811 wrote on 19 jul 2003 in microsoft.public.inetserver.asp.general:

I use a script to force the browser to save instead of displaying a
simple text file. I downloaded the script some time ago and I don't
remember where I got it from. Does anyone recognize this script and if
so, do you know the author of this script:

<http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20393415.html>

[tnx go to google]

 

[Arguich811]

Thanks for your effort Evert Jan, but I had already Googled it and the
author of the referred posting has confirmed that he is not the
author.

Arguich811
arguich811*digitalrice*com

 

[Chris Barber]

Does it matter who the author is?

Does the script work? Do you have a problem with it?

Chris.

Thanks for your effort Evert Jan, but I had already Googled it and the
author of the referred posting has confirmed that he is not the
author.

Arguich811
arguich811*digitalrice*com


"Evertjan." <[email protected]> wrote in message

<http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20393415.html>

[tnx go to google]

 

[Arguich811]

Hi Chis,

No it doesn't matter who he /she is exactly, the script is just working
fine. I just would have liked to give the author some feedback so I hoped
someone might recognize it.

Arguich811