<!-- 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,doc
data = Request.BinaryRead(Request.TotalBytes)
Set doc = Server.CreateObject("Microsoft.XMLDOM")
doc.Async = False
doc.LoadXML(B2S(data)) 
doc.Save("C:\Inetpub\wwwroot\upload\" & Request.ServerVariables("HTTP_" & "fnm"))
Set doc = Nothing
%>