<%
'this function is to shorten the database output of the orgination address to fit on the screen
Function Shorten(sString, sLength)
If Len (sString) > sLength Then
Shorten = Left(sString,sLength) & "..."
Else
Shorten = sString
End If
End Function

dim strLongLink
strLongLink = trim("http://www.joegakenheimer.com/asp/shorten.asp.bak")
strLongLink = Shorten(strLongLink, 34)
%>
<p>View the code for the String Shortener: <a href="shorten_code.htm"><%Response.Write strLongLink%></a></p>