<%
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
%>
