How to save via Classic-ASP

data = Request.QueryString("filename")
set xmlhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.6.0") 
xmlhttp.open "GET", data, false 
xmlhttp.send
With Server.CreateObject("Adodb.Stream")
    .Type = 1 '1 for binary stream
    .Open
    .Write xmlhttp.responseBody
    .SaveToFile Server.Mappath("hello.wav"), 2 ' 2 for overwrite
    .Close
End With
set xmlhttp = nothing

sythoos / jRecorder

How to save via Classic-ASP #17