Dim pattern As String = "<title>(?<Title>[^<]*)<\/title>"
Dim rx As New Regex(pattern, RegexOptions.IgnoreCase)
Dim m As Match = rx.Match(resultslink)
If (m.Success) Then
objCommand.Parameters.Add("@productname").Value = m.Groups("Title").Value
End If
John Grove - TFD Group, Senior Software Engineer, EI Division, http://www.tfdg.com