|
-
Jul 12th, 2001, 01:28 AM
#1
Thread Starter
Member
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.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|