Passaggio di variabili

[Nightmare-1]

Salve a tutti, ho questa parte di codice nel quale ci sonoalcune istruzioni per scaricare dei file. Ho però problemi relativi al passaggio di variabili. Il valore "&download&" lo prendo da una database mediante download = rs("download"), ma come faccio a farlo leggere correttamente? Ho qualche dubbio in proposito. Grazie in anticipo

'Copiamo il file
Dim fsoMyFile
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
fsoMyFile.CopyFile Server.MapPath("/marvinet/file/download/" & " & download & " ), Server.MapPath("/marvinet/file/temp/" & " & download & " ), True
objStream.Type = 1 ' adTypeBinary 
objStream.Open 
strFileName = "temp/" & download & " "
objStream.LoadFromFile Server.MapPath(strFileName) 
' Istruiamo il browser sul tipo di file 
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName 
Response.ContentType = "application/octet-stream" 
Response.BinaryWrite objStream.Read 

'Cancelliamo il file
fsoMyFile.DeleteFile Server.MapPath("/marvinet/file/temp/" & download & " ")
objStream.Close 
Set objStream = Nothing

[viki1967]

Non ho capito qual'è il tuo problema.
Hai provato a stampare i vari percorsi ??

[Nightmare-1]

Si, però mi stampa i percorsi in maniera errata. Ad esempio:

/marvinet/file/download/" & " & download & "

mi stampava

/marvinet/file/download/

tralasciando la variabile. Sono però sicuro che esista, perchè stampando solo "&downlad&" mi restitusce il valore corretto

[viki1967]

/marvinet/file/download/"& download &"

oppure:

/marvinet/file/download/"& rs("download") &"

[Nightmare-1]

grazie mille ora provo!

[Nightmare-1]

Dàancora problemi. Più che altro ho pèroblemi su una stringa. Cerco di spiegarmi perchè rileggendo il mio post non ho capito nemmeno io. Dunque, ho questa stringa:

fsoMyFile.CopyFile Server.MapPath("/file/download/file.zip"), Server.MapPath("/file/temp/file.zip"), True

però in questa il parametro "file.zip" è passato in maniera statica, io vorrei che al posto di "file.zip" ci andasse un valore dinamico dato da:

download = rs("download")

però non so come passarglielo, mi dà sempre errore.

[viki1967]

Sei certo che la variabile download si valorizzi correttamente e che contenga qualcosa ?

[Nightmare-1]

Sicuro, ho provato a stamparla prima della riga postata in precedenza e mi compare quello che dovrebbe effetivamente contenere

[viki1967]

Originariamente inviato da Nightmare-1
Sicuro, ho provato a stamparla prima della riga postata in precedenza e mi compare quello che dovrebbe effetivamente contenere

cosa vuoi fare con questo script?

[viki1967]

prova così , sul mio server funziona correttamente:

<%

download = "Nometuofile.est" 'in alternativa utilizza download = rs("download")

Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
fsoMyFile.CopyFile Server.MapPath("download/"&download&""), _
                                  Server.MapPath("temp/"&download&""), True

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
  
strFileName = "temp/"&download&""
objStream.LoadFromFile Server.MapPath(strFileName) 
  
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName 
Response.ContentType = "application/octet-stream" 
Response.BinaryWrite objStream.Read
  
fsoMyFile.DeleteFile Server.MapPath("temp/"&download&"")
  
objStream.Close
Set objStream = Nothing
                                
%>