none... nessuna pagina ASP. E' una JSP ma il codice contenuto nei tag <% %> mi serve solo per reperire il testo sa scrivere nel file excel. Ti ho evidenziato le righe che ti interessano di più

<SCRIPT language=VbScript>
Option Explicit

Sub creaFile()
On Error Resume Next
Dim my_objFs
Dim my_objFileTo

<% Hashtable dati = (Hashtable)objBeanElez.getDatiOutput();
int i = 1;
while ((Hashtable)dati.get("FILE" + i) != null)
{ myLog.trace("SERVLET creaFileElenchi, i = " + i);
Hashtable appoH = (Hashtable)dati.get("FILE" + i);
String nomeFile = (String)appoH.get("NOMEFILE");
myLog.trace(nomeFile);
String titoloFile = (String)appoH.get("TITOLOFILE");
Vector datiFile = (Vector)appoH.get("DATIFILE");

try
{ %>
'N.B. bisogna impostare a "basso" il livello di protezione del browser per le reti intranet locali
Set my_objFs = CreateObject("Scripting.FileSystemObject")
Set my_objFileTo = my_objFs.CreateTextFile("<%= nomeFile.replace('/', '-') + ".xls" %>", True)

my_objFileTo.WriteLine("<%= titoloFile %>")
my_objFileTo.WriteLine()
my_objFileTo.WriteLine("<%= "IDENTIFICATIVO" + '\t' + "NOMINATIVO" + '\t' + "DATA DI NASCITA" + '\t' + "DOCUMENTO" + '\t' + "FIRMA" %>")
my_objFileTo.WriteLine()

<% for (int j = 0; j < datiFile.size(); j++)
{ %>
my_objFileTo.Write("<%= ((SestElezRiceObject)datiFile.elementAt(j)).getCod iSogg() + '\t' %>")
my_objFileTo.Write("<%= ((SestElezRiceObject)datiFile.elementAt(j)).getDes cCogn() + " " + ((SestElezRiceObject)datiFile.elementAt(j)).getDes cNome() + '\t' %>")
my_objFileTo.Write("<%= ((SestElezRiceObject)datiFile.elementAt(j)).getDat aNasc() %>")
my_objFileTo.WriteLine()
<% } %>
my_objFileTo.Close
<% i++;
} //chiusura del TRY
catch (IOException e)
{ myLog.trace("Errore - " + e.toString());
i++;
}
} //chiusura ciclo while
%>

Exit Sub
End Sub
</SCRIPT>