Ombyggnad till aspUpload

Någon som kan hjälpa mig bygga om detta till aspupload?

<!--#Include file="function.asp"-->
<%byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

contentType   = UploadRequest.Item("fil").Item("ContentType")
filepathname  = UploadRequest.Item("fil").Item("FileName")
filename      = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value         = UploadRequest.Item("fil").Item("Value")
pdf           = "pdf/" & filename

' hämtar filextension 
extension = right(pdf,len(pdf) - instr(pdf,".") +1)

Filen = "pdf_" & Request.Querystring("id")

' bygger ihop det nya filnamnet 
newfilename = Filen & extension 

Make_upload = False
Filetype           = lCase(right(Filename, len(Filename)-instrRev(Filename,".")))
Select Case Filetype
  Case "pdf"
    Make_upload = True
End Select

If Make_upload = True Then
  Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
  pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
  Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../pdf/"& newfilename))

  For i = 1 to LenB(value)
     MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
  MyFile.Close

  Conn.execute("Update artiklar Set pdf1='pdf/" & newfilename & "'  Where id = "& Request.Querystring("id"))
  Response.Redirect "admin.asp?do=inne"
Else
  Response.Redirect "admin.asp?do=inne"
End If%>