SQL-db -> Excel -> html

<%
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("text.xls") & ";Extended Properties=Excel 8.0;"

SQL = ("select * from [Blad1$]")
Set RS = Conn.Execute(SQL)
%>
<table border="1">
	<tr>
<%
		For X = 0 To RS.Fields.Count - 1
%>
		<td>
			<%=RS.Fields.Item(X).name%><br />
		</td>
			<% Next %>
		</tr>

<%
		while not Rs.eof
%>		
		<tr>
<%
		For X = 0 To RS.Fields.Count - 1
%>
		<td>
			<%=RS.Fields.Item(X)%><br>
		</td>
<%
			Next
%>
		</tr>
<%
			Rs.MoveNext
		    Wend
%>
	</table>
	
<%
Rs.Close 
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>