...Fra linktekst til hyberlink

Function LinkURLs(strInput)
    Dim iCurrentLocation  \' Our current position in the input string
    Dim iLinkStart        \' Beginning position of the current link
    Dim iLinkEnd          \' Ending position of the current link
    Dim strLinkText      \' Text we\'re converting to a link
    Dim strOutput        \' Return string with links in it
    iCurrentLocation = 1

    Do While InStr(iCurrentLocation, strInput, \"http://\", 1) <> 0
        iLinkStart = InStr(iCurrentLocation, strInput, \"http://\", 1)
        iLinkEnd = InStr(iLinkStart, strInput, \" \", 1)
        If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1
        Select Case Mid(strInput, iLinkEnd - 1, 1)
            Case \".\", \"!\", \"?\"
                iLinkEnd = iLinkEnd - 1
        End Select
        strOutput = strOutput & Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation)
        strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)
        strOutput = strOutput & \"<a href=\"\"\" & strLinkText & \"\"\" target=\"\"_blank\"\">\" & strLinkText & \"</a>\"
        iCurrentLocation = iLinkEnd
    Loop
   
    strOutput = strOutput & Mid(strInput, iCurrentLocation)
    LinkURLs = strOutput
End Function

Den der funktion virker, hvis det er det du mener

Hvor skal jeg sætte koden ind, mangler der ikke start og slut tegn ? jeg ved ikke så meget om asp

Den virkede med nogle tilføjelser..