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

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

dyaroshAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
LZ1Connect With a Mentor Commented:
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
 
dyaroshAuthor Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.