Hola,
Te pego un ejemplo que he sacado de aulambra[dot]com. Espero que te sirva...
<%@ Language=VBScript %>
<HTML>
<HEAD><TITLE> Leer de una hoja de datos Excel </TITLE></HEAD>
<BODY>
<%
'Las variables del archivo adovbs.inc
Const adOpenStatic = 3
Const adLockPessimistic = 2
'Nos conectamos a la hoja de datos del Excel
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq="
& Server.MapPath("Libro1.xls") & ";"
db.open DB_CONNECTIONSTRING
'Recordset correspondiente a un rango de datos
set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "SELECT * FROM alumnos"
rs.open SQLStr,DB_CONNECTIONSTRING, adOpenStatic
,adLockPessimistic, adCmdText
'Número de columnas de la tabla
columnas = rs.Fields.Count
Response.Write("<table width='20%' border='1'><tr>")
'Mostramos el tiulo de la tabla.
For I = 0 To columnas - 1
Response.Write "<td align='center'><b>"
& rs.Fields.Item(I).Name & "</b></td>"
Next
Response.Write("</tr>")
'Nos ponemos en el primer registro
rs.MoveFirst
'Mostramos los datos
Do While Not rs.EOF
Response.Write("<tr>")
For I = 0 To columnas - 1
Response.Write ("<td>" & rs.Fields.Item(I).Value & "</td>")
Next
Response.Write "</tr>"
rs.MoveNext
Loop
Response.Write("</table>")
'Eliminamos el recordset
rs.Close
Set rs = Nothing
'Eliminamos la bd
db.Close
Set db = Nothing
%>
</BODY></HTML>