<% ' Check for a file if Request.Files.Count = 0 Then Response.Write ("No files received.") Else ' Get the file from the request Dim File as HttpPostedFile File = Request.Files.Get(0) File.SaveAs ("c:\website\pdffiles\" + File.FileName) ' Output the file details to the browser Response.Write ("File Uploaded: " & File.FileName & "
") Response.Write ("Size: " & File.ContentLength & " bytes
") Response.Write ("Type: " & File.ContentType & "

") End If %>