By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,361 Members | 1,896 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,361 IT Pros & Developers. It's quick & easy.

Write from an html form to csv format

P: n/a
Hello,

I created a web form in html, I need to create a server-side script
using ASP and embed it into the html, so that when the user clicks
submit, it sends(saves) the data from text boxes, drop-downs etc, to a
text(.txt) file on the server. It needs to be in csv format so that
they can create an excel file from it. I'm not familar with this type
of task, so any help is appreciated.

So basically two things.

How to write to a file on the server using the data from the form.
How to have the data in csv format when written.

Thanks!

Jun 15 '07 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Gazing into my crystal ball I observed nu*********@gmail.com writing in
news:11********************@k79g2000hse.googlegrou ps.com:
Hello,

I created a web form in html, I need to create a server-side script
using ASP and embed it into the html, so that when the user clicks
submit, it sends(saves) the data from text boxes, drop-downs etc, to a
text(.txt) file on the server. It needs to be in csv format so that
they can create an excel file from it. I'm not familar with this type
of task, so any help is appreciated.

So basically two things.

How to write to a file on the server using the data from the form.
How to have the data in csv format when written.

Thanks!

I would say to create a file on the server, then write to that file
whilst looping through the response.form collection.

dim fs,tf
dim ix, field, inputvalue
dim headers, dataline

set fs=Server.CreateObject("Scripting.FileSystemObject ")
set tf=fs.CreateTextFile("c:\somefile.txt")

for ix = 1 to request.form.count
field = request.form.key(ix)
inputvalue = request.form.item(ix)
if not isnumeric(inputvalue) then
'puts quotes around text fields
inputvalue = chr(034) & inputvalue & chr(034)
end if
headers = headers & field & ", "
dataline = dataline & inputvalue & ", "
next
headers = left(headers,len(headers)-2)
dataline = left(dataline,len(dataline)-2)

'if you want the first line to contain data headers then
tf.writeline headers
'now put the data
tf.writeline dataline

tf.close
set tf=nothing
set fs=nothing

Of course, you could also just skip the csv and output directly to Excel.

--
Adrienne Boswell at Home
Arbpen Web Site Design Services
http://www.cavalcade-of-coding.info
Please respond to the group so others can share

Jun 16 '07 #2

This discussion thread is closed

Replies have been disabled for this discussion.