Hvad er der galt med denne funktion
Hej eksperter!,jeg har et problem med en funktion der ændrer tekst uden hyperlinks til en tekst med hyperlinks. (funktionen er taget her fra eksperten!) Det eneste den viser på siden er hyperlinks'ene, men ikke resten af teksten. Kan I grejle den?
I kan se output her: http://www.erhvervs-info.dk/serviceside.asp?id=7
Mvh
Steven
-----------------
Funktionerne
-----------------
Function InsertHyperlinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd
strBuf = ""
iStart = 1
iEnd = 1
Set objRegExp = New RegExp
objRegExp.Pattern = "\b(www|http|\S+@)\S+\b"
objRegExp.IgnoreCase = True
objRegExp.Global = True
Set objMatches = objRegExp.Execute(inText)
For Each objMatch in objMatches
iEnd = objMatch.FirstIndex
strBuf = strBuf & Mid(inText, iStart, iEnd - iStart + 1)
If InStr(1, objMatch.Value, "@") Then
strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK")
Else
strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK")
End If
iStart = iEnd + objMatch.Length + 1
Next
strBuf = strBuf & Mid(inText, iStart)
InsertHyperlinks = strBuf
End Function
Function GetHref(url, urlType, Target)
Dim strBuf
strBuf = ""
If UCase(urlType) = "WEB" Then
If LCase(Left(url, 3)) = "www" Then
strBuf = "<a href='http://" & url & "' Target='" & Target & "'>" & url & "</a>"
Else
strBuf = "<a href='" & url & "' Target='" & Target & "'>" & url & "</a>"
End If
ElseIf UCase(urlType) = "EMAIL" Then
strBuf = "<a href='mailto:" & url & "' Target='" & Target & "'>" & url & "</a>"
End If
GetHref = strBuf
End Function
----------------
funktionskald
----------------
Response.Write("<h1>" & RS("overskrift") & "</h1><p><i>Denne artikel er lagt på Kommunalbogen.dk d. " & RS("dato") & ". </i></p><p><i>Artiklen er skrevet af " & RS("skrevetaf") & "</i></p><p> </p><p>" & InsertHyperlinks(RS("tekst")) & "</p>")
