Primero creas el recordset (en mi caso se llama empresas, pero he omitido esa parte del código) y haces la búsqueda, y después haces esto:
Código PHP:
' Se crean las variables a utilizar (PathXXX corresponde a la ruta
' del archivo de tipo XXX que utilizaremos).
PathXLS = Server.MapPath("./exportacion/Listado_telefono.xls")
FinLinea = ""
' Creo los objetos que utilizaremos, serán de los tipos FSO, TextStream y Connection
If not empresas.eof then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
'Set oConn = Server.CreateObject("ADODB.Connection")
' Recorro todo el recordset recuperando sus valores y escribiéndolos en el archivo Excel
If not empresas.bof or not empresas.eof then empresas.MoveFirst
'En la primera linea escribimos los nombres de los campos para que quede más bonito :P
encabezado = "Cluster" & chr(9) &"Cuenta"
Arch_Excel.writeline encabezado
Do while Not empresas.EOF
FinLinea = ""
For each x in empresas.fields
FinLinea = FinLinea & x.value & chr(9)
Next
Arch_Excel.writeline FinLinea
empresas.MoveNext
Loop
Cierro y destruyo todos los objetos utilizados para liberar memoria del servidor
Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso = Nothing
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#0099CC" text="#000000">
<%enlace = "./exportacion/Listado_telefono.xls"%>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><b>El
listado se ha generado correctamente en una hoja Excel.</b></font></p>
<p><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=enlace%>">Descargar
archivo Excel Generado</a></font></b></font></p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">(NOTA:
Para descargar el archivo debe pulsar el enlace con el boton derecho y seleccionar
"Guardar Como")</font></b></font></p>
</body>
</html>
<%
Empresas.Close()
%>