creer un fichier excel avec des données grace a une application en asp

Bonjour,
Je viens de commencer l'asp. On ma demander dextrait les donner une page internet pour les mettre sous excel.
cela permetterai au client de posseder ces donnée sous excel si il le souhaite.
or je ne comprend pas comment creer un fichier je trouve des codes mes je ne comprend pas leur commentaires.

voici une parti du code :
if Session("PrincipalUtilisateur") = "T" then
req_ticket = "SELECT * FROM ticket INNER JOIN contrat ON ticket.ncontrat_ticket=contrat.libelle_contrat and ticket.id_client=contrat.id_client INNER JOIN contact ON contact.id_contact=ticket.id_contact WHERE ticket.id_client='" & Session("idclient") & "' AND contrat.libelle_contrat='" & libelle_contrat & "'"
else
req_ticket = "SELECT * FROM ticket INNER JOIN contrat ON ticket.ncontrat_ticket=contrat.libelle_contrat and ticket.id_client=contrat.id_client INNER JOIN contact ON contact.id_contact=ticket.id_contact WHERE ticket.id_client='" & Session("idclient") & "' AND contrat.libelle_contrat='" & libelle_contrat & "' AND contact.id_contact='" & Session("CodeUtilisateur")&"'"
end if

rsRecup_ticket.Open req_ticket, dbConnRecup, adOpenKeyset, adLockReadOnly

response.write "<ul id='foldinglist' style='display:none' style=&{head};>"
if rsRecup_ticket.EOF then
response.write "aucun"
end if
response.ContentType="application/vnd.ms-excel"
response.write "<table>"
response.write "<tr>"
response.write "<td width=300>"
response.write "<b> n° du ticket</b>"
response.write "</td>"
response.write "<td width=400>"
response.write "<b>date d'ouverture</b>"
response.write "</td>"
response.write "<td width=400>"
response.write "<b>date de cloture</b>"
response.write "</td>"
response.write "<td width=300>"
response.write "<b>Etat du ticket</b>"
response.write "</td>"
response.write "<td width=300>"
response.write "<b>domaine</b>"
response.write "</td>"
response.write "<td width=300>"
response.write "<b>categorie</b>"
response.write "</td>"
response.write "<td width=300>"
response.write "<b>probleme</b>"
response.write "</td>"
response.write "<td width =50>"
response.write "<b> NB</b>"
response.write "</td>"
response.write "<td width=50>"
response.write "<b>UNITE<b>"
response.write "</td>"
response.write "</tr>"

while not rsRecup_ticket.EOF
'response.Write"<li>"
response.write "<tr>"
response.write "<td width=300>"
response.Write rsRecup_ticket("NUM_TICKET")
response.write "</td>"
response.write "<td width=400>"
response.Write rsRecup_ticket("DOUVERTURE_TICKET")
response.write "</td>"
response.write "<td width=400>"
response.Write rsRecup_ticket("DCLOTURE_TICKET")
response.write "</td>"
response.write "<td width=300>"
response.Write rsRecup_ticket("ETAT_TICKET")
response.write "</td>"
response.write "<td width=300>"
response.Write rsRecup_ticket ("DOMAINE_TICKET")
response.write "</td>"
response.write "<td width=300>"
response.Write rsRecup_ticket("CATEGORIE_ICKET")
response.write "</td>"
response.write "<td width=300>"
response.Write rsRecup_ticket("PROBLEME_TICKET")
response.write "</td>"
response.write "<td width=300>"
response.Write rsRecup_ticket("NBUNITES_TICKET")
response.write "</td>"
response.write "<td width=300>"
response.Write rsRecup_ticket("UNITE_TICKET")
response.write "</td>"
response.write "</tr>"

'response.write "</li>"



rsRecup_ticket.movenext

Wend