<% 'Create instance of XMLHTTP set xml = server.createobject("Microsoft.XMLHTTP") 'Set the URL property of the control xml.open "GET", "http://www.wsdot.wa.gov/traffic/seattle/incidents/", 0 xml.send 'Actually download the file sHTML = xml.responseText set xml = nothing dim objRegExp Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "[^~]*" sHTML = objRegExp.Replace(sHTML,"" & VBCrLF) 'objRegExp.Pattern = "" 'sHTML = objRegExp.Replace(sHTML,"" & VBCrLF) objRegExp.Pattern = "[^~]*" sHTML = objRegExp.Replace(sHTML,"") objRegExp.Pattern = "<[\/]?div[^>]*>" sHTML = objRegExp.Replace(sHTML,"") objRegExp.Pattern = "

" sHTML = objRegExp.Replace(sHTML,"") objRegExp.Pattern = "<[\/]?ul>" sHTML = objRegExp.Replace(sHTML,"") objRegExp.Pattern = "

- ") objRegExp.Pattern = "<\/li>" sHTML = objRegExp.Replace(sHTML,"

") objRegExp.Pattern = "
" sHTML = objRegExp.Replace(sHTML,"") sHTML = "

" & sHTML & "

" response.write sHTML Set objRegExp = nothing set sHTML = nothing %>