BinaryRead fejl under upload

Jeg har siddet og læst om nogle lignende fejl som andre har haft om samme punkt her på eksperten, men kan ikke finde det rigtige svar.

Jeg skal have skrevet en overskrift til db'en, samtidig med at jeg vil uploade et billede til en mappe, men jeg får fejlen:

Fejltype:
Request-objekt, ASP 0206 (0x80004005)
BinaryRead kan ikke kaldes, når Request.Form-samling er brugt.
/HOVEDPROJEKT/upload/outputFile.asp, line 20





Her er mine koder, er der nogel der kan se fejlen??


<!--#include file="../include/mappath.asp" -->
<%
Dim strHovedkategori
strHovedkategori = Trim(Replace(Request.Form("hovedkategori"),"'",""))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString

Conn.execute("INSERT INTO kategori (kategoriNavn) VALUES ('"&strHovedkategori&"')")

Conn.close
set Conn = nothing
%>

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest(RequestBin)
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'Response.Write (Request.ServerVariables("PATH_INFO"))
Set MyFile = ScriptObject.CreateTextFile("C:\Inetpub\wwwroot\HOVEDPROJEKT\billeder\upload\forside\" & filename)
'Set MyFile = ScriptObject.CreateTextFile(Server.mappath("HOVEDPROJEKT/billeder/upload/forside/"&filename))

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

<!--#include file="upload.asp"-->
<% Response.Redirect("../kategori.asp") %>