---
title: "Fel på forumkod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14400-fel-på-forumkod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "joakimweb"
published: "2002-02-13T08:58:00.000Z"
updated: "2002-02-13T15:37:00.000Z"
replies: 2
views: 197
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/14400-fel-på-forumkod"
---

# Fel på forumkod

## #1 — joakimweb, 2002-02-13T08:58Z

Jag använder en forumkod till mitt forum där [www.lank.com](http://www.lank.com)  och <http://www.lank.com>  blir automatiskt länkar.
Men den hänger liksom upp sig, det kan bli \<a href="http://\<a href=" typ, går det att göra så att inte en och samma länk kollas på både http & www som start?

Eftersom <http://www.>  innehåller www så blir den länk 2 gånger...

```
<%
	Function make_link(txt)

	' Initiering i början
	txt = Replace(Server.HTMLEncode(RecSet("Inlagg")),vbCrlf,"<br>")
	sPos		= inStr(lCase(txt),"http://")	' Hämtar positionen för första länken

	' Fyll denna array med tecken som avslutar en länk << HÄR KAN DU ÄNDRA OM DU VILL >>
	stoppa		= Array(";",","," ","!","<",">")

	Do While sPos <> 0 AND sPos < len(txt)
		
		' Initiering av grejer i lopen
		startLink = sPos			' Länkens startpos
		tmpChar	  = ""				' Nollställ
		tmpLink	  = ""				' Nollställ
		stop_it	  = "FALSE"

		' Plocka ut namnet på länken
		Do Until sPos > len(txt)+1 OR stop_it = "TRUE"
			tmpLink = tmpLink & tmpChar
			tmpChar = Mid(txt,sPos,1)
			endLink = sPos - 1
			sPos = sPos + 1
			For X = 0 To Ubound(stoppa)	' Kollar om tmpChar är ogiltig
				If tmpChar = stoppa(X) Then stop_it = "TRUE"
			Next
		Loop

		vanster = Left(txt,startLink-1)		' Texten till vänster om länken
		hoger	= Right(txt,len(txt)-endLink)	' Texten till höger om länken
		
		' Sätt ihop den nya texten, med länk!
		txt 	=  vanster & "<a href='" & tmpLink & "' target = '_blank'>"_
			& tmpLink & "</a>" & hoger

		' Leta fram nästa länk
		jumpTo 	= endLink + 33 + len(tmpLink)
		sPos	= inStr(jumpTo,lCase(txt),"http://")

	Loop

	sPos		= inStr(lCase(txt),"www.")	' Hämtar positionen för första länken

	' Fyll denna array med tecken som avslutar en länk << HÄR KAN DU ÄNDRA OM DU VILL >>
	stoppa		= Array(";",","," ","!","<",">")

	Do While sPos <> 0 AND sPos < len(txt)
		
		' Initiering av grejer i lopen
		startLink = sPos			' Länkens startpos
		tmpChar	  = ""				' Nollställ
		tmpLink	  = ""				' Nollställ
		stop_it	  = "FALSE"

		' Plocka ut namnet på länken
		Do Until sPos > len(txt)+1 OR stop_it = "TRUE"
			tmpLink = tmpLink & tmpChar
			tmpChar = Mid(txt,sPos,1)
			endLink = sPos - 1
			sPos = sPos + 1
			For X = 0 To Ubound(stoppa)	' Kollar om tmpChar är ogiltig
				If tmpChar = stoppa(X) Then stop_it = "TRUE"
			Next
		Loop

		vanster = Left(txt,startLink-1)		' Texten till vänster om länken
		hoger	= Right(txt,len(txt)-endLink)	' Texten till höger om länken
		
		' Sätt ihop den nya texten, med länk!

		IF NOT inStr(lCase(vanster),"http://") then
		txt 	=  vanster & "<a href='http://" & tmpLink & "' target = '_blank'>"_
			& tmpLink & "</a>" & hoger
		END IF

		' Leta fram nästa länk
		jumpTo 	= endLink + 33 + len(tmpLink)
		sPos	= inStr(jumpTo,lCase(txt),"www.")

	Loop

	' Tillåten HTML kod
	txt = Replace(txt,"[farg]","<font color='red'>")
	txt = Replace(txt,"[/farg]","</font>")
	txt = Replace(txt,"[f]","<b>")
	txt = Replace(txt,"[/f]","</b>")
	txt = Replace(txt,"[k]","<i>")
	txt = Replace(txt,"[/k]","</i>")
	txt = Replace(txt,"[b]","<b>")
	txt = Replace(txt,"[/b]","</b>")
	txt = Replace(txt,"","")

	make_link = txt

End Function
%>
```

Tacksam för svar!

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

## #2 — Herman, 2002-02-13T12:48Z

tja du skulle kanske kunna ändra om koden så att den 2:a kollen tittar efter: 
" \<A HREF="http://www."" TARGET=\_blank\>www."\</A\>  istället för "www.". 
På så vis blir inte <http://www.>  länkad igen.

```
sPos = inStr(lCase(txt)," <A HREF="http://www.")" TARGET=_blank>www.")</A>  ' Hämtar positionen för första länken
```

sedan behöver du kanske juster lite av de efterföljande stränghanteringsfunktionerna.

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

## #3 — joakimweb, 2002-02-13T15:37Z

Jag testade att göra det, men då laddades sidan extremt segt...

finns det inget annat sätt?
typ att "baka ihop" så att både http:// kollas och www. om inte http:// finns med?

Hoppas någon kan lösa det...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14400-fel-på-forumkod