---
title: "Högst irriterande fel i länkmakeri"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/147678-högst-irriterande-fel-i-länkmakeri"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Oputres"
published: "2006-06-03T12:46:15.000Z"
updated: "2006-06-03T12:46:15.000Z"
replies: 0
views: 199
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/147678-högst-irriterande-fel-i-länkmakeri"
---

# Högst irriterande fel i länkmakeri

## #1 — Oputres, 2006-06-03T12:46Z

Allå!

Jag kan för mitt liv inte förstå varför det blir fel på länksidan när jag skall skriva in <https://www.branno.nu>. <https://www.brannoo.nu> går utmärkt men just <https://www.branno.nu> går bara inte.

Kolla in [aktuell sida här](http://www.brannoforeningen.se/default.asp?Kat=Lankar).

Vad är det för jidder som dyker upp runt just <https://www.branno.nu?> Det fungerar utmärkt med <https://www.dansar.nu> lite länkre ner och som sagt även brannoo.nu medan branno.nu totalvägrar.

Här är koden jag har för att skapa dessa automatiska länkar:

```
Function RSTextLayout(s)
On error resume next
Set objRE = new RegExp 
objRE.IgnoreCase = True : objRE.Global = True 
objRE.Pattern = "(http:\/\/|www\.)(\w|\&|\:|\;|\.|\/|\?|\~|\=|-)+"
Set m = objRE.Execute(s) 
For Each o In m 
If Right(o.Value, 1)="." Or Right(o.Value, 1)="!" Or Right(o.Value, 1)="?" Or Right(o.Value, 1)="," Then 
If Left(o.Value, 3) = "www" Then s = Replace(s, o.Value, "<B><A HREF=""http://" & Left(o.Value, Len(o.Value)-1) & """ target=""_blank"">" & Left(o.Value, Len(o.Value)-1) & "</A></B>" & Right(o.Value, 1)) Else s = Replace(s, o.Value, "<B><A HREF=""" & Left(o.Value, Len(o.Value)-1) & """>" & Left(o.Value, Len(o.Value)-1) & "</A></B>" & Right(o.Value, 1)) 
Else 
If Left(o.Value, 3) = "www" Then s = Replace(s, o.Value, "<B><A HREF=""http://" & o.Value & """ target=""_blank"">" & o.Value & "</A></B>") Else s = Replace(s, o.Value, "<B><A HREF=""" & o.Value & """ target=""_blank"">" & o.Value & "</A></B>") 
End If 
Next 
Set objRE = Nothing 

' Tillåten HTML kod
s = Replace(s,"[bild]","<div align='center'><center><img src='bilder/")
s = Replace(s,"[/bild]","' border='0'></center></div>")
s = Replace(s, "[", "<")
s = Replace(s, "]", ">")
s = Replace(s, vbCrLf, "<br>")
s = Replace(s,"","")

RSTextLayout = s 

End Function
```

 

På återseende. Jag skall bara slita av mig allt hår i frustration...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/147678-högst-irriterande-fel-i-länkmakeri