My Little Scripts - link-words.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...

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 ^_^

see also : directory-navigation-links.php, directory-navigation-links.asp
javascript-navigation-links.js, hotlink-protection.php
link-words.php, link-words.asp

<%
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
%>