BeckisMedlem sedan jan. 2001142 inlägg 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
@ndersMedlem sedan juni 200032 969 inlägg BeckisMedlem sedan jan. 2001142 inlägg 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
@ndersMedlem sedan juni 200032 969 inlägg Du får inte ha någonting ovanför response.buffer-raden. Inte ens en tom rad.
Har du lagt raden absolut överst?
BeckisMedlem sedan jan. 2001142 inlägg 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
@ndersMedlem sedan juni 200032 969 inlägg Lägg upp koden för sidan här, så får vi kika.
BeckisMedlem sedan jan. 2001142 inlägg 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
%>
@ndersMedlem sedan juni 200032 969 inlägg Ä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,
BeckisMedlem sedan jan. 2001142 inlägg 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.
BeckisMedlem sedan jan. 2001142 inlägg 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