HTML Hyperlink Parser Function:
Click here for an example.
Code:
Highlight
<% Function GetElement(byVal sString, byVal sElement) dim start_z, end_z, next_z next_z = Len(sElement) sString = replace(sString, """", "") ' find the beginning of the link start_z = instr(1, sString, sElement) If start_z > 0 then sString = Mid(sString, start_z + next_z ) ' find the end of the link end_z = instr(1, sString, ">") If end_z > 0 then sString = left(sString, end_z - 1) sString = trim( sString ) GetElement = sString End Function %>