<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
option explicit

Function B2S(b)
    Dim i,s
    For i = 1 To LenB(b)
        s = s & Chr(AscB(MidB(b, i, 1)))
    Next
    B2S = s
End Function

Dim data,fso,tf
data = Request.BinaryRead(Request.TotalBytes)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("C:\Inetpub\wwwroot\upload\" & Request.ServerVariables("HTTP_" & "fnm"), true)
tf.Write B2S(data)
tf.Close
Set tf = Nothing
Set fso = Nothing
%>