Help on exporting records to csv file - ASP / Active Server Pages

3 New Member

I have the following code that takes form data from a picklist and uses the input values to query an access database. Currently everything works, but it writes the results to the same page when submit is selected. I would like (if possible) to write the results to a csv file that could be saved on the users computer. Is this possible? If so can some one give me a little help with this ?
Here is the code that I have.

Expand|Select|Wrap|Line Numbers

 
<html>

<title>ECVS Report Generator</title>

<head>
 
<script>

function clearForms()

{

var i;

for (i = 0; (i < document.forms.length); i++) {

document.forms[i].reset();

}

}

</script>

</head>

<body bgcolor="#FFFFFF" onLoad="clearForms()" onUnload="clearForms()" background="http://bytes.com/images/background1.png">

<%
 
u_input1 = trim(request.form("u_input1"))

u_input2 = trim(request.form("u_input2"))

u_input3 = trim(request.form("u_input3"))
 
u_field1=request.form("u_field1")

u_field2=request.form("u_field2")

u_field3=request.form("u_field3")
 
if u_input1 <> "" then
 
accessdb="custmast" '

table_name="customermast"

cn="driver={microsoft access driver (*.mdb)};"

cn=cn & "dbq=" & server.mappath(accessdb)

set rs = server.createobject("ADODB.Recordset")

sql = "select * from "& table_name &" where " & u_field1 & " like '%%" & u_input1 & "%%' And " & u_field2 & " like '%%" & u_input2 & "%%' And " & u_field3 &" like '%%" & u_input3 & "%%' "
 
rs.Open sql, cn
 
if rs.eof or rs.bof then

response.write "No results found..."

observations=0

else

observations=1

end if 'end check for observations

end if 'end check for user input

%>
 
<%

if observations > 0 then %>
 
 <!--- This is where it specifies what to do if there are observations ---->

<table>

<tr>

<% 'Write the field names

for each table_element in rs.fields

%>
 
<td><b><%= table_element.name%></B></TD><%

next %>

</tr>

<tr>

<% 'Write the values

rs.movefirst

do while not rs.eof

for each cell in rs.fields %>

<td><%= cell.value %></td><%

next %>

</tr>

<% rs.movenext

loop %>

</table>
 
<% end if 'end of check of obs for display%>
 
<br>

<br>

<br>

<br>

<br>

<br>

<br>

<table align="center">

<tr>

<td>

<form action ="" method="post">
 
<select name="u_field1" size="1">

<option <% ' write out all the search fields and select

if u_field1 = "state" or u_field1 = "" then

response.write "selected "

end if

%>value="AccountNumber">Account Number</option>

<option <%

if u_field1 = "AccountName" then

response.write "selected "

end if

%>value="AccountName">Account Name</option>

<option <%

if u_field1 = "SalesVolume" then

response.write "selected "

end if

%>value="SalesVolume">Sales Volume</option>

<option <%

if u_field1 = "BusinessUnit" then

response.write "selected "

end if

%>value="BusinessUnit">Business Unit</option><br>

<option <%

if u_field1 = "SalesRegion" then

response.write "selected "

end if

%>value="SalesRegion">Sales Region</option>

<option <%

if u_field1 = "State" then

response.write "selected "

end if

%>value="state">State</option>

<option <%

if u_field1 = "PriceGroup" then

response.write "selected "

end if

%>value="PriceGroup">Price Group</option>

<option <%

if u_field1 = "DealerType" then

response.write "selected "

end if

%>value="DealerType">Dealer Type</option>

<option <%

if u_field1 = "BillingType" then

response.write "selected "

end if

%>value="BillingType">Address Type</option>

<option <%

if u_field1 = "StartDate" then

response.write "selected "

end if

%>value="StartDate">Start Date</option>

<option <%

if u_field1 = "AccountRep" then

response.write "selected "

end if

%>value="AccountRep">Account Rep</option>
 
</select>

&nbsp; = &nbsp;

<input type="text" name="u_input1" value="<%= u_input1 %>">

<br><br>

AND

<br><br>
 
<select name="u_field2" size="1">

<option <% ' write out all the search fields and select

if u_field2 = "state" or u_field2 = "" then

response.write "selected "

end if

%>value="AccountNumber">Account Number</option>

<option <%

if u_field2 = "AccountName" then

response.write "selected "

end if

%>value="AccountName">Account Name</option>

<option <%

if u_field2 = "SalesVolume" then

response.write "selected "

end if

%>value="SalesVolume">Sales Volume</option>

<option <%

if u_field2 = "BusinessUnit" then

response.write "selected "

end if

%>value="BusinessUnit">Business Unit</option>

<option <%

if u_field2 = "SalesRegion" then

response.write "selected "

end if

%>value="SalesRegion">Sales Region</option>

<option <%

if u_field2 = "State" then

response.write "selected "

end if

%>value="state">State</option>

<option <%

if u_field2 = "PriceGroup" then

response.write "selected "

end if

%>value="PriceGroup">Price Group</option>

<option <%

if u_field2 = "DealerType" then

response.write "selected "

end if

%>value="DealerType">Dealer Type</option>

<option <%

if u_field2 = "BillingType" then

response.write "selected "

end if

%>value="BillingType">Address Type</option>

<option <%

if u_field2 = "StartDate" then

response.write "selected "

end if

%>value="StartDate">Start Date</option>

<option <%

if u_field2 = "AccountRep" then

response.write "selected "

end if

%>value="AccountRep">Account Rep</option>

</select>
 
&nbsp; = &nbsp;
 
<input type="text" name="u_input2" value="<%= u_input2 %>">

<br><br>

AND

<br><br>
 
<select name="u_field3" size="1">

<option <% ' write out all the search fields and select

if u_field3 = "state" or u_field3 = "" then

response.write "selected "

end if

%>value="AccountNumber">Account Number</option>

<option <%

if u_field3 = "AccountName" then

response.write "selected "

end if

%>value="AccountName">Account Name</option>

<option <%

if u_field3 = "SalesVolume" then

response.write "selected "

end if

%>value="SalesVolume">Sales Volume</option>

<option <%

if u_field3 = "BusinessUnit" then

response.write "selected "

end if

%>value="BusinessUnit">Business Unit</option>

<option <%

if u_field3 = "SalesRegion" then

response.write "selected "

end if

%>value="SalesRegion">Sales Region</option>

<option <%

if u_field3 = "State" then

response.write "selected "

end if

%>value="state">State</option>

<option <%

if u_field3 = "PriceGroup" then

response.write "selected "

end if

%>value="PriceGroup">Price Group</option>

<option <%

if u_field3 = "DealerType" then

response.write "selected "

end if

%>value="DealerType">Dealer Type</option>

<option <%

if u_field3 = "BillingType" then

response.write "selected "

end if

%>value="BillingType">Address Type</option>

<option <%

if u_field3 = "StartDate" then

response.write "selected "

end if

%>value="StartDate">Start Date</option>

<option <%

if u_field3 = "AccountRep" then

response.write "selected "

end if

%>value="AccountRep">Account Rep</option>

</select>

&nbsp; = &nbsp;
 
<input type="text" name="u_input3" value="<%= u_input3 %>">

<br><br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 
<input type="submit" value="Submit">

</form>

</td>

</tr>

</table>
 
<p>&nbsp</p>

Sep 18 '09 #1

Subscribe Reply

2028

jhardman

3,406

Recognized Expert Specialist

It is possible to return a CSV file rather than an HTML page after the user hits submit. Whether the user saves the file must be left to him. Let me know if that's good enough for you, if it is, I will try to help with the code.

Jared

Sep 18 '09 #2

jrnowlan

New Member

Thanks for the response. That would be great. I was hoping to pop up a dialog box for the user to select save file or something similar to downloading a file from a site. Any help would be greatly appreciated !!

Sep 18 '09 #3

jhardman

3,406

Recognized Expert Specialist

@jrnowlan
OK, a CSV file is just a text file that might look like this:

Expand|Select|Wrap|Line Numbers

 columnA,columnB,id

val1a,val1b,1

val2a,val2b,2

So the first step is to be able to put all of the data you have in a string formatted as a CSV file. Can you do that yet?

Jared

Sep 19 '09 #4

Similar topics

1962

Exporting data while people are using the site?

by: Angel Cat | last post by:

I'm exporting a large file from a large Production database (SQL). Users are currently updating and inserting new records. Does the export take a snapshot of the data when it starts ? or will...

Microsoft SQL Server

11672

Exporting Excel to Access

by: jsudo | last post by:

I have a Access database with a large amount of records (close to 500,000) that I would like to export to Excel. I found out that Excel has the capability of of about 65,000 rows so I know I...

Microsoft Access / VBA

15802

HELP...Exporting/Extracting an Access OLE object (Word document) to a Word document file

by: Otis Hunter | last post by:

I have been given an Access Database which contains a table that has an OLE object field that contains a Word document. That table contains hundreds of records. I would like to find out how I can...

Microsoft Access / VBA

3323

I need help from VB/VBS experts: exporting Access OLE object (Word document) to a file

by: Otis Hunter | last post by:

I have been fighting with this for days and your expert help is needed! Below is the code I am executing which results with "Object doesn't support this property or method". The error is occuring...

Microsoft Access / VBA

4962

How to have multiple worker threads submit to one final processing queue? - HELP

by: James Radke | last post by:

Hello, I have a multithreaded windows NT service application (vb.net 2003) that I am working on (my first one), which reads a message queue and creates multiple threads to perform the processing...

Visual Basic .NET

2391

Exporting ALL data into Excel file with Page Navigation in ASP.NET

by: bienwell | last post by:

Hi, I have a question about exporting data from datagrid control into Excel file in ASP.NET. On my Web page, I have a linkbutton "Export data". This link will call a Sub Function to perform...

ASP.NET

6188

Exporting to Excel

by: bobh | last post by:

Hi All, In Access97 I have a table that's greater than 65k records and I'm looking for a VBA way to export the records to Excel. Anyone have vba code to export from access to excel and have the...

Microsoft Access / VBA

1797

Help with DAO record schedule EOF File Error

by: accessvbanewbie | last post by:

I keep getting an error stating OBJECT VARIABLE OR WITH BLOCK VARIABLE NOT SET. This error just recently began to happen. I am exporting some records to excel into a preformatted report. The...

Microsoft Access / VBA

4891

Exporting from Access to Text file

by: Marty Klunk | last post by:

I have an Access97 data base where we are exporting records out to a text file that is then sent to a customer via EDI transmission. The problem I am having is that during the export process access...

Microsoft Access / VBA

2049

exporting records in multiple table databases

by: jjwiet | last post by:

Hello, I use access 2003 and attempting to export/copy records between two access databases (almost identical) with multiple tables (both databases having the same relations between the tables)....

Microsoft Access / VBA

7259

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

7158

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

7535

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

7098

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

7523

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

5683

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

4745

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...

C# / C Sharp

3232

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration

455

Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy

by: bsmnconsultancy | last post by:

In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...

General