LINK-WORDS.ASP

This function takes a group of words, and assigns a link to each one. It's very useful if you want to create links where the words are underlined, but the spaces between them is not. Another use would be simply for the fun of it ^_^

<%
function link_words(url, style, ByVal Phrase)
         link_words = ""

         do 'Create an array of words.
            next_space = instr(Phrase, " ")

            if next_space <> 0 and isnull(next_space) = false then
               link_word = left(Phrase, next_space - 1)
               Phrase = right(Phrase, len(Phrase) - next_space)
            else
               link_word = Phrase
            end if
         link_words = link_words & "<a href=""" & url & """ style=""" & style & """>" & link_word & "</a> "
         loop while next_space <> false
end function
%>

<script language="VB" runat="server">
Function link_words(ByVal url As String, ByVal style As String, ByVal Phrase As String) As String
         link_words = ""

         Do 'Create an array of words.
            next_space = InStr(Phrase, " ")

            If next_space <> 0 And IsNothing(next_space) = False Then
                link_word = Left(Phrase, next_space - 1)
                Phrase = Right(Phrase, Len(Phrase) - next_space)
            Else
                link_word = Phrase
            End If
        link_words = link_words & "<a href=""" & url & """ style=""" & style & """>" & link_word & "</a> "
        Loop While next_space <> False
End Function
</script>