Hjälp mig

Uhm, en favorit i repris, eller?

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

Mvh,

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

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

Har du lagt raden absolut överst?

Ja den ligger överst

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

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

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

%>

Ä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,

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.

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

...som sagt...