?
Solved

Export Records To Tab Delimited File Using ASP

Posted on 2008-06-20
5
Medium Priority
?
853 Views
Last Modified: 2012-05-05
I have a table of date (products) which i need to export to a CSV file with the click of the a button.  This will generate the tab delimited file on the server which is then picked up automatically by another application.

My question is how to write this script to create the text file.  I have full access to the server to create permissions etc.

Basically my code would be something like the code snippet attached, the bit where i have TextFile.AddNew is the part i dont know how to do.

Regards,
Carl

<%
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblTempProducts"
RS.Open SQL,Connection,3,3
Do While Not RS.EOF
 TextFile.AddNew
   ProductID, ProductName, Price, TaxRate, Weight
 TextFile.Update
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
SQL = " "
%>

Open in new window

0
Comment
Question by:net-workx
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 15

Expert Comment

by:dosth
ID: 21832835
0
 
LVL 29

Accepted Solution

by:
rdivilbiss earned 2000 total points
ID: 21832923
More specifically.
<%
Dim fso, TextStream, path, fldr, Folder
 
Set fso = Server.CreateObject("Scripting.FileSystemObject")
path = Server.MapPath("/pathtofile/")
Set fldr = fso.GetFolder(path)
Set TextStream = fldr.CreateTextFile("test.txt")
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblTempProducts"
RS.Open SQL,Connection,3,3
Do While Not RS.EOF
	TextStream.WriteLine  rs("ProductID") & chr(9) & rs("ProductName") & rs("Price") & chr(9) & rs("TaxRate") & chr(9) & rs("Weight")
rs.movenext
loop
RS.Close
Set RS = Nothing
SQL = " "
TextStream.Close

Open in new window

0
 
LVL 29

Expert Comment

by:rdivilbiss
ID: 21833008
0
 

Author Closing Comment

by:net-workx
ID: 31469215
Thanks for your prompt response, exactly what i needed - a nice and easy to follow guide to get me started....  
0
 
LVL 29

Expert Comment

by:rdivilbiss
ID: 21837972
Thank you for the points and good luck with your project.
0

Featured Post

Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
Lync server 2013 or Skype for business Backup Service Error ID 4049 – After File Share Migration
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …

801 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