address convertion to link

<%

Dim strText   'A string containing the text we want searched

Dim strReturned   'A string containing the search results

Dim strSearchString  'The characters found at the beginning of the string we want

Dim strEndStringChars 'The characters found at the end of the string we want

Dim strStartPos   'The position in strText that we start searching from

Dim strEndPos   'The position in strText that we end searching

Dim strLength   'The length of data between the start and end search strings

 

Sub subPullStrings(strSearchString, strEndStringChars)



    strLength = 0

     strStartPos = instr(1, strText, strSearchString)

    strEndPos = instr(strStartPos + 1, strText, strEndStringChars)

   

    strLength = strEndPos - strStartPos

   

   'Pluck the string out of the page text

   'Since strStartPos is the start of the strSearchString, not the end of it,

   'and we only want the data between strSearchString and strEndStringChars,

   'we add the length of the strSearchString to strStartPos and subtract it from the length

   'of the found string to get the actual start position and length of the data between the two.

   strReturned = mid(strText,strStartPos + len(strSearchString),strLength - len(strSearchString) ) 

    

   'bump up the start position for when we look for the next occurrence of the string so

   'we don't start looking from the beginning again.

    strStartPos = strEndPos + 1



End Sub

TheTextContainingTheURL = "a couple of very fine people are always willing to help ye out of problems, they can be http://forums.webwiz.net/forum_posts.asp?TID=14841&PN=1&TPN=1 and really I appreciate their help."

strText = TheTextContainingTheURL

subPullStrings "http:", " "

strFinal = "<a href=""" + strReturned + """>found here</a>"



strText = Replace(strText,strReturned,strFinal)

strText = Replace(strText,"http:"," ")

Response.Write(strText)

%>