SoS permessi SCRITTURA cartelle/file

[max161]

Ciao, ho perso 1 mattinata senza concludere nulla....

Il problema:
ho una cartella [prova] che contiene i file esp_excel.asp e FileExcel.xls, il file ASP SCRIVE sul file excel e funziona.

ho una seconda cartella, copia SPUTATA (anche nei permessi) della prima e NON FUNZIONA.
il msg d'errore è:


Tipo di errore:
Microsoft Excel (0x800A03EC)
Impossibile accedere al documento di sola lettura 'contatti_x.xls'.

Ma i permessi li ho settati tutti!!!!

[kala]

non è che il file ha la spunta sola lettura? :banalità

[max161]

Adesso addirittura, ho settato il permesso "controllo completo" del file per Everyone e quando lancio la pagina mi "smanetta" all'infinito, non e' che sia un BUG di w2000?

[max161]

Lo script oltre a modificare il file excel, me lo crea se esso non esiste già(quindi è perfetto)
Lo script è questo:
<%@language=VBScript%>
<%
dim ID, i, connSondaggi
connSondaggi = "Provider=SQLOLEDB; Data Source=localhost; Initial Catalog = NetMonitor1; User Id=sa; Password=tsimor161!"
ID = 25
' Crea l istanza dell oggetto Excel
Set ExcelApp = Server.CreateObject("Excel.Application")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs_contatti = Server.CreateObject("ADODB.Recordset")
cn.Open(connSondaggi)
sql = "SELECT Nome, Cognome, Email, Password FROM Telefonisti WHERE IDSondaggio="&ID&""
rs_contatti.Open sql, cn
' Imposta lesecuzione in background
ExcelApp.Application.Visible = false
'Genera i fogli
Set ExcelBook = ExcelApp.Workbooks.Add
'imposto i nomi dei campi
ExcelBook.Worksheets(1).Cells(1, 1).Value="Nome"
ExcelBook.Worksheets(1).Cells(1, 2).Value="Cognome"
ExcelBook.Worksheets(1).Cells(1, 3).Value="Email"
ExcelBook.Worksheets(1).Cells(1, 4).Value="Password"
i = 2
Do While Not rs_contatti.EOF
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Name = "Verdana"
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Size = 10
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Italic = true
ExcelBook.Worksheets(1).Cells(i, 1).Value=rs_contatti("Nome")
ExcelBook.Worksheets(1).Cells(i, 2).Value=rs_contatti("Cognome")
ExcelBook.Worksheets(1).Cells(i, 3).Value=rs_contatti("Email")
ExcelBook.Worksheets(1).Cells(i, 4).Value=rs_contatti("Password")
'ExcelBook.Worksheets(1).Cells(1, 1).HorizontalAlignment = 1
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Color = RGB(0,0,0)
i = i +1
rs_contatti.Movenext
loop
rs_contatti.Close
Set rs_contatti = Nothing
cn.Close
Set cn = Nothing
' Cancella i fogli secondari
ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete

' Salva su disco, se il file non esiste me lo crea
ExcelBook.SaveAs Server.MapPath("File.xls")

' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing

Response.Write("

<center>Creazione file Excel terminata con successo.</center></p>")
%>

[alegia76]

Originariamente inviato da max161
Adesso addirittura, ho settato il permesso "controllo completo" del file per Everyone e quando lancio la pagina mi "smanetta" all'infinito, non e' che sia un BUG di w2000?

Non parliamo sempre di BUG dei sistemi Microsoft...
Ricontrolla i permessi!

[max161]

Lo script oltre a modificare il file excel, me lo crea se esso non esiste già(quindi è perfetto)
Lo script è questo:
<%@language=VBScript%>
<%
dim ID, i, connSondaggi
connSondaggi = "Provider=SQLOLEDB; Data Source=localhost; Initial Catalog = NetMonitor1; User Id=sa; Password=tsimor161!"
ID = 25
' Crea l istanza dell oggetto Excel
Set ExcelApp = Server.CreateObject("Excel.Application")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs_contatti = Server.CreateObject("ADODB.Recordset")
cn.Open(connSondaggi)
sql = "SELECT Nome, Cognome, Email, Password FROM Telefonisti WHERE IDSondaggio="&ID&""
rs_contatti.Open sql, cn
' Imposta lesecuzione in background
ExcelApp.Application.Visible = false
'Genera i fogli
Set ExcelBook = ExcelApp.Workbooks.Add
'imposto i nomi dei campi
ExcelBook.Worksheets(1).Cells(1, 1).Value="Nome"
ExcelBook.Worksheets(1).Cells(1, 2).Value="Cognome"
ExcelBook.Worksheets(1).Cells(1, 3).Value="Email"
ExcelBook.Worksheets(1).Cells(1, 4).Value="Password"
i = 2
Do While Not rs_contatti.EOF
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Name = "Verdana"
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Size = 10
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Italic = true
ExcelBook.Worksheets(1).Cells(i, 1).Value=rs_contatti("Nome")
ExcelBook.Worksheets(1).Cells(i, 2).Value=rs_contatti("Cognome")
ExcelBook.Worksheets(1).Cells(i, 3).Value=rs_contatti("Email")
ExcelBook.Worksheets(1).Cells(i, 4).Value=rs_contatti("Password")
'ExcelBook.Worksheets(1).Cells(1, 1).HorizontalAlignment = 1
'ExcelBook.Worksheets(1).Cells(1, 1).Font.Color = RGB(0,0,0)
i = i +1
rs_contatti.Movenext
loop
rs_contatti.Close
Set rs_contatti = Nothing
cn.Close
Set cn = Nothing
' Cancella i fogli secondari
ExcelBook.Worksheets(3).Delete
ExcelBook.Worksheets(2).Delete

' Salva su disco, se il file non esiste me lo crea
ExcelBook.SaveAs Server.MapPath("File.xls")

' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing

Response.Write("

<center>Creazione file Excel terminata con successo.</center></p>")
%>


Quindi ne deduco che il problema è essenzialmente a livello di permessi cartella

[alegia76]

Originariamente inviato da max161
Quindi ne deduco che il problema è essenzialmente a livello di permessi cartella

Ecco...controlla i permessi sulla cartella!

[max161]

Sono SPUTATE

[ZofM]

Sicuro che nelle proprietà del file non siano checckato Sola lettura (non nella scheda Protezione ma in Generale)

[max161]

Se vuoi ti posto la cartella (funzionante) con lo script (ASP) e il file excel, basta copiarla nella wwwroot...