Solved

Exporting to a csv from ASP

Posted on 2003-11-13
9
789 Views
Last Modified: 2008-02-01
Hi all,
I have a web app that generates html reports.  After I generate the reports I go ahead and create a csv file for the reports behind the scenes and save the csv file on the server.  
On the report page, at the bottom, there's a button "export" that when a user clicks on it would bring up a "file download" dialog box and lets the user save the csv file on their machine.  This works fine on win 2000 but on windows 98 and window xp, the csv file gets opened within the browser.  Is there a way to prevent that from happening??

Here is the code for the "export" button....

<a href="../Reports/Exports/test.csv"><img type="image" alt="Export" src="../images/export.gif"></a>
0
Comment
Question by:fifo123
9 Comments
 
LVL 3

Accepted Solution

by:
NeilT earned 50 total points
ID: 9742415
change the link to ="../Reports/Exports/spool.asp" then create this file in the Exports folder

---------------
file spool.asp
---------------

<%
Dim Stream
Dim Contents
Dim FileName


FileName = "test.csv"
' ---------------------------------------------------------------------------------------------

Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
Contents = Stream.ReadText
Response.BinaryWrite Contents
Stream.Close
Set Stream = Nothing
%>


that should work

Neil
0
 

Author Comment

by:fifo123
ID: 9743355
Hey Neil,
It's working but I have another issue.  I wanted to stay in the same page so instead of going to a spool.asp page, I reload the page by doing a submit to itself.  The "file download" dialog box comes up and I am able to save the file anywhere I want.  Now, the problem is, if I try to click on other buttons on my page such as a 'Print' or 'help' button, I get a javascript 'Access Denied' error message.  Please help...
0
 
LVL 3

Expert Comment

by:vijay7248
ID: 9745704
fifo,

This problem does occur while exporting.
The safe way is to call a javascript function through you a href...like,
<a href="javascript:export();"><img type="image" alt="Export" src="../images/export.gif"></a>
in that function
You submit the values to spool.asp

In spool.asp you create a document and give the user file save as option...etcc..

After all ur work there redirect again to your parent asp page..using response.redirect

I think this will solve the problem
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 
LVL 2

Expert Comment

by:Sairam_S
ID: 9746810
hi fifo,

In order to stay in the same page, follow the directives

1. In the hyperlink tag, instead of giving the URL, call a Javascript method, that infact submits the form to the href location.( spool.asp)
2. Add the following code in the spool.asp file
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=test.csv"

If this is followed, on clicking the Export Image, the javascript function is called, which submits the form. As the form is submitted to a page with a content-type that IE cannot interpret, if would pop out the File Save as Dialog.

0
 

Author Comment

by:fifo123
ID: 9748149
Thanks guys, but I still get the 'access denied' error message:
Here is the code I have:

Reports.asp
--------------
function CheckForReport( )
{
   document.forms(0).action = "Export.asp"
   document.forms(0).submit();
}

<a href="javascript:CheckForReport();"><img type="image" alt="Export" src="../images/export_off.gif">

Export.asp
-------------
'' NOTE:  The csv file is already in the web server
option explicit
Response.Expires = -1500
Response.Buffer = true

dim Stream
dim Contents
dim strFileName
dim strFile            

strFile = Session.SessionID & ".csv"
strFileName = Server.MapPath("." & "\" & "exports\" & strFile)
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & strFile
set Stream = server.CreateObject("ADODB.Stream")
Stream.Open
Stream.Type = 1
Response.CharSet = "UTF-8"
Stream.LoadFromFile(strFileName)
Response.BinaryWrite(Stream.Read)
Stream.Close
Set Stream = Nothing
Response.Flush()

0
 
LVL 7

Expert Comment

by:vnvk
ID: 12154749
This Question is now classified abandoned as no comment has been added to this question in more than 21 days.

I will leave the following recommendation on this question to the moderators in the Cleanup topic area:
    Accept: NeilT {http:#9742415}

Any objections should be posted here in the next 4 days. After that time, the question will be closed at the discretion of the moderator.

vnvk
EE Cleanup Volunteer
0
 

Expert Comment

by:vasulavan
ID: 12833523
Neil
I'm getting the Error  As:

Error Type:
ADODB.Stream (0x800A0BBA)
File could not be opened.
/ASPProject/MaintenanceOld.asp, line 29

When i implemented your code in my asp page. Do i need to create test.csv in the folder where my asp page resides?

The code in my asp page looks like:

Dim objConn                                    '  Connection Object
Dim objCmd                                                                                  '  Command Object
Dim objRS                                    '  Recordset Object
Dim strSQL                                    '  SQL String to access the database
Dim strConnection                      '  Connection string to access the database
Dim i                                          '  Counter variable
Dim fs
 
Dim Stream
Dim Contents
Dim FileName
FileName = "test.csv"
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=test.csv"
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
Contents = Stream.ReadText
Response.BinaryWrite Contents
Stream.Close
Set Stream = Nothing


' -- Create objects
Set objConn = Server.CreateObject("ADODB.Connection")
Set objCmd = Server.CreateObject("ADODB.Command")

' -- Connection String Value
strConnection="DSN=Northwind"
' -- Open the Connection
objConn.Open strConnection

' Execute the Stored Procedure
With objCmd
    .ActiveConnection = strConnection
    .CommandType = adCmdStoredProc
    .Commandtext  = "MaintenanceInfo"
    .Parameters.Append objCmd.CreateParameter("@CustomerNo",adVarChar,adParamInput,10,92541)
   
End with
 Set objRS = Server.CreateObject("ADODB.Recordset")
 Set objRS = objCmd.Execute
   
' -- Populate our Recordset with data
'set objRS = objConn.Execute (strSQL)

If (objRS.BOF and objRS.EOF) then
      response.write "No records found"
      response.end
End if
'----------------------------------------------------------------------
' Begin HTML output
'----------------------------------------------------------------------
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>
<HEAD>
      <TITLE>Maintenance Sample.Accesing Data from the Database</TITLE>
</HEAD>

<BODY>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1" WIDTH="100%" HEIGHT="30px" ALIGN="CENTER">

<%
     
      ' -- Output the Field Names as the first row in the table
      Response.Write "<TR BGCOLOR=""#CCCCCC"">"
      For i = 0 to objRS.Fields.Count - 1
            Response.Write "<TH><FONT FACE=""ARIAL"" SIZE=""2"">" & objRS.Fields(i).Name & "</FONT></TH>"
      Next
      Response.write "</TR>"
      ' -- Now output the contents of the Recordset
      'objRS.MoveFirst
      Do While Not objRS.EOF
            ' -- output the contents
            Response.Write "<TR>"
            For i = 0 to objRS.Fields.Count - 1
                  Response.Write "<TD><FONT FACE=""ARIAL"" SIZE=""1"">" & objRS.Fields(i) & "</FONT></TD>"
            Next
            Response.write "</TR>"
        
            ' -- move to the next record
            objRS.MoveNext
      Loop

      objRS.Close
      set objRS = Nothing
      objConn.Close
      set objConn = Nothing
      
 %>

</TABLE>

</BODY>
</HTML>

Neil Can you please let me know why am i getting this error..


Thanks

0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now