<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
adTypeBinary = 1
adSaveCreateOverWrite = 2
uploaddir = Server.MapPath("upload")
filename = Request.QueryString("filename")
data = Request.BinaryRead(Request.TotalBytes)
Set binstm = CreateObject("ADODB.Stream")
binstm.Type = adTypeBinary
binstm.Open
binstm.Write data
binstm.SaveToFile uploaddir & "\" & filename, adSaveCreateOverWrite
%>