Primero colocas un link a otra pagina asp, este link te abrira el archivo excel, la pagina que redireccionas en el link tendra el codigo para armar tu archivo excel.
El codigo en esa otra pagina debe ser el siguiente.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
' Si requieres sacar los valores de una BD puedes realizar la conexion aqui
' los datos a colocar en el archivo excel los vas a ir colocando en una tabla
Response.Write( "<TABLE BORDER=""0"" align=""center"">" & vbCrlf)
Response.Write ("<TD><B><I>Fecha de Consulta:</I></B></TD>")
Response.Write( "<TD><center><I>" & fecha & "<I><center></TD>" & vbCrlf)
'===========================================
PintarTabla
Sub PintarTabla ()
'comienzo a imprimir, consultar, etc
'Utiliza el objeto rs abierto
'para pintar la tabla
'La primera fila la escribo directamente, con
'los nombres de los campos
Response.Write( "<TABLE BORDER=""1"" align=""center"">" & vbCrlf)
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B><center>Valija del Dia</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Nombre Responsable</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Sticker</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Numero</center></B></TD>" & vbCrlf )
Response.Write( "<TD><B><center>Nombre</center></B></TD>" & vbCrlf )
'Imprimo una fila de la tabla
'para cada registro que encuentre
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD><center>Nvalija_dia</center></TD>" )
'nombre responsable
Response.Write( "<TD><center>nb_usr_act</center></TD>" )
Response.Write( "<TD><center>id_sticker</center></TD>" )
Response.Write( "<TD><center>id_fso</center></TD>" )
'nombre
Response.Write( "<TD><center>nb_fso</center></TD>" )
Response.Write( "</TR>" & vbCrlf )
wend
'Cierro la tabla
Response.Write("</TABLE>")
End Sub 'PintarTabla
'===========================================
'fin
'Limpiamos y cerramos
%>
