We help IT Professionals succeed at work.
Get Started

export to excel in classic asp

Last Modified: 2012-05-12
Hello experts,
I have several classic asp pages coded by teammates that need export to excel functionality. I know very little about classic asp. Any specific advice on how to add an export to excel button to a page like this one? The button would just export the data currently being displayed in the html table to excel on the client.

dim cnt

response.write "For Location "&request.form("level_name")&"<br> "
response.write "From "&formatdatetime(request.form("begin_dt"),2)&" to "&formatdatetime(request.form("end_dt"),2)&"<br> "

'Get list of people 
<p><h4>Current Users in the System (1):</h4>
<table border=1>
<tr><td colspan=5></td>
<td align=center colspan=7 bgcolor=teal><font color=white><b>COURSES COMPLETED</b></font></td>
<tr><th align=left>Employee</th>
<th align=left>Job Title</th>
<th align=left nowrap>DU Certified (2)</th>
<th align=left><a href=javascript:myPopup1('notes.asp')><font color=white>Rollout Date</font></a></th>
<th align=left>Early Adopter</th>
<th align=left>Status</th>
<th align=left>Setup/Searches</th>
<th align=left>CE AN</th>
<th align=left>CE PN</th>
<th align=left>PAF Ins.</th>
<th align=left>PAF Trust</th>
<th align=left>PAF Non-Trust</th>

<!--#include virtual=include_files/incl_connect_select.asp--><%
SQL = " select data from table "

	oRS.Open SQL,db
	Do While not oRS.EOF


	response.write "<tr>"
    response.write "<td nowrap>"&oRS("FullName")&"</td>"
    response.write "<td nowrap>"&oRS("job_title")&"</td>"
    if oRS("cert_date")<>"1/1/1900" then
    response.write "<td>"&formatdatetime(oRS("cert_date"),2)&"</td> "
    response.write "<td>NA</td> "
    end if
    if oRS("begin_date")="1/1/1900" then
    response.write "<td>Independent</td> "
    response.write "<td>"&oRS("begin_date")&"</td> "
    end if
    response.write "<td nowrap>"&oRS("early_app")&"</td>"
	response.write "<td nowrap>"&oRS("employee_status")&"</td>"
	response.write "<td nowrap>"&oRS("setup_searches")&"</td>"
	response.write "<td nowrap>"&oRS("ce_an")&"</td>"
	response.write "<td nowrap>"&oRS("ce_pn")&"</td>"
	response.write "<td nowrap>"&oRS("paf")&"</td>"
	response.write "<td nowrap>"&oRS("trust")&"</td>"
	response.write "<td nowrap>"&oRS("non_trust")&"</td>"
response.write "</tr>"

'End report users
	set db = nothing

response.Write "</table></p>"


Open in new window

Watch Question
LAMP Developer
This problem has been solved!
Unlock 1 Answer and 3 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE