grazie a tutti gli amici della ML

Sto impazzendo per un problema che pensavo non esistesse.
Ho messo in produzione una procedura scritta in ASP che mi consente di creare dei file .XLS leggendo un mdb Access.
Sulla macchna di test dove ho sviluppato funziona regolarmente.
In entrambe le macchine gli ambienti sono speculari
XP Professional e Office 2003

Eseguendo una function mi da il seguente errore

Errore 70 Autorizzazione negata

Allego il codice

Function CreatoListino(N_Listino)
On Error Resume Next

CreatoListino = False

dim ind, colonne(26), Colonna, NomeListino, NumListino, n, r, ScrittoIntestazioni, FileXLS
dim rs, rs1, rs2, Strsql, Strsql1, Strsql2, GG, MM, YYYY, DataListino, Indice
dim Fso

colonne(1) = "A"
colonne(2) = "B"
colonne(3) = "C"
colonne(4) = "D"
colonne(5) = "E"
colonne(6) = "F"
colonne(7) = "G"
colonne(8) = "H"
colonne(9) = "I"
colonne(10) = "J"
colonne(11) = "K"
colonne(12) = "L"
colonne(13) = "M"
colonne(14) = "N"
colonne(15) = "O"
colonne(16) = "P"
colonne(17) = "Q"
colonne(18) = "R"
colonne(19) = "S"
colonne(20) = "T"
colonne(21) = "U"
colonne(22) = "V"
colonne(23) = "W"
colonne(24) = "X"
colonne(25) = "Y"
colonne(26) = "Z"

if len(N_Listino) < 2 then
for ind = 1 to (2 - len(N_Listino))
NumListino = "0" & N_Listino
next
end if

' Inizio creazione Listino su excel

Dim oApp, oWks, oSheet '<-- creo gli oggetti dichiarandone i tipi

Set oApp = CreateObject("Excel.Application") '<-- assegno all'oggetto l'istanza di Excel

if Err.Number <> 0 then
MessErroreListino = "CreatoListino - Errore " & err.number & " " & Err.description
exit function
end if
va in errore dopo l'istanza di excel
potete spiegarmi dove sbaglio e perchè sulla macchina di test funziona ?

Certamente credo stia nei diritti, ma non so dove agire

grazie Moreno