ASP: convert a string into a link

If you often visit social networks or, generally speaking, discussion web sites, you surely have noticed that sometimes when you insert a message or a post, every possible link is automatically recognised and "transformed" into a clickable link. How is it done?

With ASP we can manipulate a given string, find a possible link and change it.


The code
The code is quite simple:
<%
Dim str
str= "This is a link http://thewebthought.blogspot.com/"

Dim strS
strS = Split(str, " ")

Dim strLink, i
i = 0
For i = 0 To Ubound(strS)
If InStr(strS(i), "http://") Then
strLink= "" + strS(i) & ""
Else
strLink = strS(i)
End If
Response.Write strLink & " "
Next
%> 
Ok, let me explain it to you.
str is our string. It can be submitted by a form, retrieved from a database or else.

We first split the string (str) into an array (using the space as separator).
We then use a for cycle to go through the array and check if "http://" is present. If so we convert it into a link. After that we show the complete text. We can obviously use strLink the way we prefer.

Easy and simple.