---
title: "Hjälp mig"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39148-hjälp-mig"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Beckis"
published: "2002-03-07T11:10:53.000Z"
updated: "2002-03-07T14:47:37.000Z"
replies: 11
views: 341
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/39148-hjälp-mig"
---

# Hjälp mig

## #1 — Beckis, 2002-03-07T11:10Z

Jag får följande felmeddelande:

Response-objekt fel 'ASP 0156 : 80004005' 

Fel på huvuden 

/tips/funktioner.asp, rad 54 

HTTP-huvudena har redan skrivits till klientläsaren. Ändringar till HTTP-huvudena måste göras innan sidinnehållet skrivs. 

På rad 54 står: Response.Redirect(strRedirLink)

Vad är det för fel

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

## #2 — @nders, 2002-03-07T11:30Z

Uhm, en favorit i repris, eller?

<http://webforum.aleborg.com/forum/showthread.php?s=&threadid=38140>

Mvh,

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

## #3 — Beckis, 2002-03-07T11:33Z

Jag har fössökt med att lägga in \<% response.buffer = true %\> men då är det fel på rad 1 istället och då kan man inte heller titta på infon för länkarna i dl_count.asp

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

## #4 — @nders, 2002-03-07T11:37Z

Du får inte ha någonting ovanför response.buffer-raden. Inte ens en tom rad.

Har du lagt raden absolut överst?

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

## #5 — Beckis, 2002-03-07T11:40Z

Ja den ligger överst

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

## #6 — Beckis, 2002-03-07T11:51Z

Det är ett download script och jag länkar till: tips/dl_count.asp?do=count&id=14 då ökas antal klick på länken men jag kommer inte till den adress som jag lagt till i databasen.
det är ett script från aspsidan.com

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

## #7 — @nders, 2002-03-07T12:06Z

Lägg upp koden för sidan här, så får vi kika.

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

## #8 — Beckis, 2002-03-07T12:15Z

Här är koden:
\<% response.buffer = true %\>
\<!--
DOWNLOADCOUNTER v2

Detta script är skapat av Mattias Järnhäll på <https://www.aspsidan.nu>
och får användas fritt så länge det sker i ett icke kommersiellt
syfte. Samt att kommentarerna lämnas intakta

\--\>

\<%
SUB add_new_link(strLink,strKat)

	' Lägg till en länk
	Set Con = Server.CreateObject("ADODB.Connection") 
	Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
		SQL = "Insert Into dl(link,kategori) Values('" & strLink & "','" & strKat & "')"
		Con.Execute(SQL)
	Con.Close
	Set Con = nothing

End SUB

SUB delete_link(id)

	' Tar bort en länk
	If Session("inloggad") = "true" Then
		Set Con = Server.CreateObject("ADODB.Connection") 
		Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
			SQL = "Delete From dl Where id = " & id
			Con.Execute(SQL)
		Con.Close
		Set Con = nothing
	End if

End SUB

SUB count(id)

	' Räkna klick på länken
	Set Con = Server.CreateObject("ADODB.Connection") 
	Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
		SQL = "Update dl Set nr_dl = (nr_dl + 1) Where id = " & id
		Con.Execute(SQL)
		
		SQL 	= "Select link From dl Where id = " & id
		Set RS  = Con.Execute(SQL)
		strRedirLink = RS("link")
		RS.Close
		Set RS = nothing
	Con.Close
	Set Con = nothing
	
	Response.Redirect(strRedirLink)

End SUB

SUB print_links()

	' skriv ut länkarna på sidan
	Set Con = Server.CreateObject("ADODB.Connection") 
	Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
		SQL 	= "Select \* From dl"
		Set RS 	= Con.Execute(SQL)
		
		Do Until RS.EOF
			With Response
				.Write "\[\<a href = 'dl_count.asp?do=del&id=" & RS("id") & "'\>Tabort\</a\>\] "
				.Write "\[\<a href = 'dl_count.asp?do=info&id=" & RS("id") & "'\>Info\</a\>\] "
				.Write RS("link") & "\[" & RS("nr_dl") & "\] (" & RS("kategori") & ")\<br\>"
			End With
			RS.MoveNext
		Loop
	Con.Close
	Set Con = nothing

End SUB

SUB print_info(id)

	' Visa info om en länk
	Set Con = Server.CreateObject("ADODB.Connection") 
	Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
		SQL = "Select \* From dl Where id = " & id
		Set RS = Con.Execute(SQL)
		
		With Response
			.Write "\<hr width='100%' size='1' noshade\>"
			.Write "Länk: \<b\>" & strSokvag & "dl_count.asp?do=count&id=" & RS("id") & "\</b\>\<br\>"
			.Write "Kategori: \<b\>" & RS("kategori") & "\</b\>\<br\>"
			.Write "Downloads: \<b\>" & RS("nr_dl") & "\</b\>"
			.Write "\<hr width='100%' size='1' noshade\>"
		End With
	Con.Close
	Set Con = nothing

End SUB

%\>

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

## #9 — @nders, 2002-03-07T12:30Z

Är det denna sida som körs, eller är det en includefil?

Om det är det senare, så ska du inte ha response.buffer-raden i denna fil, utan den fil som inkluderar.

Mvh,

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

## #10 — Beckis, 2002-03-07T12:51Z

Nej det är inte den som körs utan jag länkar till: tips/dl_count.asp?do=count&id=14 
Men meddelandet säger att felet är på den här sidan. När koden ser ut som den ovan med koden överst fungerar inget tar jag bort den så får jag fel meddelandet jag talade om.

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

## #11 — Beckis, 2002-03-07T12:55Z

Nu är det fixat koden skulle ligga på dl_count.asp Jag fatta inte varför den säger att det är fel på funktioner.asp när felet ligger på annan sida

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

## #12 — solbulle, 2002-03-07T14:47Z

...som sagt...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39148-hjälp-mig