Ciao a tutti: il seguente codice mi crea un file excel nella cartella c:\inetpub\wwwroot\...\...\db_esport, fin qui tutto OK ma c'è un'anomalia cioè: oltre a creare il file nella cartella suddetta
mi crea su C: un collegamento al file stesso ed alla cartella che lo contiene. qualcuno saprebbe dirmi l'origine di tutto ciò?
<%@language=VBScript%>
<%
if Request.QueryString("action")<> "esporta" then
ID = Request.QueryString("ID")
corpo ="<html><body><form action='' method='get'><table><tr>" &_
"<td>Scegli un nome per il file</td><td><input type='text' name='file'>" &_
"<input type='hidden' name='action' value='esporta'></td>" &_
"</tr></table><input type='hidden' name='ID' value='"& ID &"'><input type='submit' value='Conferma'>" &_
"</form></body></html>"
Response.Write (corpo)
else
connSondaggi = "Provider=SQLOLEDB; Data Source=localhost; Initial Catalog = NetMonitor1; User Id=sa; Password=password"
dim ID, sql, i, file
ID = Request.QueryString("ID")
file = Request.QueryString("file")
'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 nella prima riga
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=cStr(rs_contatti("Nome"))
ExcelBook.Worksheets(1).Cells(i, 2).Value=cStr(rs_contatti("Cognome"))
ExcelBook.Worksheets(1).Cells(i, 3).Value=cStr(rs_contatti("Email"))
ExcelBook.Worksheets(1).Cells(i, 4).Value=cStr(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
ExcelBook.SaveAs Server.MapPath("../db_esport/"&file&".xls")
' Chiude tutto
ExcelApp.Application.Quit
Set ExcelApp = Nothing
Response.Write("<p><center><b>Creazione file Excel terminata con successo.</b></center></p><br/><center><a href='../db_esport/"&file&".xls'>Prendi file</a></center>")
end if
%>
Modificato da Fedro il 21 luglio 2003 10.31 -
Modificato da Fedro il 21 luglio 2003 10.49 -
