<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
formsize=clng(request.totalbytes)
formdata=request.binaryread(formsize)
set dr=CreateObject("Adodb.Stream")
dr.Type=1
dr.Open
dr.write formdata
dr.SaveToFile "c:/temp/1.jpg",2
dr.Close
set dr=nothing
end if
%>
<form method=post enctype="multipart/form-data">
<input type=file name=file1>
<input type=submit name=x>
</form>