---
title: "Header Error"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11408-header-error"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Steveking"
published: "2001-08-31T11:54:00.000Z"
updated: "2001-08-31T12:27:00.000Z"
replies: 2
views: 237
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11408-header-error"
---

# Header Error

## #1 — Steveking, 2001-08-31T11:54Z

Halloj.
Har problem med en include fil.

Koden ser ut såhär.

```

<!-- #include file="admin.asp" -->
<%

' Author Philippe Collignon
' Email PhCollignon@email.com

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'email = UploadRequest.Item("email").Item("Value")

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

namn = UploadRequest.Item("namn").Item("Value")

r1 = UploadRequest.Item("r1").Item("Value")

'Ta emot

set Conn=server.createobject("adodb.connection")
	        path="DBQ=" & server.mappath("db_upload.mdb")
	        conn.open "driver={microsoft access driver (*.mdb)}; " & path," ",""
	        SQL = "Select * from pages"
	        set Rs = Server.CreateObject("ADODB.Recordset")
	        Rs.Open sql, conn, 3, 3
			
			Rs.Addnew
                
        RS("namn") = namn
	RS("r1") = r1
  
        RS("blob") = "upload/" & filename
        Rs.Update

		Rs.close
        Conn.close

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("upload/"&filename))

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

MyFile.Close
%> <b><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif">Filen du laddade 
upp</FONT>: </b><%=filename%><BR> <!--#include file="upload.asp"-->
```

Jag har testat med att flytta upp 

```
Response.Buffer = TRUE
```

Högst upp på sidan men hjälper inte.

Några tips ?

Permalänk: https://www.webforum.nu/p/11408

## #2 — @nders, 2001-08-31T12:01Z

allra högst upp? ovanför där du inkluderar, precis under \<%@ utan någon tom rad emellan?

Permalänk: https://www.webforum.nu/p/285392

## #3 — Steveking, 2001-08-31T12:27Z

Kör jag

```
<%
Response.buffer = true
%>
<!--#include file="admin.asp"-->
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)

osv...
```

får ja felet 

Request object error 'ASP 0206 : 80004005' 

Cannot call BinaryRead 

outputFile.asp, line 16 

Cannot call BinaryRead after using Request.Form collection. 

Förstår inte varför den börjar klaga på binary och request.form koden bara för ja kör include. Som fungerar utmärkt om ja skippar include filen

\[Redigerat av Steveking den 31 aug 2001\]

Permalänk: https://www.webforum.nu/p/285393

---

Tråden på webben: https://www.webforum.nu/amne/asp/11408-header-error