<%
'LOAD XSL
SET xsl = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
xsl.async = false
xsl.load("c:\\inetpub\wwwroot\media\xml\NavSideBar.xsl")
'add parameters to the xsl
Set XSLTemplate = Server.CreateObject("MSXML2.XSLTemplate")
Set XSLTemplate.stylesheet = xsl
Set proc = XSLTemplate.createProcessor
' Set the source of the data
proc.input = xml
proc.addParameter "pageurl", pageurl
proc.addParameter "pageid", pageid
'more parameters...
proc.Transform
Response.Write proc.output
SET proc = Nothing
SET xsl = Nothing
%>
<%
If Request.QueryString("ID") = "" Then
Response.Write("
")
Else %>
<% End If %>
Administrative Officers
- Robert Hoover, B.S., M.S., Ph.D.
- President
- Mark Smith, B.A., M. Div., M.A., Ph.D.
- Vice President for Academic Affairs
- Chris Anton, B.S., M.B.A.
- Vice President of Finance and Administration
- Paul Bennion, B.A., Ed.M.
- Dean of Students
- Charlene Brown, B.A.
- Dean of Enrollment
Management
- Larry Johnson, BE., M.S.,
M. Div.
- Vice President of Advancement
- Marty Holly, B.S., M.S.
- Director of Athletics
- Barry Fujishin, B.S., M. Soc. Sci.
- Director of Alumni and Parent Relations
<%
'LOAD XSL
SET xsl = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
xsl.async = false
xsl.load("c:\\inetpub\wwwroot\media\xml\NavTopMenu.xsl")
Response.Write(xml.transformNode(xsl))
SET proc = Nothing
SET xsl = Nothing
SET xml = Nothing
%>