Solved

Exporting Data into Excel from ASP page generates a warning when opening the file

Posted on 2008-10-10
2
300 Views
Last Modified: 2011-10-03
I have an ASP page that extracts info from a database and writes it to an excel file.  When I open the file in Excel I get the following warning:

The File you are trying to open is in a different format than specified by the file extension.

I open the file anyway and it is correct.  Can someone tell me what I'm doing wrong so the warning is not displayed?
Dim sOutput

strFileName = "fcuevaluation" & syear

Response.expires= 0

Response.Expires=-1

Response.Expiresabsolute = Now() - 1 

Response.Clear()

Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader "content-disposition", "attachment;filename=" & strFileName & ".xls"

' Remove the charset from the Content-Type header.

Response.Charset = ""

sOutput = "<html><body>"

sOutput = sOutput & "<table border='0' bordercolor='#000000' cellpadding='3' cellspacing='0' width='100%'><tr><th>Date</th><th>Program</th><th>Overall Quality of CD Program</th><th>Quality of Information Presented</th><th>Quality of Presentation</th><th>Relevance of Information</th><th>Free From Bias</th><th>Free From Bias Explanation</th><th>Learned About This Activity From</th><th>Information Will Help My Practice</th><th>Help My Practice Explain</th><th>Identified Areas of Weakness</th><th>Future Presentations That May Help</th><th>Will Make Changes in Practice</th><th>Change in Practice Explain</th><th>Comments</th></tr>"

do while NOT rs.EOF

  sOutput = sOutput & "<tr><td>"& rs("Date") & "</td>"

  sOutput = sOutput & "<td>" & rs("Program") & "</td>"

  sOutput = sOutput & "<td>" & formatCDRating(rs("QualCDProg")) & "</td>"

  sOutput = sOutput & "<td>" & formatRating(rs("InfoRating")) & "</td>"

  sOutput = sOutput & "<td>" & formatRating(rs("PresentationRating")) & "</td>"

  sOutput = sOutput & "<td>" & formatRating(rs("InfoRelvance")) & "</td>"

  if rs("FreeBias") = true Then

     sOutput = sOutput & "<td>Yes</td>"

  else

     sOutput = sOutput & "<td>No</td>"

  end if

  sOutput = sOutput & "<td>" & rs("Balanced") & "</td>"

  if rs("LearnAboutActivity") = "DDW" then

     sOutput = sOutput & "<td>DDW</td>"

  end if

  if rs("LearnAboutActivity") = "Website" then

     sOutput = sOutput & "<td>AGA Website</td>"

  end if

  if rs("LearnAboutActivity") = "Email" then

     sOutput = sOutput & "<td>AGA Email</td>"

  end if

  if rs("LearnAboutActivity") = "Publication" then

     sOutput = sOutput & "<td>AGA Publication</td>"

  end if

  if rs("LearnAboutActivity") = "Other" then

     sOutput = sOutput & "<td>Other</td>"

  end if

  if rs("HelpMyPractice") = true Then

     sOutput = sOutput & "<td>Yes</td>"

  else

     sOutput = sOutput & "<td>No</td>"

  end if

  sOutput = sOutput & "<td>" & rs("HelpMyPracticeHow") & "</td>"

  if rs("PersonalKnowledge") = true Then

     sOutput = sOutput & "<td>Yes</td>"

  else

     sOutput = sOutput & "<td>No</td>"

  end if

  sOutput = sOutput & "<td>" & rs("PersonalKnowledgeHow") & "</td>"

  sOutput = sOutput & "<td>" & rs("Topics") & "</td>"

  if rs("ChangePractice") = true Then

      sOutput = sOutput & "<td>Yes</td>"

  else

      sOutput = sOutput & "<td>No</td>"

  end if

  sOutput = sOutput & "<td>" & rs("ChangePracticeHow") & "</td>"

  sOutput = sOutput & "<td>" & rs("Comments") & "</td></tr>"

  rs.MoveNext

loop

sOutput = sOutput & "</table></body></html>"

Response.Write sOutput

Response.End()

Open in new window

0
Comment
Question by:dyarosh
2 Comments
 
LVL 30

Accepted Solution

by:
LZ1 earned 500 total points
ID: 22689101
What version of Excel are you using???
If you are using Excel 2007 then the warning will be there and there is nothing you can do about it.  This is a known issue that Microsoft acknowledges, but hasn't done anything about it.
 
0
 

Author Closing Comment

by:dyarosh
ID: 31505071
I'm using Excel 2007 and getting the error.  The person who will be using the file is using an earlier version of excel.  I just tried it using Excel 2002 and did not get the error.  Thank you.
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Determining if Request.Form is empty 1 39
toggle checkboxes when a checkbox is checked 16 49
XML Parsing Classic ASP 5 42
asp syntax 3 24
I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

757 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now