---
title: "response.redirect"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71765-response-redirect"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2003-03-21T20:39:30.000Z"
updated: "2003-03-21T21:12:14.000Z"
replies: 7
views: 272
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/71765-response-redirect"
---

# response.redirect

## #1 — Ivar, 2003-03-21T20:39Z

\[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\]

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

## #2 — Sebbe, 2003-03-21T20:41Z

Lägg till

```
Response.Buffer = True
```

högst upp i koden :)

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

## #3 — icaaq, 2003-03-21T20:43Z

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

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

## #4 — Sebbe, 2003-03-21T20:44Z

> **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? ;)

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

## #5 — icaaq, 2003-03-21T20:47Z

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

Mvh icaaq

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

## #6 — Ivar, 2003-03-21T21:01Z

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

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

## #7 — icaaq, 2003-03-21T21:02Z

Har du satt den koden inom asp-avgränsare

```
<% Response.Buffer = TRUE %>
```

 på rad 1??

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

## #8 — Ivar, 2003-03-21T21:12Z

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/71765-response-redirect