Public Function SeoText(ByVal sTekst As String) As String

Dim sResultat As String = ""

If 1 = 1 Then

Dim aText As Array

aText = sTekst.Split(" ")

Dim i As Integer

Dim sLink As String = ""

For i = 0 To aText.Length - 1

sLink = ""

If aText(i).ToString.StartsWith("href=""") Then

If aText(i).ToString.IndexOf(""">") = -1 Then

Dim j As Integer = i + 1

While aText(j).ToString.IndexOf(""">") = -1

sLink = sLink & aText(j).ToString & " "

j = j + 1

End While

sLink = aText(i).ToString.Substring(6, aText(i).ToString.Length() - 6) & " " & sLink & aText(j).ToString.Substring(0, aText(j).ToString.IndexOf(""">"))

Else

sLink = aText(i).ToString.Substring(6, aText(i).ToString.IndexOf(""">") - 6)

End If

Dim Script As Boolean = False

'**************************************

' PDF

If sLink.IndexOf(".pdf") > 0 Then

If sLink.IndexOf("http") = 0 And (sLink.IndexOf("eavest.dk") = -1 And sLink.IndexOf("bawest.dk") = -1) Then

aText(i) = "onclick=""Javascript:opTrack('UA-3061919-2','www.eavest.dk','PDF - eksternt','" & sLink & "',_gat);""" & " " & aText(i)

Else

aText(i) = "onclick=""Javascript:opTrack('UA-3061919-2','www.eavest.dk','PDF - internt','" & sLink & "',_gat);""" & " " & aText(i)

End If

Script = True

End If

'**************************************

' Mail

If sLink.IndexOf("mailto:") = 0 And Not Script Then

Dim mail As String

Dim mailStart As Integer

Dim mailSlut As Integer

mailStart = 7

mailSlut = sLink.Length()

mail = sLink.Substring(mailStart, mailSlut - mailStart)

aText(i) = "onclick=""Javascript:opTrack('UA-3061919-2','www.eavest.dk','Mail','" & mail & "',_gat);""" & " " & aText(i)

Script = True

End If

'**************************************

' Eksternt link

If sLink.IndexOf("http") = 0 And sLink.IndexOf("eavest.dk") = -1 And Not Script Then

aText(i) = "onclick=""Javascript:opTrack('UA-3061919-2','www.eavest.dk','Link - eksternt','" & sLink & "',_gat);""" & " " & aText(i)

Script = True

End If

'**************************************

' Internt link

If Not Script Then

aText(i) = "onclick=""Javascript:opTrack('UA-3061919-2','www.eavest.dk','Link - internt','" & sLink & "',_gat);""" & " " & aText(i)

Script = True

End If

End If

Next

For i = 0 To aText.Length - 1

sResultat = sResultat & aText(i).ToString & " "

Next

Else

sResultat = sTekst

End If

Return sResultat

End Function