response.redirect

[Hej!
Behöver hjälp med den här koden

<%
'// Bildnamnsgenerator
Passwordeller = ""
Randomize
For i = 1 to 10
intNum = Int(10 * Rnd + 48)
intBig = Int(26 * Rnd + 65)
intSmall = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)

Select Case intRand 
    Case 1 : delPasseller = Chr(intNum) 
    Case 2 : delPasseller = Chr(intBig) 
    Case 3 : delPasseller = Chr(intSmall) 
End Select 

Passwordeller = Passwordeller & delPasseller 

Next
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
if byteCount => 150000 THEN
response.write "Du har antingen en fil som inte har filändelse .gif eller så är den större än 150 kb.<br>"
else

Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
For Each File In UploadRequest.Items
'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")
item = UploadRequest.Item("item").Item("Value")
description = UploadRequest.Item("description").Item("Value")
sal= UploadRequest.Item("sal").Item("Value")
category = UploadRequest.Item("category").Item("Value")
ja = UploadRequest.Item("ja").Item("Value")
price = UploadRequest.Item("price").Item("Value")
phone = UploadRequest.Item("phone").Item("Value")
email = UploadRequest.Item("email").Item("Value")
stad = UploadRequest.Item("stad").Item("Value")
password = UploadRequest.Item("password").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")

'Else

'response.write "Du har antingen en fil som inte har filändelse .gif eller så är den större än 150 kb.<br>"

'End if
'Create FileSytemObject Component
Next

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
strFinalFilename = cStr(Passwordeller & filename)

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
If Len(filepathname) > 0 Then

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/ivica1/bilder/"& strFinalFilename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
else
SaveToDatabase = TRUE
strFinalFilename = ""

end if

'response.write "<br><font face=Verdana size=1><b>Din fil är uppladdad utan problem!!!</b><br>Annonsen kommer att granskas av Europa Annons AB.</br></font>"
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set RecSet= Server.CreateObject("ADODB.Recordset")
SQL= "INSERT INTO items (item, description, typ, category,test,price,phone,email,stad, filename,password) VALUES('" & item & "','"& description & "','" & sal &"','" & category &"','"&ja& "','"&price&"','"&phone&"','"& email &"', '"&stad&"','"&strFinalFilename& "','"& password & "')"
connect.Execute(SQL)

If Ja = "Ja" Then
response.redirect ( "sending.asp")
else
response.write"<center><b>Tack för Din beställning.</b><br>Din order har blivit mottagen och kommer behandlas snarast möjligt.<br>Annonsen kommer att granskas av Europa Annons.</br>"

end if
connect.close

Set RecSet= Nothing

end if
%>
Rad 101 är response.redirect ( "sending.asp")

Response-objekt fel 'ASP 0156 : 80004005'
Fel på huvuden
/ivica1/outputfile.asp, rad 101
HTTP-huvudena har redan skrivits till klientläsaren. Ändringar till HTTP-huvudena måste göras innan sidinnehållet skrivs
Med vänlig hälsning/ Ivar]

Lägg till

Response.Buffer = True

högst upp i koden :)

Om du söker på felmedelandet innan nästa gång du postar en fråga så kansek du får svar..... ;)

Men nu kan jag säga att du skall sätta

[red]
Response.Buffer = True
[/red]

Högst upp på sidan

Mvh icaaq

icaaq skrev:

Om du söker på felmedelandet innan nästa gång du postar en fråga så kansek du får svar..... ;)

Men nu kan jag säga att du skall sätta

[red]
Response.Buffer = True
[/red]

Högst upp på sidan

Mvh icaaq

Eko? ;)

verkar så......undrar om VI har rätt ;)

Mvh icaaq

Hej det hjälpte inte med
Response.Buffer = True

Har du satt den koden inom asp-avgränsare

<% Response.Buffer = TRUE %>

på rad 1??

Tack för hjälpen funkar fint.
Med vänlig hälsning
Ivar