Frågan är kanske ställd förut men jag hittar ingen
Jag vill alltså byta ut en en inskriven länk mot en klickbar
Har kommit så långt att jag byter ut ex [lank] före och [/lank] efter länken mot href...osv men hur får jag fram själv länknamnet

/Thommy

Har du lyckats med att plocka ut länken i formen http://.......
och har fått till
http://server.nånstans.nu

..eller har jag fattat dig fel ?!!

/Juha

Nej du har inte fattat fel
Efter en del knåpande kom jag fram till detta
En funktion som tar max 20 länkar som
skrivs i som [lank1]länk[/lank1], [lank2]länk[/lank2] ...osv

Finns det nån bugg i detta tro

/Thommy

<code>

Function FixaInlagg(str)
FixaInlagg = Server.HTMLEncode(str)
For i = 1 To 20
If InStr(1, FixaInlagg, "[lank" & i & "]", 1) > 0 Then
Start = InStr(1, FixaInlagg, "[lank" & i & "]", 1)
If i < 10 Then Start = Start + 7 Else Start = Start + 8
Stopp = InStr(1, FixaInlagg, "[/lank" & i & "]", 1) - 1
Href = Mid(FixaInlagg, Start, Stopp - Start + 1)
TempStr = "" & Href
FixaInlagg = Replace(Trim(FixaInlagg), "[lank" & i & "]" & Href, TempStr, 1)
FixaInlagg = Replace(Trim(FixaInlagg), "[/lank" & i & "]", "", 1)
End If
Next
End Function
</code>