DOWNLOAD RECORDSET RESULTS TO CSV FILE

This might help
https://www.experts-exchange.com/questions/20738652/save-as-CSV-format.html
Regards

<!--download.asp-->

<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
On Error Resume Next
Dim strPath

strPath = CStr(Request.QueryString("file"))
'-- basic error checking for the QueryString
If strPath = "" Then
      Response.Clear
      Response.Write("No file specified.")
      Response.End
ElseIf InStr(strPath, "..") > 0 Then
      Response.Clear
      Response.Write("Illegal folder location.")
      Response.End
      ElseIf Len(strPath) > 1024 Then
      Response.Clear
      Response.Write("Folder path too long.")
      Response.End
Else
      Call DownloadFile(strPath)
End If

Private Sub DownloadFile(file)
'--declare variables
Dim strAbsFile
Dim strFileExtension
Dim objFSO
Dim objFile
Dim objStream
Dim ReportPath
ReportPath=Server.Mappath("../uploads") & "\"
'-- set absolute file location
strAbsFile = ReportPath & file
'-- create FSO object to check if file exists and get properties
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'-- check to see if the file exists
If objFSO.FileExists(strAbsFile) Then
      Set objFile = objFSO.GetFile(strAbsFile)
      '-- first clear the response, and then set the appropriate headers
      Response.Clear
      '-- the filename you give it will be the one that is shown
      '   to the users by default when they save
      Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
      Response.AddHeader "Content-Length", objFile.Size
      Response.ContentType = "application/octet-stream"
      Set objStream = Server.CreateObject("ADODB.Stream")
      objStream.Open
      '-- set as binary
      objStream.Type = 1
      Response.CharSet = "UTF-8"
      '-- load into the stream the file
      objStream.LoadFromFile(strAbsFile)
      '-- send the stream in the response
      Response.BinaryWrite(objStream.Read)
      objStream.Close
      Set objStream = Nothing      
      Set objFile = Nothing
      objFSO.DeleteFile(strAbsFile)
Else  'objFSO.FileExists(strAbsFile)
      Response.Clear
      Response.Write("No such file exists.")
End If
Set objFSO = Nothing
End Sub
%>



Hope this helps..

Cheers!!

Hi Tasneem,

Thanks for the post. The info is great but it all seems to assume that we are downloading a specific file which resides on the server. I need to download the results of a recordset which contains sales data.

Basically the recordset will be presented as a table on screen (do while loop) and I need to download the data which goes to make up this table.

Is there a way to do this or do I need to create a file from the recordset in some way before downloading?



PJORDANNA

My code exactly what you are looking for...Try it out.. let me know if u need any clarifications. I shall post my comments to your queries tomorrow morning as i am leaving now..

Cheers!!

Hi ap_sajith,

Sorry my post crossed with yours. I'm working through your code now...

Hi ap_sajith,

OK your code rocks. It does the job perfectly THANK YOU!

I have one quick question for you. How do you handle the build up of .csv files in the reports folder? Do you manually delete them, do you have a stored proceedure to do this or do you just leave them be?


Cheers,



PJORDANNA

For creating csv file
<%
Dim RS, SQL, Conn
SQL = "Some query ...."
Set RS = Conn.Execute (SQL)

Dim F, Head
For Each F In RS.Fields
  Head = Head & ", " & F.Name
Next
Head = Mid(Head,3) & vbCrLf
Response.ContentType = "text/plain"
Response.Write Head
Response.Write RS.GetString(,,", ",vbCrLf,"")
' append the above values in a string variable strOutput
%>

and for saving in local is the following url
http://www.xefteri.com/articles/may082002/default.aspx

alternate if you dont want to create a temp file and then upload then.. use something of this sort.
' create Stream Object
   set ado_stream = Server.CreateObject("ADODB.Stream")
   ' open stream object and store text
   ado_stream.Type = 1  ' 1=adTypeBinary
   ado_stream.open
   ado_stream.Write strOutput
   ' save uploaded file
   ado_stream.SaveToFile "c:\tmp\upload1.doc",2  '
2=adSaveCreateOverWrite
   ado_stream.close

   ' destroy COM object  
   set ado_stream = Nothing
     Response.Write "Upload successful!"

Between ap_sajith is actually deleting the file that he created for the csv in his code. So that does not let any file remain on the server.
Regards
 

hi try this
https://www.experts-exchange.com/questions/20773644/ASP-output-to-CSV-file.html
this one does not require you to create a temp csv file
regards
tasneem

Hi Tasneem,

I'm running ap_sajith's code and the files are just building up on the server. Can you show me which part of his code handles the file deletion?



PJORDANNA

Guys,

I thought it was fairer to split the points on this one. Hope you don't mind. Thank you both. You have been a great help.



PJORDANNA

No Probs.. Cheers!!