Hvad er der ivejen

Hvad er der ivejen med denne kode:
<%
if Request.ServerVariables("Request_Method") = "POST" then
Dim f, filespec
Dim mySmartUpload
Dim intCount
Dim number
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
number = rnd(99999999999999999999)
mySmartUpload.Upload

intCount = mySmartUpload.Save("editorfiles/" & number & ".mid")

Set f = fso.OpenTextFile(Server.Mappath("editorfiles/" & number & ".mid"),1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine
Loop

fso.DeleteFile("editorfiles/" & number & ".mid")
fso.close
set fso = nothing








end if
%>