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"))%>

Vad får du för felmeddelande?

Har du skapa/skrivrättigheter för alla till katalogen
Server.mappath("newspic/") ?

Jag får inget felmedelande allt verkar laddas upp men men visas inte.
Skrivrättigheter för alla vet jag inte men den fungerar ju att ladda upp bilder och text. Behöver den mer rättigheter frö en pdf fil.