ti posto un esempio di una pagina che avevo fatto, scusami ma non ho tempo per fartene una su misura.
codice:
for i = 0 to rsusers.Fields.Count-1
  risultato = risultato &""& rsusers.Fields(i).Name &""& "</td><td align=""center"">"
next
risultato = risultato & "</td></tr><tr><td align=""center"">"
risultato = risultato & rsusers.GetString(,,"</td><td align=""center"">","</td></tr><tr><td align=""center"">", "-")

' chiusura
rsusers.Close
set rs = Nothing

' modifico header per forzare l'apertura in Excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename="&nomefile&".xsl"

' scrivo a video
Response.Write ("<table border=""1""><tr><td align=""center"">" & risultato & "</td></tr></table>")