Ciao a tutti, spero possiate aiutarmi.

Con la prima parte di questo codice ASP tramite l'oggetto winHttpRequest richiamo una pagina htm che genera un file in formato CSV.

Con la seconda parte del codice ASP dovrei forzare il download del file CSV creato nella prima parte del codice, ma ho un errore:

Microsoft VBScript runtime error '800a0035'
File not found
/public/onLine.asp, line 14

Eppure se lancio manualmente nel browser il link:
http: // www. paginaweb.com/dynamic/servlet?id=20&fto=CSV&filepath=/files/816.xml

Riesco a fare il corretto download del file.

Cosa sbaglio?
Grazie.
codice:
<%

        Set winHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
        winHttpRequest.Open "GET", "http://www.paginaweb.com/Rep.htm?id=20&Fto=CSV", False
        winHttpRequest.Send
        Set winHttpRequest = Nothing

        Set oFso = CreateObject("Scripting.FileSystemObject")      

        sDestinationFile = "http://www.paginaweb.com/dynamic/servlet?id=20&fto=CSV&filepath=/files/816.xml"

        strFilePath = sDestinationFile

        Set oFile = oFso.GetFile(strFilePath)
                
        strFileName = UCase(oFile.Name) 
        strFileSize = CLNG(oFile.size) 
        
        Set oFile = Nothing 
        Set oFso = Nothing 

        Const adTypeBinary = 1 

        Response.Clear 

        Set objStream = Server.CreateObject("ADODB.Stream") 
        objStream.Open 
        objStream.Type = adTypeBinary 
        objStream.LoadFromFile strFilePath 

        strFileType = lcase(Right(strFileName, 4)) 
     
    Select Case strFileType 
        Case ".asf" 
            ContentType = "video/x-ms-asf" 
        Case ".avi" 
            ContentType = "video/avi" 
        Case ".doc" 
            ContentType = "application/msword" 
        Case ".zip" 
            ContentType = "application/zip" 
            ContentType = "application/x-zip-compressed" 
        Case ".xls" 
            ContentType = "application/vnd.ms-excel" 
        Case ".gif" 
            ContentType = "image/gif" 
        Case ".jpg", "jpeg" 
            ContentType = "image/jpeg" 
        Case ".wav" 
            ContentType = "audio/wav" 
        Case ".mp3" 
            ContentType = "audio/mpeg3" 
        Case ".mpg", "mpeg" 
            ContentType = "video/mpeg" 
        Case ".rtf" 
            ContentType = "application/rtf" 
        Case ".htm", "html" 
            ContentType = "text/html" 
        Case ".asp" 
            ContentType = "text/asp" 
        Case Else 
            ContentType = "application/octet-stream" 
    End Select 
     
    Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName 
    Response.AddHeader "Content-Length", strFileSize 

    Response.Charset = "UTF-8" 
    Response.ContentType = ContentType 
     
    Do While Not objStream.EOS 
        Response.BinaryWrite objStream.Read(8192)
        Response.Flush 
    Loop 

    objStream.Close 
    Set objStream = Nothing

%>