Header Error

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 ?

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

------------------
mördar-anders, det är jag.

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]