%
' 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
%>