I'm query an access database, which is working fine displaying as web content. I would like to export the results to excel. I have the code below, which does not give errors, but produces an empty exel file. :( Any ideas?


<%@ Language=VBScript %>
<%
dim Cn,Rs
set Cn=server.createobject("ADODB.connection")
set Rs=server.createobject("ADODB.recordset")

Cn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("sheep.mdb")
Rs.open "SELECT * FROM tblInfo WHERE Name = '" & request("name") & "' OR Description = '" & request("description") & "' OR Location = '" & request("location") & "' ", Cn

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=Enquiry_List.xls"
response.write "<table border=1>"
do while not Rs.eof
response.write "<tr><td nowrap> " & Rs.fields("Name") & "</td><td nowrap>" & Rs.fields("Description") & "</td><td nowrap>" & Rs.fields("Location") & "</td></tr>"
Rs.movenext
loop
response.write "</table>"

set Rs=nothing
Cn.close
%>

try using the open document event as a excel macro:

open excel > goto tools / macro / vb editor > click on this workbook and on the top left combo click workbook and on the top right click open you should have this:

Private Sub Workbook_Open()
   Stop
End Sub

...where it says stop type in the code, i tested it and it hit stop right away when i opened it. All you have to do then is open the file from access, the code will trigger even if opened from access. Save the file as a template, just an idea.