dyarosh
asked on
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?
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()
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER