Solved

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

Posted on 2008-10-10
2
306 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
[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
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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

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 informatio…
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…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…

617 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