Createobject and Svaing

At the minute I am creating a text file that is being saved into a default location. What I want to happen is that after the file is generated i want the user to be able to click a 'save as' option and have the 'save as' dialog box open. I can get the dialog box to open by right clicking on a link and using the 'save as target' option. I'm sure it must be posible to do. Included sample code below.


Set fso = CreateObject("Scripting.FileSystemObject")
filename = "MyFilename" &".txt"
link = request.servervariables("appl_physical_path")& \downloadedfiles\"&filename
test = "downloadedfiles\"&filename

Set MyFile = fso.CreateTextFile(link, True)
if not err.number<>0 then
table = ""

MYsql = "My Statement"
set rssqlquery = conn.execute(MYsql)

table = table & "DATA1" & vbTab & vbTab & "Data2" & vbTab & vbTab & "Data3" & vbCrLf
MyFile.WriteLine(table)
Do while not rssqlquery.EOF
table = ""

table = table & rssqlquery.fields(0) & vbTab & vbTab & rssqlquery.fields(1) & vbTab & vbTab & rssqlquery.fields(2)
rssqlquery.MoveNext
MyFile.WriteLine(table)
Loop


MyFile.Close

Mylink = ""
Mylink="<A HREF=" & test & ">Right Click to Save File</a>"
Response.write links


else
response.redirect ("../error.asp")
end if

Thanks in advance.