Frågan#1
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.
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...