Displaying link text as a hyperlink

[JimJones]

Hey,

I don't really know much about ASP but I need some help modifying the way a
field is currently displayed.

Currently the ASP code inside my page is simply:

<%=rs.Fields("Notes")%>

This is fine for displaying the text, but the text contains links which are
currently just being displayed as text. I'd like them to display as
hyperlinks that will open in new windows when clicked upon. so basically I
need some ASP code to detect text starting with http:// or www.etc and
automatically make them into hyperlinks.

Could someone help me out with some code or point me to a webpage.

Thankyou.

Jim

[Steven Burn]

<%
'// Example usage:

Dim strText
strText = InsertHyperlinks(rs.fields("This"))
Response.Write strText

'//

Function InsertHyperlinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd

strBuf = ""
iStart = 1
iEnd = 1
Set objRegExp = New RegExp

objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' Match URLs and emails
objRegExp.IgnoreCase = True ' Set case insensitivity.
objRegExp.Global = True ' Set global applicability.
Set objMatches = objRegExp.Execute(inText)
For Each objMatch in objMatches
iEnd = objMatch.FirstIndex
strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1)
If InStr(1, objMatch.Value, "@") Then
strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK")
Else
strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK")
End If
iStart = iEnd+objMatch.Length+1
Next
strBuf = strBuf & Mid(inText, iStart)
InsertHyperlinks = strBuf
End Function
Function GetHref(url, urlType, Target)
Dim strBuf

strBuf = "<a href="""
If UCase(urlType) = "WEB" Then
If LCase(Left(url, 3)) = "www" Then
strBuf = "<a href=""http://" & url & """ Target=""" & _
Target & """>" & url & "</a>"
Else
strBuf = "<a href=""" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If
ElseIf UCase(urlType) = "EMAIL" Then
strBuf = "<a href=""mailto:" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If

GetHref = strBuf

End Function

%>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

Disclaimer:
I know I'm probably wrong, I just like taking part ;o)
JimJones <No****@herenospam.com> wrote in message
news:Cup9c.240$54.223@newsfe1-win...

Hey,

I don't really know much about ASP but I need some help modifying the way a field is currently displayed.

Currently the ASP code inside my page is simply:

<%=rs.Fields("Notes")%>

This is fine for displaying the text, but the text contains links which are currently just being displayed as text. I'd like them to display as
hyperlinks that will open in new windows when clicked upon. so basically I need some ASP code to detect text starting with http:// or www.etc and
automatically make them into hyperlinks.

Could someone help me out with some code or point me to a webpage.

Thankyou.

Jim

[Ray at]

How would you do it in an normal html page? You'd do:
(Assuming you want the link text to be the url as well)

<a href="http://whatever">http://whatever</a>


So, how would you do it in asp? Substitute <%=variable%> in the places
where the url text would appear in the HTML if you were to manualy write it.

<%
sLink = rs.Fields.Item("Notes").Value
%>

<a href="<%=sLink%>"><%=sLink%></a>
Or use Steve's idea.

Ray at work
"JimJones" <No****@herenospam.com> wrote in message
news:Cup9c.240$54.223@newsfe1-win...

Hey,

I don't really know much about ASP but I need some help modifying the way a field is currently displayed.

Currently the ASP code inside my page is simply:

<%=rs.Fields("Notes")%>

This is fine for displaying the text, but the text contains links which are currently just being displayed as text. I'd like them to display as
hyperlinks that will open in new windows when clicked upon. so basically I need some ASP code to detect text starting with http:// or www.etc and
automatically make them into hyperlinks.

Could someone help me out with some code or point me to a webpage.

Thankyou.

Jim

[JimJones]

Thanks for both replies. I have it working now :-)

Jim

"Steven Burn" <nobody@PVT_it-mate.co.uk> wrote in message
news:ON**************@TK2MSFTNGP11.phx.gbl...

<%
'// Example usage:

Dim strText
strText = InsertHyperlinks(rs.fields("This"))
Response.Write strText

'//

Function InsertHyperlinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd

strBuf = ""
iStart = 1
iEnd = 1
Set objRegExp = New RegExp

objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' Match URLs and emails
objRegExp.IgnoreCase = True ' Set case insensitivity.
objRegExp.Global = True ' Set global applicability. Set objMatches = objRegExp.Execute(inText)
For Each objMatch in objMatches
iEnd = objMatch.FirstIndex
strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1)
If InStr(1, objMatch.Value, "@") Then
strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK")
Else
strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK")
End If
iStart = iEnd+objMatch.Length+1
Next
strBuf = strBuf & Mid(inText, iStart)
InsertHyperlinks = strBuf
End Function
Function GetHref(url, urlType, Target)
Dim strBuf

strBuf = "<a href="""
If UCase(urlType) = "WEB" Then
If LCase(Left(url, 3)) = "www" Then
strBuf = "<a href=""http://" & url & """ Target=""" & _
Target & """>" & url & "</a>"
Else
strBuf = "<a href=""" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If
ElseIf UCase(urlType) = "EMAIL" Then
strBuf = "<a href=""mailto:" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If

GetHref = strBuf

End Function

%>

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

Disclaimer:
I know I'm probably wrong, I just like taking part ;o)
JimJones <No****@herenospam.com> wrote in message
news:Cup9c.240$54.223@newsfe1-win...

Hey,

I don't really know much about ASP but I need some help modifying the

way a

field is currently displayed.

Currently the ASP code inside my page is simply:

<%=rs.Fields("Notes")%>

This is fine for displaying the text, but the text contains links which are

currently just being displayed as text. I'd like them to display as
hyperlinks that will open in new windows when clicked upon. so

basically I

need some ASP code to detect text starting with http:// or www.etc and
automatically make them into hyperlinks.

Could someone help me out with some code or point me to a webpage.

Thankyou.

Jim