toch wel probeer het gewoon naar nen word pagina weg te schrijven...
Hier een vbtje van excel.
BTW let niet op html code want tis slecht (niet door mij geschreven, ik ben het aan het verbeteren

)
<% response.ContentType="application/vnd.ms-excel" %>
<HTML><HEAD>
<style>
TD
{
font-size:11px;
font-family: Tahoma, Verdana, Arial;
}
</style>
<TITLE>Wie is Wie - Printbare versie</TITLE>
<table border=0 cellpadding=0 cellspacing=0><tr>
<td><b><U>Naam</u></b></td>
<td></td>
<td><b><u>Functie</u></b></td>
<td></td>
<td><b><u>Telefoon</u></b></td>
<td></td>
<td><b><u>Email</u></b></td></tr><tr>
<td> </td>
</tr><tr>
<%
i=1
started= false
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("website.mdb")
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM tblPERSONEEL where active = true order by pVoornaam, pAchternaam", conn
while not rs.eof
if i=1 and started then
response.write("</tr>")
end if
started=true
i=i+1
response.write("<td valign=top width=200><NOBR><a href=wiedetail.asp?PID=" & rs.fields("PID") & "><b>")
response.write(rs.Fields("PVoornaam") & " " & rs.fields("PAchternaam") & "</A></NOBR></td><td></b>")
response.write(" </td><td><NOBR>"&rs.Fields("Functie") & "</NOBR></td><td>")
response.write(" </td><td><NOBR>"&rs.Fields("TEL") & "</NOBR></td><td>")
response.write(" </td><td><NOBR><a href=""mailto:" & rs.Fields("PEmail") & """>" & rs.Fields("PEmail") & "</a></NOBR></td>")
rs.movenext
if i = 2 then
i=1
else
'response.write("<td bgcolor=#222244><img src=../../images/spacer.gif width=1 height=1></td>")
end if
wend
conn.close
%>
</tr></table>
</BODY>
<!-- InstanceEnd --></HTML>