Read XLSX File From ASP

Hello, I am trying to read a file "xlsx" from ASP, the problem is when I try to delete the file, ASP inform not have permits to delete it, it is as if the connection to file not closing properly, the code is:




Code Snippet




if extension = "xlsx" or extension = "xls" then 'si el archivo es excel

sFilePath = server.MapPath("../tmp/importar/"&archivo)
sDataDir = server.MapPath("../tmp/importar")
sSheetName = "Hoja1"

if extension = "xls" then
sFileConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq="&sFilePath&";DefaultDir="&sDataDir&";"
else
sFileConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};READONLY=TRUE;DBQ="&sFilePath&";DefaultDir="&sDataDir&";"
end if
sFileSQL = "SELECT * FROM [" & sSheetName & "$]"

set oFileCN = server.createobject("ADODB.Connection") 'creo objeto adodb
oFileCN.Open sFileConnectionString 'abro el exel
set oFileRS = oFileCN.Execute(sFileSQL) 'selecciono los registros
if not oFileRS.EOF then 'si es distinto de EOF obtengo un array con los valores de las columnas
aSourceData = oFileRS.getRows()
end if
oFileRS.Close
set oFileRS = nothing
oFileCN.Close
set oFileCN = nothing

'asigno los mails a la variabls "readDatafile"
readDatafile = aSourceData






and the error





Microsoft VBScript runtime error '800a0046'

Permission denied

/gestion/edit_import_db_mail.asp, line 27




Any ideas?, Greetings and forgiveness for my English