Hur ladda upp pdf fil

Jag har ett uppladdningsscript som laddar upp text och bildlänk nu men jag får det inte att funka när jag ska ladda upp pdf fil. Det går inte att ladda upp som bild.
Här är del av koden

<table width="400" cellpadding="4" cellspacing="0">
<form method="post" enctype="multipart/form-data" action="/aktuellt/admin.asp?do=inne&action=picin&id=<%=Request.Querystring("id")%>" name="frmUpload" onSubmit="return Nybild()">
  <tr>
    <td><b>Bilden:</b><br>
      <input type="file" name="fil" size="45"></td>
  </tr>
  <tr>
    <td><input type="Submit" name="andra" value="Ladda upp nu"></td>
  </tr>
</form>
</table>

<%...%>
<%End If
If Request.Querystring("action")= "picin" AND Session("nyhet") = Secure Then

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")
Bild                  = "newspic/" & filename

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

mappnamn = Right("000" & trim(Request.Querystring("id")), 3)

Filen = Right("000000" & trim("news_" & Request.Querystring("id")), 6)

' bygger ihop det nya filnamnet 
newfilename = Filen & extension 

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("newspic/"& newfilename))

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

MyFile.Close

   Conn.execute("Update news Set bild='newspic/" & newfilename & "'  Where id = "& Request.Querystring("id"))
   Response.Redirect "admin.asp?do=inne"%>

<!--#Include file="function.asp"-->

<%...%>
<%End If
If Request.Querystring("action") = "add" AND Session("nyhet") = Secure Then%>

<table width="400" cellpadding="4" cellspacing="0">
<form method="post" action="/aktuellt/admin.asp?do=inne&action=spara" name="nyhet" onSubmit="return News()">
  <tr>
    <td><b>Rubrik:</b><br>
      <input name="rubrik" type="text" id="rubrik" size="45"></td>
  </tr>
  <tr>
    <td><b>L&auml;slockande inledning:</b><br>
      <input name="namn" type="text" id="namn" size="45"></td>
  </tr>
  <tr>
    <td><b>Aktuellt:</b><br>
      <textarea cols="60" rows="10" name="nyhet"></textarea></td>
  </tr>
  <tr>
    <td><input type="Submit" name="andra" value="Lägg till"></td>
  </tr>
</form>
</table>

<%...%>
<%End If
If Request.Querystring("action")= "change" AND Session("nyhet") = Secure Then

Set RecSet = Conn.Execute("SELECT * FROM news WHERE id="& Request.Querystring("id"))%>