Om jag vill i ASP-kod skriva en snutt som ska spara ett databasresultat till Excel-format.

Vad kan det heta tro? Någon som vet/vill/kan förklara?
Eller om du vet någon bra länk på internet där jag kan läsa om det.

Det är INTE asp.Net utan bara asp.

<%@ Language="VBScript" %><%

Set Conn = Server.CreateObject("ADODB.Connection")

strConnection="..."
Conn.open strConnection


SQL= "SELECT ID, name, homeaddress, postalno, city, emailaddress from table"
Set RS=server.CreateObject("ADODB.RecordSet")
Rs.open SQL,Conn,1,3

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=export.xls"

if Rs.eof <> true then
	response.write "<table border=1><tr>"&VbCrLf
	for each x in rs.Fields
		Response.Write("<th>"&x.name&"</th>") &VbCrLf   
	next		
	response.write "</tr>"&VbCrLf

	while not Rs.eof
		response.write "<tr>"&VbCrLf
		'for each x in rs.Fields
			Response.Write("<td>"&RS(0)&"</td>")&VbCrLf
			Response.Write("<td>"&RS(1)&"</td>")&VbCrLf
			Response.Write("<td>"&RS(2)&"</td>")&VbCrLf
			Response.Write("<td>"&RS(3)&"</td>")&VbCrLf
			Response.Write("<td>"&RS(4)&"</td>")&VbCrLf
			Response.Write("<td>"&RS(5)&"</td>")&VbCrLf
		Rs.movenext
		response.write "</tr>"&VbCrLf
	wend

	response.write "</table>"&VbCrLf
end If

set rs=nothing
Conn.Close: Set Conn=Nothing
%>

Det är inte excel format utan html format. Fast excel är förlåtan på så sätt att den kan visa hteml tabeller i Excel.

Mig veterligen finns det dock inget smidigt sätt att exportera till Excel via ASP utan en förinstallerad komponent. Däremot så kan man ju alltid skapa ett Exceldokument utifrån Excels egen XML modell.

Den koden du har, byt bara response.write till response.binarywrite och sen på slutet response.flush samt response.end