Creare file XLS

Lo script permette di generare dei file di excel senza bisogno che sul server sia installata l'applicazione:

<% 
Dim FileName 
FileName="test.xsl" 
response.buffer = true 
response.ContentType = "application/vnd.ms-excel" 
response.AddHeader "content-disposition", "inline; 
filename=" & FileName 
response.write "<table>" 
response.write "<tr>" 
for i = 1 to 15 step 3 
response.write "<td>" 
response.write i * i 
response.write "</td>" 
next 
response.write "<td width=40><b>=sum(A1:D1)</b></td>" 
response.write "</tr>" 
response.write "</table>" 
response.flush 
response.end 
%>