Forum Moderators: open
Dim htmlSource = getHtml("http://www.google.com/")
function getHTML (strUrl)
Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlHttp.Open "GET", strUrl, False
xmlHttp.setRequestHeader "User-Agent", "ASP HttpRequest"
xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
xmlHttp.Send
getHTML = xmlHttp.responseText
xmlHttp.abort()
set xmlHttp = Nothing
end function
Off the top of my head, your regular expression should be something like this...
.*meta name="description" content="(.+?)"
You can find how to use Regular Expressions on Google. The above regex might need refinement depending on your needs.