My Little Scripts - link-words.asp

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

Index News Samples Downloads E-Mail me Forum Sign Up

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

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