Convert web address to link ASP

[deltrotter]

Hi

I have a form on my site that allows visitors to post comments, and also weblinks. These comments are then displayed on a comments page.

Does anyone have a bit of code that will convert 'www.address.com' or 'http://www.address.com' to a clickable link (ie with a href in it) when it is displayed on the web page?

Many thanks in advance.

Cheers

Ray

[danfran]

only recognizes if HTTP is passed.. but it's a start!

Dan

function ConstructLink(strString)

	' see if we need to do anything
	if instr(1,strString,"http://",vbTextCompare) > 0 then

		'make it a link
		dim newstring, startpos, endpos, URL
		
		' find positions of URL
		startpos = instr(1,strString,"http://",vbTextCompare)
		endpos = instr(startpos+1,strString," ",vbTextCompare)
		if endpos = 0 then 
			endpos = len(strString) 
			URL = mid(strString,startpos,(endpos-startpos+1))
			newstring = left(strString,startpos-1)
			newstring = newstring & "<a target=""_blank"" href=""" & URL & """>" & URL & "</a>"
			newstring = newstring & right(strString,len(strString)-endpos)
		else
			URL = mid(strString,startpos,(endpos-startpos))
			newstring = left(strString,startpos-1)
			newstring = newstring & "<a target=""_blank"" href=""" & URL & """>" & URL & "</a>"
			newstring = newstring & right(strString,len(strString)-endpos+1)
		end if

		
		ConstructLink = newstring
		
	else
		' just return the value
		ConstructLInk = strString
	end if

end function

[deltrotter]

Thanks Danfran

That is a good start. Not recognising www. is a bit of an issue though.

Cheers

Del