Sub Upload()
 
  On Error Goto ErrHandler
 
  Do While lngBytesLeft > 0
 
    bytCurrent = ScriptingContext.Request.BinaryRead(256*1024)
 
    'Hier wird dann nach dem Anfang des Files und dem filename usw. gesucht und 
    ' dieses dann Stückweise rausgeschrieben, solange nicht das nächste File 
    ' beginnt
 
    Put #File, , bytCurrent
 
    'Sollte nun z.B. der Dateiname kein .jpg sein, dann wird ein Fehler 
    ' generiert:
 
    Err.Raise ERR_INVALID_EXTENSION, App.Title, "The file type is not allowed."
 
  Loop
 
ErrHandler:
 
  Err.Raise Err.Number, Err.Source, Err.Description
 
  'Hier übergibt der Code wieder an das ASP-Script, welches aber KEINE Ausgabe ( 
  ' Response) machen kann, sondern "Seite kann nicht angezeigt werden", bzw. 
  ' eine Unterbrechung der Verbindung anzeigt statt dem Fehler (Response.Write 
  ' Err.Description).
 
End Sub