Montana State University

College of Engineering

Montana State University
P.O. Box 173820
Bozeman, MT 59717-3820

Tel: (406) 994-2272
Fax: (406) 994-6665
E-mail: engrinfo@coe.montana.edu
Location: 212 Roberts Hall

Dean and Director:

Brett Gunnink

Dean's Office Staff

Contact information for College of Engineering departments.


Recent Headlines

 

<% Response.Expires = -1 ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005-2008 (c) www.Bytescout.com ' version 1.27, 16 August 2008 ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://www.montana.edu/cpa/news/rss/coe.xml" ' ##### max number of displayed items ##### MaxNumberOfItems = 5 ' ##### Main template conystants MainTemplateHeader = "" MainTemplateFooter = "
" ' ##### ' ###################################### Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too ' ################################# ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog) ' ##### {CATEGORY} will be replaced with item category ItemTemplate = "{CATEGORY}{TITLE}" ' ##### Error message that will be displayed if not items etc ErrorMessage = "Error has occurred while trying to process " &URLToRSS & "
Please contact webmaster" ' ================================================ Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") xmlHttp.Open "GET", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = False xmlDOM.validateOnParse = False xmlDom.resolveExternals = False If not xmlDOM.LoadXml(RSSXML) Then ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage End If Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS RSSItemsCount = RSSItems.Length-1 ' if not .. entries, then try to get .. if RSSItemsCount = -1 Then Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS RSSItemsCount = RSSItems.Length-1 End If Set xmlDOM = Nothing ' clear XML ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) ' fix for the issue when a description from a previous item ' is used if current item description is empty provided by George Sexton RSSCommentsLink=" " for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" If child.Attributes.length>0 Then RSSLink = child.GetAttribute("href") if (RSSLink <> "") Then if child.GetAttribute("rel") <> "alternate" Then RSSLink = "" End If End If End If ' if has attributes If RSSLink = "" Then RSSlink = child.text End If RSSdescription = child.text case "published"' atom format RSSCommentsLink = child.text case "category" Set CategoryItems = RSSItem.getElementsByTagName("category") RSSCategory = "" for each categoryitem in CategoryItems if RSSCategory <> "" Then RSSCategory = RSSCategory & ", " End If RSSCategory = RSSCategory & categoryitem.text Next End Select next ' now check filter If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this for use in on-the-fly output %>

Robert J. Marley
Robert J. Marley, Ph.D., CPE
Dean of Engineering

on leave during 2012-13 academic year for an ACE Fellowship (Click link to read the news story)

Anne K. Camper
Anne K. Camper, Ph.D.
Associate Dean for
Faculty and Administration
Christine M. Foreman, Ph.D.
Christine M. Foreman, Ph.D.
Associate Dean for Student Success
Judi Haskins
Judi Haskins, M.S.
Student Success Coordinator


Melanie Kimpton
Administrative Associate

Administration and Accounting Staff

Kathleen (Kathy) Osen
Kathleen (Kathy) Osen, M.P.A.
Director of Finance & Budget


Shelly Shroyer
Accounting Associate

Development Staff

Kevin Brown
Kevin Brown

Director of Development
Traci Weller
Traci Weller, B.A., C.F.R.E.
Director of Development

Other Support Staff

Elizabeth Brock
Elizabeth Brock
Communications Specialist
and Web Coor
dinator
Julian Collins
Julian Collins, B.A.
Director of Designing Our
Com
munity (DOC) and American Indian Research Opportunities (AIRO)
Carolyn Plumb
Carolyn Plumb, Ph.D.
Director of Educational Innovation
and Strategic Projects

Amy Stix
Amy Stix
Assistant Director of Designing Our
Com
munity (DOC) and American Indian Research Opportunities (AIRO)