dim sUrl
 sUrl="http://travel.state.gov/visa/frvi_bulletincurrent.html"
 Function streamtochar(StrStream)
 set stream=CreateObject("ADODB.Stream")
 stream.type=1
 stream.Mode=3
 stream.Open
 stream.Write Strstream
 stream.Position= 0
 stream.Type= 2
 stream.Charset="gb2312"
 streamtochar= stream.ReadText
 stream.Close
 set stream=nothing
 End Function
 i = i + 1
 function getContentByUrl(url)
 set XmlHttp = CreateObject("MSXML2.XMLHTTP")
 XmlHttp.open "GET",url,false
 XmlHttp.send
 getContentByUrl = streamtochar(oXmlHttp.responseBody)
 set XmlHttp=nothing
 end function

 function getRealContent(url)
 sContent = getContentByUrl(url)
 getRealContent=sContent
 end function

html= getContentByUrl(surl)
 url_start=inStr(html," " )  url_end=inStr(html," ")
 url=Mid(html,url_start,url_end-url_start)
 url=replace(url,"“)

 Date_start=inStr(html,"Washington, D.C. ")+57
 Date_end=inStr(html," A. STATUTORY")-14
 Date_T=Mid(html,Date_start,Date_end-Date_start)