codice:
<%

  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>=sum(A1:D1)</td>"
  response.write "</tr>"
  response.write "</table>"

  response.flush
  response.end

%>