<%@ LANGUAGE="VBSCRIPT" %>
<%
'********************************************
'*
'* Filename: staff.asp
'*
'* DESCRIPTION
'* -----------
'* Home page.
'*
'* INPUT PARAMETERS:
'* ----------------
'* I - none
'*
'* Copyright (c) 1999 Hubbard One. All rights reserved
'********************************************
'*
'* Author: Amy Sass
'* Date Created: 01/29/2001
'*
'* REVISION HISTORY
'* $Revision: 13 $
'* $Author: Rweng $
'* $Date: 12/06/06 3:09p $
'*
'********************************************
Option Explicit
'If blnOnError Then On Error Resume Next
%>
<% 'APPLICATION SERVER-SIDE INCLUDE FILE(S) AFTER HERE %>
<% '** Enter the page name WITHOUT extension below **
Const PAGE_NAME = "staff"
%>
<% 'ARCHITECTURE SERVER-SIDE INCLUDE - DO NOT REMOVE %>
<% 'APPLICATION SERVER-SIDE INCLUDE FILE(S) BEFORE HERE %>
<% 'APPLICATION ASP CODE AFTER HERE %>
<%
'get browser version, name, and os
Dim strBrowser, intVersion, strOS
strBrowser = GetBrowserName
intVersion = GetBrowserVersion
strOS = GetPlatform
'response.write "browser: " & strBrowser & " "
'response.write "version: " & intVersion & " "
'response.write "os: " & strOS & " "
Dim strNav, strSubNav
strNav = "people"
strSubNav = "staff"
'---------Dynamic Title Tags-------------------------------------------------------------
'---------incTitleTags include file will build the title tags----------------------------
'---------Variable name is "strTitle"----------------------------------------------------
%>
<%
'--------End Dynamic Title Tags----------------------------------------------------------
%>
<% 'APPLICATION ASP CODE BEFORE HERE %>
<% 'APPLICATION SERVER-SIDE FUNCTIONS AFTER HERE %>
<%
Sub ShowOffices()
Dim recOffices
Set recOffices = RunStoredProc("spr_GetOffices", "")
If Err.Number <> 0 Then
Call HandleError()
End If
Response.write "" & VbCrLf
End Sub
Sub ShowLetters()
Dim charcount, intIndex
intIndex = 0
For charcount = 65 to 90
If intIndex > 5 Then
intIndex = 0
Response.write "
<%
intIndex = intIndex + 1
Next
End sub
%>
<% 'APPLICATION SERVER-SIDE FUNCTIONS BEFORE HERE %>
<%
' Don't cache
Response.Expires=0
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
%>
<%=strTitle%>
You may search for a Miller Canfield professional or administrative staff member by last name or office location. Once you have entered your criteria, click on the "go" button. You may also conduct an alphabetical search by clicking on a letter below. For an entire listing of professional and administrative staff members, simply click on View All.
